fork(1) download
copy 
  1. Program test;
  2. uses crt;
  3. type
  4.    tabella = array[1..11,1..5] of integer;
  5. var
  6.    tab:tabella;
  7.    k,s:string;
  8.    f:integer;
  9.  
  10. procedure estrazione;
  11. var
  12.    a,b: integer;
  13.    trovato:boolean;
  14.    nEstratto: Integer;
  15.    aNumeri: array[1..90] of integer;
  16. begin
  17. randomize;
  18. for a := Low(aNumeri) to High(aNumeri) do
  19.   aNumeri[a] := 0;
  20. for a:=1 to 11 do
  21.    for b:=1 to 5 do
  22.    begin
  23.       while true do
  24.       begin
  25.         nEstratto := random(90+1);
  26.         if aNumeri[nEstratto] <> -1 then
  27.         begin
  28.            tab[a,b] := nEstratto;
  29.            aNumeri[nEstratto] := -1;
  30.            break;
  31.         end;
  32.      end;
  33.   end;
  34. end;
  35. Procedure scrivi;
  36. var
  37.    a,b,num,col:integer;
  38.     begin
  39.      num:=15;
  40.      col:=5;
  41.           for a:=1 to 11 do
  42.                begin
  43.                 gotoxy(num,col);
  44.                 for b:=1 to 5 do
  45.                         begin
  46.                          write (tab[a,b]:5);
  47.                         end;
  48.                 col:=col+1;
  49.                end;
  50.  
  51.  
  52.     end;
  53. begin
  54.         estrazione;
  55.         clrscr;
  56.         scrivi;
  57.         writeln(k);
  58. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   74   87   77   57   54
   73   56   67   78   50
   27   16   17   36   71
    1   14   11   58    9
   38   39   18   21   66
   40   82   31   32   59
    3   41   85   25    5
   44   28   43    0   76
   72   37   64   30   23
   75   26   53   42   81
    4   60   68   83   86
https://ideone.com/Qwruh
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!