Hodina 13., 14. (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(d);
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í:

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

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

Home