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.

Tekstualni algoritam:

  Matematika Opis Pascal nardbe za ovaj zadatak Pascal obavezne naredbe Obavzne naredbe u Pascal programu
1. Zadatak: Kvadrata upisanog broja   PROGRAM Kvadrat; prva riječ i ime programa
2.       VAR dio sa varijablama
3. x, y cjelobrojne promjenljive x, s : INTEGER;    
4.       BEGIN početak naredbi
5. x Ulaz sa tastature READLN(x);    
6. y = x * x; obrada - proracun y := x * x;    
7. x i y izlaz - ispis WRITELN('x = ', x, ' y = ', y);    
8.       READLN; zaustavlja izvođenje
9.       END. kraj programa
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