7.2.. Od tri upisana broja (a, b, c) sa tastature naći najveći.
Opis rješenja: Vrijednosti tri broja se učitavaju sa tastature. Nova varijabla max prima vrijednost varijable a. Zatim poredimo da li je b veće od max, ako jeste tad max postaje b. Slijedeće poređenje je da li je c veće od max. Ako je c veće od max tad je to nova vrijednost max.
Opis programa: Algoritam nalaženja najvećeg broja je dat u opisu rješenja. Po upisu vrijednosti varijabli a, b i c postavlja se početna vrijednost varijable max. Logičkim izrazom b>max u naredbi IF se provjerava da li je vrijednost varijable b veća od pretpostavljenog maksimuma. Ako je logički izraz istinit mijenja se vrijednost varijable max. Isto poređenje i po potrebi zamjena se obavlja u slijedećoj naredbi IF. Ispis vrijednosti je na kraju.
Tabela 7.6. Od tri upisana broja naći najveći
Tekstualni algoritam |
Listing programa |
Ekran |
|
PROGRAM PP3_6; |
|
|
VAR |
|
|
a, b, c, max: Real; |
|
|
BEGIN |
|
|
Write('Vasa tri broja '); |
Vasa tri broja |
1. upis tri broja a,b,c |
Readln(a, b, c); |
3 2 5 |
2. max=a |
max := a; |
|
3. ako je b>max tada je max=b |
IF b>max THEN
max := b; |
|
4. ako je c>max tada je max=c |
IF c>max THEN
max := c; |
|
|
Writeln('Od brojeva ', a, ' ', b, ' ', c); |
Od brojeva 3.0000000000E+00 2.0000000000E+00 5.0000000000E+00 |
5. ispisati a,b,c,max |
Writeln('najveci je ', max); |
najveci je 5.0000000000E+00 |
|
END. |
|
Listing programa:
PROGRAM PP7_6;
USES
WinCrt;
VAR
a, b, c, max: Real;
BEGIN
Write('Vasa tri broja ');
Readln(a, b, c);
max := a; {pretpostavi broj a je max}
IF b>max THEN {da li b veci?}
max := b; {drugi je veci od prvog i postaje novi max }
IF c>max THEN {da li je c veci od trenutnog maksimuma?}
max := c; {treci je max}
Writeln('Od brojeva ', a, ' ', b, ' ', c);
Writeln('najveci je ', max);
END.
Ispis na ekranu:
Index
|
|