PROGRAMA PARA GENERAR NÚMEROS ALEATORIOS EN LENGUAJE PASCAL
Program aleatorio;
Uses
Crt;
Var
x,y : Real;
i,a,b,c : Integer;
salto,seguir : Char;
Procedure lectura
Begin
ClrScr;
Write(' Teclea el valor del número máximo a calcular ');
Readln(a);
Writeln;
Writeln(' ¿ Cuántos números se van a calcular ? ');
Readln(c);
ClrScr;
End;
Procedure determina;
Begin
y:=random(a);
x:=(y*100)/100;
b:=int(x);
End;
Procedure salida;
Begin
ClrScr;
Write(' El número aleatorio obtenido es => ');
Writeln(b);
salto:=readkey;
ClrScr;
End;
Begin
Randomize;
seguir:='s';
ClrScr;
While ((salto='s') or (salto='S')) do
Begin
lectura;
For (i:=1 to c) do
Begin
determina;
salida;
End;
ClrScr;
Write(' ¿ Deseas volver a ejecutar el programa (S/N) => ');
seguir:=readkey;
ClrScr;
End;
End.