Turbo pascal

Solo disponible en BuenasTareas
  • Páginas : 4 (789 palabras )
  • Descarga(s) : 0
  • Publicado : 30 de agosto de 2009
Leer documento completo
Vista previa del texto
1º PROGRAMAS SECUENCIALES

Un programa escrito en turbo pascal esta estructurado en 3 secciones principales:

º Cabeceras: en esta sección se debe indicar el nombre (identificador) asignado almismo.
Programa-el (,) se utiliza como separador de instrucciones también llamadas sentencias.

º Declaraciones: en esta sección se declaran las constantes (const), los tipos de datos (type), lasvariable (var.) , los procedimientos (procedure) y las funciones (funcion) definidos por el programador que se usan en el programa.
El orden será:
Uses (unidades)
Label (etiquetas)
Const( constantesType (tipos)
Var (variable)
Procedure (procedimiento)
Fuction (funciones)

° Sintaxis:

begin (inicio)
ºInsruccion 1
ºInsruccion 2
ºInsruccion 3
end. (se cierra con end mas un punto)

1EJEMPLO: realiza un programa que pida 2 números y haga la suma, resta, multiplicación y división de estos

PROGRAM CALCULADORA;
VAR
NUM1, NUM2, SUM, RES, MULT, DIVI: REAL;
BEGIN
WRITELN ('DAMENUM1');
READLN (NUM1);
WRITELN ('DAME NUM2');
READLN (NUM2);
SUM: =NUM1+NUM2;
WRITELN ('EL RESULTADO DE LA SUMA ES ',SUM :2:2);
WRITELN;
RES:=NUM1-NUM2;
WRITELN ('EL RESULTADO DE LA RESTA ES',RES :2:2);
WRITELN;
MULT:=NUM1*NUM2;
WRITELN ('EL RESULTADO DE LA MULTIPLICACION ES ',MULT :2:2);
WRITELN;
DIVI:=NUM1/NUM2;
WRITELN ('EL RESULTADO DE LA DIVISION ES ',SUM :2:2);
READLN;
END.2 EJEMPLO: realizar un programa que saque el área de un circulo.

program circulo;
var
radio:integer;
area:real;
const
pi=3.14;
begin
writeln (' escribe el valor del radio ');
readln(radio);
area:=pi*radio*radio;
writeln (' el area es ',area:2:2);
readln;
end.

3 EJEMPLO: realizar un programa que sume a+ b+ y+ x y después lo divida entre x+ y.

PROGRAM ECUACION_1;
VARA,B,X,Y:INTEGER;
OPERA,W,E:REAL;
BEGIN
WRITELN('DAME A ');
READLN(A);
WRITELN('DAME B ');
READLN(B);
WRITELN('DAME X ');
READLN(X);
WRITELN('DAME Y ');
READLN(Y);
W:=(A+B);
E:=W+(X-Y);...
tracking img