Pascal - Procedury i funkcje

Rok

Rok
Pascal - Procedury i funkcje

Program: edytujący adekwatnie do podanej wartości rok.

W zależności od wprowadzonej przez użytkownika wartości zmienia rok z wieku XX jak i XXI.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program przez_zmienna;
uses crt;
var rok:integer;
procedure do_pelnej_formy(var r:integer);
begin
if r<100 then
   if r>14 then r:=r+1900
   else r:=r+2000;
   end;
begin
     clrscr;
     write('Podaj rok: '); readln(rok);
     do_pelnej_formy(rok);
     writeln('Podales rok: ',rok);
     readln;
end.