Hodina 11., 12. (8.11. 2005)
Zde naleznete základní pojmy, bez kterých se programátor neobejde.
Programování - základní pojmy:
Příklad 3a - načtení hodnoty a vypsání hlavičky se zadanou hodnoutou:
var p,c:integer;
begin
write('Zadej cislo:');
readLn(c);
writeLn('*****');
write('* ');
write(c);
writeLn(' *');
writeLn('*****');
read(p);
end.
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(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í:
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.
Zpět Vpřed
Home