Program nalada: jednoduché využití procedur

poměrně primitivní program k demonstraci použití procedur
všimněte si procedury baybay a užitečného použití příkazu delay

úkol: doplňte další otázky a další možnosti vyhodnocení




program nalada;

uses crt;

var a, celkem,odpoved1,odpoved2, odpoved3, klavesa:integer;


procedure zakl_nastav;
begin
     celkem:=0;
end;


procedure dotazy;
begin;
      writeln ('je sobota 1/0?');
      readln (odpoved1);
      writeln ('jsi najeden 1/0?');
      readln (odpoved2);
      writeln ('ma te rad(a) 1/0?');
      readln (odpoved3);
end;

procedure vyhodnoceni;
begin
     celkem:=odpoved1+odpoved2+odpoved3;
     if celkem = 3 then       writeln ('je to bomba');
     if celkem = 2 then       writeln ('docela to de');
     if celkem = 1 then       writeln ('trochu depka');
     if celkem = 0 then       writeln ('fuuuj');
end;

procedure este;
begin
     writeln ('este 1/0');
     readln (klavesa);
end;

procedure baybay;
begin
     clrscr;
     writeln ('(c) MV 2009');
     delay (1000);
end;


BEGIN
   repeat
     zakl_nastav;
     dotazy;
     vyhodnoceni;
     este;
   until klavesa<>1;
     baybay;

END.