6.4.. Izračunati O, P i V kvadra (za poznate stranice a, b, c)

Za objaĆĄnjenje:

***

Listing programa

Opis

1

PROGRAM P06411082;

 

2

VAR

 

3

  a,b,c, p,v,o: Integer;

 

4

BEGIN

 

5

  write('Unesi stranice kvadra a,b,c ');

 

6

  readln(a,b,c);

stranice a, b, c

7

  o:=4*(a+b+c);

Ima 12 ivica, po 4 iste (a, b, c)

8

  p:=2*(a*b+a*c+b*c);

Po dvije iste površine ab, bc, ac

9

  v:=a*b*c;

Zapremina: proizvod 3 stranica abc

10

  writeln('O=',o,'   P=',p,'   V=',v);

ispis

11

END.

 

Listing programa:

PROGRAM P06411082;
VAR
  a,b,c, p,v,o: Integer;
BEGIN
  write('Unesi stranice kvadra a,b,c ');
  readln(a,b,c);
  O:=4*(a+b+c);
  P:=2*(a*b+a*c+b*c);
  V:=a*b*c;
  writeln('O=',O,'   P=',P,'   V=',V);
  READLN;
END.

Ispis na ekranu:

Index