Scribd
Cargar
2 vistas2 páginas

Programas Pascal Completos

El documento contiene varios programas en Pascal que realizan diferentes operaciones matemáticas. Incluye programas para convertir Celsius a Fahrenheit, sumar, calcular el área de un rectángulo y un triángulo, multiplicar y dividir números. Cada programa está estructurado con variables y funciones básicas de entrada y salida.

Cargado por

ariatnaromero002
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
2 vistas2 páginas

Programas Pascal Completos

El documento contiene varios programas en Pascal que realizan diferentes operaciones matemáticas. Incluye programas para convertir Celsius a Fahrenheit, sumar, calcular el área de un rectángulo y un triángulo, multiplicar y dividir números. Cada programa está estructurado con variables y funciones básicas de entrada y salida.

Cargado por

ariatnaromero002
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Programas en Pascal

1(1).pas
program CelsiusFahrenheit;
(*1. programa que convierte los celcius a faherenheit.*)

var
c, f: Real;
begin
ReadLn(c);
f := (c * 9/5) + 32;
WriteLn('Fahrenheit: ', f:0:2); ReadLn;

readln;
end.

2(1).pas
program SumaReales;
(*[Link] que suma numeros.*)
var
a, b, suma: Real;
begin
Write('Ingrese el primer numero: ');
ReadLn(a);
Write('Ingrese el segundo numero: '); ReadLn(b);
suma := a + b;
WriteLn('La suma es: ', suma:0:2);
ReadLn;
end.

[Link]
program AreaRectangulo;
(*[Link] que arroja el area de un rectangulo.*)
var
b, h, a: Real;
begin
ReadLn(b, h);
a:= b * h;
WriteLn('Area: ', a:0:2);
readln;
end.

[Link]
program AreaTriangulo;
(*[Link] que arroje el are de un triangulo.*)
var
b, h, a: Real;
begin
ReadLn(b, h);
a:= (b * h) / 2; WriteLn('Area: ', a:0:2);
readln;
end.

[Link]
program Multiplicacion;
(*[Link] que multiplica numeros.*)
var
a, b, r: Real;
begin
ReadLn(a, b);
r := a * b;
WriteLn('Resultado: ', r:0:2);
readln;
end.

[Link]
program Division;
(*[Link] que divide numeros.*)
var
a, b, d: Real;
begin
ReadLn(a, b);
d := a / b;
WriteLn(d);
readln;
end.

También podría gustarte