Pascal/Turbo Pascal - Ayuda con numeros aleatorios reales (archivos/ficheros)

 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 30 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con numeros aleatorios reales (archivos/ficheros)

Publicado por Mila (1 intervención) el 12/08/2018 18:59:09
Buenas Tardes. Tengo que realizar un ejercicio de temperaturas (las temperaturas tengo que realizarlas aleatoriamente y de tipo real). Segun unas respuestas que vi en este foro, encontre esta forma de hacerlo:

randomreal

Y ejecutandolo me sale todo en notacion exponencial:

randomexponencial

Cuando modifico la salida para que solo tome dos decimales, de esta forma:

modificarsalidarandom

Pierdo automáticamente los decimales que tenia en la notacion exponencial(de los cuales me sirven, ya que las temperaturas no son exactas):

randomdecimal

Es lo primero que tengo que hacer del ejercicio y no lo puedo resolver! Alguien me puede ayudar, por favor?
Intente cambiar los datos de 1000,100,10 para ver si variaba pero sigo perdiendo datos.
Otros datos: +En este ejercicio estoy creando el archivo donde van a estar estas temperaturas generadas.
+Utilizo el compilador Geany
+Estoy creando un archivo de tipo texto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con numeros aleatorios reales (archivos/ficheros)

Publicado por dario (87 intervenciones) el 13/08/2018 05:18:43
Hola, tu mismo codigo arreglado.
Salu2.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
   x,entero,decimal:integer;
   y,num:real;
begin
    clrscr;
    num:=0;
    randomize;
    for x:=1 to 10 do begin
        entero:=random(1000);
        decimal:=random(100);
        num:=decimal / 100;
        y:=entero+num;
        writeln(y:4:2);
    end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar