Hodina 16., 17. (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(a);
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);

Hezky česky řečeno (Dokud platí "podmínka" dělej "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);

Hezky česky řečeno (Opakuj "příkazy" dokud nezačne platit "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 6a

- načítat čísla dokud <>0:

Příklad 6b

- spočítejte aritmetický průměr z čísel, která budete načítat čísla dokud <>0:

Příklad 6c

- spočítejte aritmetický průměr z čísel, která budete načítat čísla dokud <>0. Pozor na zadání nuly hned na začátku, aby to nehodilo chybovou hlášku:

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ě!
Zkuste program, který bude počítat faktoriál zadaného čísla.

Příklady na procvičení:

Zpět Vpřed

Home