6.4.. Napisati program koji za ispis rezultata izraza: (x-y)/3.
Listing programa:
PROGRAM P06431055;
VAR { deklarisanje promjenljivih }
x , y, a : Real; { realne promjenljive }
BEGIN
WRITELN('Izraz'); { naslov }
Write('1. broj ');
Readln(x); { 1. broj }
Write('2. broj ');
Readln(y); { 2. broj }
a := (x - y) / 3; { izraz }
Writeln('x = ', x, ' y = ', y, ' (x-y)/3 = ', a); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|