3 Proměnné a jejich deklarace
proměnná = místo na uložení
dat
deklarace proměnných: klíčové slovo var <seznam
proměnných> : <typ>
příklad:
var Radek, Sloupec : Integer;
Prumer : Real;
Integer jsou celá čísla, Real jsou reálná čísla
poznámka:
- velká a malá písmenka
jsou Pascalovi lhostejná, zde je uvádím pro přehlednost,
piš si to jak chceš!
- Čerstvě
delkarovaná hodnota má počítačem náhodně
vygenerovanou hodnotu, nejdřív do ní musíme vložit počáteční
hodnotu!!!! Udělá to:
3.1 Přiřazovací příkaz
<proměnná> := <výraz>
příklad:
Radek := 4;
Sloupec := Radek + 1;
Radek := Radek + 1; -------> ve
výrazu se může vyskytnout cílová proměnná!!!!
3.2 Vstup a výstup hodnot
3.2.1 Vstup
Read (<seznam proměnných>) -----> seznam proměnných
musí být oddělen čárkami:
příklad:
- Read (Prumer);
- Read (Radek, Sloupec);
3.2.2 Výstup
Write (<seznam výrazů>)
příklad:
- Write ('Prumerna spotreba:
', Prumer);
- Write ( 80 * Radek +
Sloupec );
3.3 Složený příkaz
begin
<prikaz1>
<prikaz2>
<prikaz3>
........
<prikazN>
end
- begin a end = programové
závorky
3.4 Podmíněný příkaz
3.4.1 neúplný
if <podmínka> then
<prikaz>
příklad:
if sloupec < 0 then
sloupec := - sloupec
3.4.2 úplný
if <podmínka> then
<prikaz1>
else
<prikaz2>
vnoření podmínek
if <podmínka> then
begin
if <podmínka2> then
<prikaz1>
else
<prikaz2>
end
3.5 Cykly
3.5.1 while cyklus
while <podminka> do
<prikaz>
- dokud platí podmínka,
opakuj příkaz
program zcdelit.pas
|
program NejvDelitel;
var A, B : Integer;
begin
Write ( 'Největší společný dělitel ' );
Write ( 'Zadejte dvě čísla ' );
Read ( A, B );
while A <> B do
if A > B then A := A - B
else B := B - A;
Write ( 'Největší společný dělitel je ', A );
end.
|
A<>B znamená A se nerovná B
|
|
|
co by se mohlo hodit?
Borland editor pod DOSem:
- CTRL + INSERT -
kopíruj blok (copy)
- SHIFT + INSERT - vlož
blok (paste)
- CTRL + KH - zruš
označení bloku
- ALT 60 je <
- ALT 62 je >
cvičení:
- Jak to dopadne, zadáš-li
zápornou hodnotu proměnných A a B? Napiš sledovací
tabulku pro použité proměnné!
- Vytvoř test, zda-li je
opravdu zadáváno kladné číslo a program takto uprav! ...řešení
3.5.2 repeat cyklus
repeat
<prikaz1>;
<prikaz2>;
...............
<prikazN>
until <podminka>
příklad:
repeat
write ('Zadej kladné číslo: ');
read (cislo);
if cislo <= 0 then
write ('Cislo ', cislo,
'neni kladne!');
until cislo >0;
cvičení:
- Napiš tuto část
programu za pomocí cyklu while! ...
a řešení
Poznámka:
- Repeat cyklus se
provede alespoň jednou.
- While se nemusí
provést ani jednou!
- While cyklus běží
tak dlouho, dokud platí jeho podmínka.
- Repeat se chová opačně
- jakmile podmínka platí, skončí!
© 2001
aktualizace:
27.11.2003 17:33:45
Powered by Notepad editor.
Copyright © 2001 by !!!Protiproud!!! All rights reserved.
Revised:
27 XI 2003 17:33:45 +0100
.