Hodina 15., 16. (7.11. 2005)

Programování - základní pojmy:

Test 1

Cyklus A (s podmínkou na začátku):

while (podmínka) do (příkazy);

Příklad - vypsání x hvězdiček

var x:integer;
begin
   write('Zadej počet hvězdiček: ');
   readLn(x);
   while x>0 do
     begin
        writeln('*');
        x:=x-1;
     end;
   read(x);
end.

Cyklus B (s podmínkou na konci):

repeat (příkazy) until (podmínka);

Příklad - vypsání x hvězdiček

var x:integer;
begin
   write('Zadej počet hvězdiček: ');
   readLn(x);
   repeat
     begin
        writeln('*');
        x:=x-1;
     end;
    until x>0;
   read(x);
end.

Porovnejte v praxi oba cykly!!!

Příklad 6 - načítat čísla dokud <>0:

Domácí úkol:

• Spřátelit se s pascalem. Naučit se kompilovat (Compile -> Compile = Alt + F9 ) a spouštět (Run -> Run = Ctrl + F9 ) programy.
• Aritmetický průměr několika čísel ukončených nulou. (A ta nula nesmí kazit průměr!!!)

Příklady na procvičení:

1. Máte v jednom hrníčku olej, ve druhém mléko, potřebujete aby to bylo obráceně, jak to uděláte aniž by bylo cokoli vylito? Popište postup.
2. Viz minulý příklad, ale teď vytvořte vývojový diagram pro výměnu obsahů dvou proměnných.
3. Vytvořte vývojový diagram pro výpočet obvodu čtverce.
4. Vytvořte vývojový diagram pro převod jednotek např. m->mm, km/h->m/s, h->s, l->dm³,...
5. Vytvořte vývojový diagram pro zjištění lichosti, sudosti u libovolného čísla.
6. Vytvořte vývojový diagram pro výpočet kořenů kvadratické rovnice.
7. Vytvořte vývojový diagram pro převod libovolného čísla desítkové soustavy na dvojkovou.
8. Vytvořte vývojový diagram pro zjištění které ze dvou čísel je větší.