Pascal – stáří versus mládí

Datum vydání: 2012-10-10 18:42:41; aktualizováno: 2019-11-24 06:51:56

Program podle věku určí, zda je člověk starý či mladý. Berte program s rezervou :).

Jde o jednoduchý příklad pro začátečníky pro procvičení podmínky if a čtení vstupů a výstupů.

Zdrojový kód Free Pascal

program Stari;
var vek: integer;
begin
  write('Zadej vek: ');
  readln(vek);
  if vek < 20 then
    write('Jsi jeste mlady, to se mas.')
  else
    write('Tak to jsi uz pekne stary :-).');
  readln;
end.

Zdrojový soubor

soubor stari.pas

Spuštění programu

Zadej vek: 14
Jsi jeste mlady, to se mas.