Pascal - Procedury i funkcje

Wypisywanie liczb

Wypisywanie liczb
Pascal - Procedury i funkcje

Program: przepisujący podane wartości z dokładną adnotacją.

Program pobiera 8 liczb podanych przez użytkownika następnie je wypisuje w pętli wraz z odpowiednim numerem w tablicy.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program tabla;
uses crt;
var
   x,i:integer;
   table:array[0..7] of integer;

procedure wypisywanie;
var
   x,i:integer;
begin
     i:=0;
     repeat
     writeln('Podaj liczbe ',i+1);
     readln(table[i]);
     i:=i+1;
     until i=8;
end;

begin
     clrscr;
     wypisywanie;
     for i:=0 to 7 do
     writeln('Libcza ',i+1,' to ',table[i]);
     readln;
end.