6.4.. Napisati program za izračunavanje kvadrata upisanog broja.
Opis rješenja: Prvo se upisuje vrijednost broja (ulaz). Izračunavanje kvadrata upisanog broja može biti i množenje broja sa samim sobom (x * x). Na kraju program se izvodi ispis.
Opis programa: Na početku programa se nalaze naredbe za deklarisanje tipa varijabli (dio VAR). Zatim se upisuje vrijednost varijable x. Obrada se izvodi sa y := x * x. Ispis vrijednosti je na kraju.
Tabela 2.5. Izračunavanje
Tekstualni algoritam |
Listing programa |
Ekran |
|
PROGRAM PP2_5; |
|
|
VAR |
|
|
x, y : Real; |
|
|
BEGIN |
|
|
Write('Broj '); |
|
l. upisati x |
Readln(x); |
Broj 3 |
2. izračunati y |
y := x * x; |
|
3. ispisati x i y |
Writeln('x = ', x, 'y = ',y); |
x = 3.000000E+00 y = 9.000000E+00 |
|
END. |
|
Listing programa:
PROGRAM PP2_5;
VAR { deklarisanje promjenljivih }
x, y : Real; { realne promjenljive }
BEGIN
WRITELN('Kvadrat upisanog broja'); { naslov }
Write('Broj '); { ulazna promjenljiva }
Readln(x); { ulaz - ucitavanja promjenljiva }
y := x * x; { obrada - proracun }
Writeln('x = ', x, ' y = ',y); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|