6.4.. Izračunati aritmetičku sredinu dva broja.
Tekstualni algoritam:
|
Matematika |
Opis |
Pascal nardbe za ovaj zadatak |
Pascal obavezne naredbe |
Obavzne naredbe u Pascal programu |
1. |
Zadatak: |
Aritmetičku sredinu dva cijela broja |
|
PROGRAM Asr; |
prva riječ i ime programa |
2. |
|
|
|
VAR |
dio sa varijablama |
3. |
a, b, asr |
Realne promjenljive |
a, b, asr : Real; |
|
|
4. |
|
|
|
BEGIN |
početak naredbi |
5. |
a i b |
Ulaz sa tastature |
READLN(a, b); |
|
|
6. |
asr := (a+b)/2; |
obrada - proračun |
asr := (a+b)/2; |
|
|
7. |
a, b i asr |
Izlaz - ispis |
WRITELN('a= ', a, ' b= ', b, ' asr= ', asr); |
|
|
8. |
|
|
|
READLN; |
zaustavlja izvođenje |
9. |
|
|
|
END. |
kraj programa |
Listing programa:
PROGRAM P06411136;
VAR { deklarisanje promjenljivih }
a , b, asr : Real; { realne promjenljive }
BEGIN
WRITELN('Aritmeticka sredina'); { naslov }
Write('broj '); { ulazna promjenljiva }
Readln(a);
Write('broj ');
Readln(b); { ulaz - ucitavanja promjenljiva }
asr := (a+b)/2; { aritmeticka sredina }
Writeln('a = ', a, ' b = ', b, ' aritmeticka sredina = ', asr); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|