Ejemplos de pascal

Triangul.pas

program triangulo;
uses
crt;
var
a,b,h:real;
const
x=2;
begin
writeln('cual es la base del triangulo');
readln(b);
writeln('cual es la altura del triangulo');
readln(h);
a:=(b*h)/x;
writeln('el aria del triangulo es:');
writeln(a);
readln;
end.

 

 

 

SUMA.PAS

program sumatoria;

uses

crt;

var
suma,contador,numero:integer;
begin
clrscr;
writeln('tecle hazta que numero');
readln(numero);
suma:=0;
for contador:=1 to numero do;
begin
suma:=suma+contador;
end;
writeln('suma:',suma);
readln;
readkey;
end.

SUMATORI.PAS

program sumatoria;
uses
crt;
var

Suma, contador: integer;
begin
clrscr;
suma:=0;
for contador:= 5 to 20 do
begin
suma:=suma+contador;
writeln(suma,',');
end;
writeln('suma:',suma);
readkey;

End.

calcular el > de 3 No

program calcul_mayor_de_3;
uses
crt;
var
a,b,c:real;
begin
clrscr;
writeln('dame un mumero');
readln(a);
writeln('dame otro numero');
readln(b);
writeln('dame un numero');
readln(c);
if a>b then
writeln(a)
else
if a>c then
writeln(b);
if a>c then
else
writeln(c);
readkey;

end.

CALCULAD.PAS

program calculadora;
uses
crt;
var
a,b:real;
c:char;
begin
writeln('dame el balor de a');
readln(a);
writeln('dame el operador');
readln(c);
writeln('dame el valor de b');
readln(b);
case c of
'+':writeln(a+b:2:2);
'-':writeln(a-b:2:2);
'*':writeln(a*b:2:2);
'/':writeln(a/b:2:2)
else
 writeln('error');
end;
readkey;
end.