7.1.. Sa tastature upisati broj. Ako je jednak nuli napisati "BROJ JE NULA".
Opis rješenja: Sa tastature se upisuje vrijednost varijable a. Zatim se sa logičkim izrazom a = 0 u naredbi IF izvodi poređenje da li je upisana vrijednost nula. Ako je logički izraz istinit na ekranu se ispisuje "BROJ JE NULA", inače za ostale slučajeve nema ispisa.
Opis programa: Poslije upisa vrijednosti broja a (Readln(a)) izvodi se provjera vrijednosti varijable a (da li je = 0). Provjera se izvodi sa logičkim izrazom a = 0 u naredbi IF. Naredba IF se sastoji od logičkog izraza i obrade. Logički izraz (a = 0) je istinit kad je upisana vrijednost sa tastature nula. Za tu vrijednosti na ekranu će se ispisati BROJ JE NULA. Inače (za ostale slučajeve) nema ispisa.
Listing programa:
PROGRAM P07111017;
VAR
a: Real;
BEGIN
Write('Vas broj ');
Readln(a);
IF a = 0 THEN
Writeln('BROJ JE NULA');
READLN;
END.
Ispis na ekranu:
Index
|