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