Pascal - Konsolowe

Losowanie dwóch tablic

Losowanie dwóch tablic
Pascal - Konsolowe

Program: losujący dwie tablice.

Rozmiar tablicy jest zdefiniowany w kodzie programu, a same tablice (wartości) są generowane losowo. Program sam proponuje zakończenie prac.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program tablice2;
uses crt;
var
   i:integer;
   a:array[1..30] of real;
   a1:array[1..30] of real;
   odp:char;
begin
     randomize;
     clrscr;
     repeat
     writeln;
     for i:=1 to 30 do
         a[i]:=random(101)/10;
     for i:=1 to 30 do
         a1[i]:=a[i]/2;
     for i:=1 to 30 do
         write(a[i]:4:2,' ');
     writeln;
     writeln;
     writeln('Druga tablica:');
     for i:=1 to 30 do
         write(a1[i]:4:2,' ');
     writeln;
     writeln;
     writeln('Czy zakonczyc program T/N');
     readln(odp);
     until(odp='T') or (odp='t');
end.