Hodina 11., 12. (24.10. 2005)

Programování - základní pojmy:

Test 1

Příklad 3b - načtení hodnoty a vypsání hlavičky se zadanou hodnoutou (0-99):

var p,c:integer;
begin
   write('Zadej cislo v rozsahu 0-99: ');    {vypíše na obrazovku text: Zadej cislo v rozsahu 0-99: }
   readLn(c);                                {uloží námi zadané číslo z klávesnice po stisknutí tlačítka enter do proměnné c}
   if c<10 then                              {Pokud je číslo c<10, tak postupně provede kroky}
      begin
         writeLn('*****');                   {vypíše na řádek 5 hvězdiček a odřádkuje}
         write('* ');                        {vypíše jednu hvězdičku s mezerou a hned za ní...}
         write(c);                           {...hodnotu proměnné c...}
         writeLn(' *');                      {...a hned mezeru a hvězdičku a opět odřádkuje}
         writeLn('*****');                   {vypíše 5 hvězdiček a skočí na další řádek}
      end
   else if c<100 then
      begin
         writeLn('******');
         write('* ');
         write(c);
         writeLn(' *');
         writeLn('******');
      end;
      else writeln('Zadali jste spatnou hodnotu!');
   read(p);
end.

Příklad 4 - sečíst tři zadaná čísla:

var a,b,c,d:integer;
begin
   write('Zadej cislo A: ');
   readLn(a);
   write('Zadej cislo B: ');
   readLn(b);
   write('Zadej cislo C: ');
   readLn(c);
   d:=a+b+c;
   writeln('Součet A+B+C=',d);
   read(p);
end.

Příklad 5a - získat výsledek po dělení (A/B - nezapomeňte ošetřit, že B<>0):

var a,b:integer;
    d:real;
begin
   write('Zadej cislo A: ');
   readLn(a);
   write('Zadej cislo B: ');
   readLn(b);
   if B=0 then writeln('Zadali jste nulu a tou nelze dělit!!!');
   else d:=a/b;
   writeln('Výsledek po dělení A/B=',d);
   read(p);
end.

Příklad 5b - celočíselné dělení (DIV):

Příklad 5c - dělení se zbytkem (MOD):

Příklad 5d - vypsat celé číslo a zbytek po dělení:

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!!!

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.
• Dodělat to co jste nezvládli v hodině!
• Vyzkoušejte si oba příklady na hvězdičky a objevte rozdíly!
• Zkuste program, který bude načítat čísla dokud <>0, pak ukočí činnost.

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ší.