Necesito ayuda para hace un programa en lenguaje Pascal
Necesito unos cuantos consejos para hacer un programa en pascal pues apenas eh incursionado en este tema y se me complica un poco.
¿? Es:
Como hacer un programa
Que te pregunte si quieres que ejecútela operación y que tenga como respuestas s/n.
Y que al responder si, el programa ejecute, y al decir no el programa salga.
Dicho programa es: el de comparar 3 números y decir cual es el mayor.
¿? Es:
Como hacer un programa
Que te pregunte si quieres que ejecútela operación y que tenga como respuestas s/n.
Y que al responder si, el programa ejecute, y al decir no el programa salga.
Dicho programa es: el de comparar 3 números y decir cual es el mayor.
1 respuesta
Respuesta de ivanic
1
Cada linea(sentencia) termina con un punto y coma.
Readkey lee la tecla que se pulse en el teclado.
Espero te sirva.
program decision;
uses crt;
Var
num1,num2,num3,mayor:integer;
resp:char;
begin
clrscr;
repeat
clrscr;
writeln('introduzca los tres numeros : ');
readln(num1,num2,num3);
if(num1>num2) and (num1>num3) then
mayor:=num1
else
if (num2>num1) and (num2>num3) then
mayor:=num2
else
if (num3>num1) and (num3>num2) then
mayor:=num3;
writeln(' El numero mayor es : ',mayor);
writeln;
writeln(' Desea procesar otros numeros(s/n) : ');
resp:=readkey;
until((resp='n') or (resp='N'));
end.
Readkey lee la tecla que se pulse en el teclado.
Espero te sirva.
program decision;
uses crt;
Var
num1,num2,num3,mayor:integer;
resp:char;
begin
clrscr;
repeat
clrscr;
writeln('introduzca los tres numeros : ');
readln(num1,num2,num3);
if(num1>num2) and (num1>num3) then
mayor:=num1
else
if (num2>num1) and (num2>num3) then
mayor:=num2
else
if (num3>num1) and (num3>num2) then
mayor:=num3;
writeln(' El numero mayor es : ',mayor);
writeln;
writeln(' Desea procesar otros numeros(s/n) : ');
resp:=readkey;
until((resp='n') or (resp='N'));
end.
