Linux

Programación I
Augusto Aranda

Program practico1;
var base:real;
altura:real;
area:real;
begin
write('ingrese la base del triangulo: ');
readln(base);write('ingrese la altura: ');
readln(altura);
area:= (base * altura)/ 2;
write('El area del triangulo es: ',area:0:1);
readln();
end.

Program practico2;
var Dividendo, Divisor,Cociente, Resto : Integer;
begin
Write( 'Introduzca dividendo (entero): ' );
ReadLn( Dividendo );
Write( 'Introduzca divisor (entero): ' );
ReadLn( Divisor );
Cociente :=Dividendo div Divisor;
Resto := Dividendo mod Divisor;
Write( Dividendo, ' div ', Divisor, ' = ',
Cociente, ' ( Resto = ', Resto, ' )' );
readln();
end.

Program practico3;var num:real;
begin
write('Ingrese numero (real): ');
readln(num);
if num <0 then
writeln(-num);
if num >0 then
writeln(-num);
readln();end.

Program practico4;
var
num1:integer;
num2:integer;
media:real;
begin
writeln('Introduzca solo numeros mayores a cero: ');
write('Introduzca numero: ');readln(num1);
write('Introduzca el siguiente numero:');
readln(num2);
if (num1 >0) and (num2 >0) then
media:= (num1 + num2)div 2;
writeln('La media aritmetica es:',media:0:1);
readln();
end.

Program practico5;
var num1:integer;
num2:integer;
suma:integer;
begin
write('Introduzca el prirmer numero: ');
readln(num1);write('Introduzca el segundo numero:');
readln(num2);
suma:= num1 + num2;
if (suma >0) then
write('La suma si es mayor que cero')
else
write('La suma no esmayor que cero');
readln();
end.

Program practico6;
var num1:integer;
num2:integer;
num3:integer;
begin
write('Introduzca primer numero: ');
readln(num1);...