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.
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.
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
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;
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;
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.
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.
