{Mira si esto te ayuda}
program mates;
uses
crt;
type
operac = record
dat1 : longint;
dat2 : longint;
resu : real;
end;
const
num = 6;
var
func : array[1..num] of operac;
cont : integer;
tecl : char;
procedure muesta_del_array;
var
tt : integer;
begin
writeln('Presentacion De Las Operaciones'); writeln;
for tt := 1 to cont - 1 do
begin
if func[tt].dat2 > 0 then
writeln(func[tt].dat1,'----',func[tt].dat2,'----',
func[tt].resu:0:2)
else
writeln(func[tt].dat1,'--Raiz--',func[tt].resu:0:2)
end;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure suma;
begin
writeln('Calculo De La Suma De Dos Numeros'); writeln;
write(' Entre Num. 1 : '); readln(func[cont].dat1);
write(' Eltre Num. 2 : '); readln(func[cont].dat2);
func[cont].resu := func[cont].dat1 + func[cont].dat2;
writeln(' El Resultado Es : ', func[cont].resu:0:0); cont := cont + 1;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure resta;
begin
writeln('Calculo De La Resta De Dos Numeros'); writeln;
write(' Entre Num. 1 : '); readln(func[cont].dat1);
write(' Eltre Num. 2 : '); readln(func[cont].dat2);
func[cont].resu := func[cont].dat1 - func[cont].dat2;
writeln(' El Resultado Es : ',func[cont].resu:0:0); cont := cont + 1;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure multiplicacion;
begin
writeln('Calculo De La Multiplicacion De Dos Numeros'); writeln;
write(' Multiplicando Num. : '); readln(func[cont].dat1);
write(' Multiplicador Num. : '); readln(func[cont].dat2);
func[cont].resu := func[cont].dat1 * func[cont].dat2;
writeln(' El Resultado Es : ',func[cont].resu:0:0); cont := cont + 1;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure division;
begin
writeln('Calculo De La division De Dos Numeros'); writeln;
write(' Dividendo Num. : '); readln(func[cont].dat1);
write(' Divisor Num. : '); readln(func[cont].dat2);
func[cont].resu := func[cont].dat1 / func[cont].dat2;
writeln(' El Resultado Es : ',func[cont].resu:0:2); cont := cont + 1;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure porciento;
begin
writeln('Calculo Del Tanto 100 De Un Valor'); writeln;
write(' Cantidad Num. : '); readln(func[cont].dat1);
write(' Tanto Por 100 Num.: '); readln(func[cont].dat2);
func[cont].resu := (func[cont].dat1 * func[cont].dat2) / 100;
writeln(' El Resultado Es : ',func[cont].resu:0:2); cont := cont + 1;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure raizcuadrada;
begin
writeln('Calculo De Raiz Cuadrada De Un Numero'); writeln;
write(' Numero Num. : '); readln(func[cont].dat1);
func[cont].dat2 := 0;
func[cont].resu := Sqrt(func[cont].dat1);
writeln(' El Resultado Es : ',func[cont].resu:0:2); cont := cont + 1;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure menu;
var
fin : boolean;
begin
fin := false;
repeat
clrscr;
writeln('<<<<< Menu Mates >>>>>'); writeln;
writeln(' 1 = Suma'); writeln(' 2 = Resta'); writeln(' 3 = Multiplicacion'); writeln(' 4 = Division'); writeln(' 5 = Tanto por Ciento'); writeln(' 6 = Raiz Cuadrada'); writeln(' 7 = Muestra Array Registros'); writeln(' 8 = Salir'); writeln;
writeln('***** Elija Opcion *****'); repeat
tecl := readkey;
until tecl in[#49..#56];
case tecl of
#49 : begin clrscr; suma; end;
#50 : begin clrscr; resta; end;
#51 : begin clrscr; multiplicacion; end;
#52 : begin clrscr; division; end;
#53 : begin clrscr; porciento; end;
#54 : begin clrscr; raizcuadrada; end;
#55 : begin clrscr; muesta_del_array; end;
#56 : fin := true;
end;
until fin = true;
end;
begin
cont := 1;
menu;
end.
Crear cuenta