Programas de Pascal
Program suma_de_dos_numeros;
Uses Crt;
Var
Num1,Num2,suma:real;
Begin
clrscr;
writeln('ingrese el primer valor');
readln(Num1);writeln('ingrese el segundo valor');
readln(Num2);
suma:=Num1+Num2;
writeln('la suma de dos numeros es:',suma);
repeat until keypressed;
end.
(*con el programa que sedesarollara a continuacion mostraremos como hacer la suma, resta, multiplicacion y division de dos numeros*)
Program suma_resta_multiplicacion_division;
Uses crt;
VarNum1,Num2,suma,resta,multiplicacion,division:real;
Begin
clrscr;
writeln('ingrese el primer valor:');
readln(Num1);
writeln('ingrese el segundo valor:');
readln(Num2);
suma:=Num1+Num2;
resta:=Num1-Num2;multiplicacion:=Num1*Num2;
division:=Num1/Num2;
writeln('la suma es:',suma);
writeln('la resta es:',resta);
writeln('la multiplicacion es:',multiplicacion);
writeln('ladivision es:',division);
repeat until keypressed;
end.
(*vamos a determinar con el siguiente programa el radio, perimetro y area de una circunferencia*)
Program radio_perimetro_area;
Uses crt;Var
diametro,radio,perimetro,area:real;
Begin
clrscr;
writeln('ingrese el valor del diametro:');
readln(diametro);
radio:=diametro/2;
perimetro:=2*Pi*radio;area:=Pi*radio*radio;
writeln('el radio es:',radio);
writeln('el perimetro es:',perimetro);
writeln('el area es:',area);
repeat until keypressed;
end.
(*vamos a saber con este programacual es el promedio de 3 numeros*)
Program promedio_de_tres_numeros;
Uses crt;
Var
Num1,Num2,Num3,suma,Promedio:real;
Begin
clrscr;
writeln('ingrese el primer numero:');
readln(Num1);writeln('ingrese el segundo numero:');
readln(Num2);
writeln('ingrese el tercer numero:');
readln(Num3);
suma:=Num1+Num2+Num3;
promedio:=suma/3;
writeln('el promedio de tres numeros es:',promedio);...
Regístrate para leer el documento completo.