Tři typy cyklů

V tomto programu jsou použity všechny 3 typy cyklů. Každý z nic dělá totéž.
Zkoušení bude spočívat v tom, že dostanete podobný program, kde však bude jediný typ cyklu a vy budete muset dopsat zbylé dva.

Všimněte si prosím záludného použití proměnné POM !

(ideální by bylo udělat simulační tabulku tohoto programu...)


program nasobilka;
uses crt;
var a, b, c, i,j,pom, klavesa: integer;

begin
  repeat {to je zacatek cyklu, ktery konci tim until dole:
         program se bude motat dokola, dokud nekdo nezmackne klavesu 1}
     clrscr;  {to je vymazani obrazovky}
     writeln ('zadej cislo, kterym se zacne nasobit');
     readln  (A);
     clrscr;  {to je vymazani obrazovky}
     writeln ('zadej cislo, kterym se skonci nasobit');
     {writeLN napise text a ukonci radek (na rozdil od write)}
     readln  (B);
     writeln ('zadej cislo, ktere se bude nasobit');
     {writeLN napise text a ukonci radek (na rozdil od write)}
     readln  (C);
     pom:=a;
     writeln ('for -----------------------------------------');

     for i:=A to B  do

         writeln (i,  ' x  ',c , ' =',i * c);

        {napise obsah promenne i, pak znacku nasobeni...}
     writeln ('repeat -----------------------------------------');
     repeat

         writeln (a,  ' x  ',c , ' =',a * c);

         a:=a+1;

     until a>b;

     writeln ('while -----------------------------------------');
     a:=pom;
     while a<=b do

         begin

                  writeln (a,  ' x  ',c , ' =',a * c);

                  a:=a+1;

         end;

     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');
     readln (klavesa);
   until klavesa<>1;
  {zde konci cyklus repeat}
 end.