Hodina 17., 18. (7.11. 2005)

Programování - základní pojmy:

Test 1

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í:

var a,b,d:integer;
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
      begin
	     d:=a div b;
         writeln('Výsledek po celočíselném dělení A/B=',d);
	  end;
   read(p);
end.

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

var a,b,d:integer;
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
      begin
	     d:=a mod b;
         writeln('Zbytek po dělení A/B=',d);
	  end;
   read(p);
end.

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

var a,b,c,d:integer;
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
      begin
	     c:=a div b;
		 d:=a mod b;
         writeln('A/B=',c,' a zbytek ',d);
	  end;
   read(p);
end.

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