12.5.12. Ispisati tablicu množenja do 10.

Opis rješenja: I varijanta sadrži ispis proizvoda dva broja sa dvije petlje brojevi se množe u intervalima od 1 do 10.

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM p12500012;

 

2

USES WinCRT;

 

3

VAR

 

4

  i,j,p: Integer;

 

5

BEGIN

 

6

  FOR i:=1 TO 10 DO

 

7

    FOR j:=1 TO 10 DO

 

8

      BEGIN

 

9

        p:=i*j;

 

10

        Writeln(i,'*',j,'=',p);

 

11

      END;

 

12

END.

 

Listing programa:

PROGRAM p12500012;
USES WinCRT;
VAR
  i,j,p: Integer;
BEGIN
  FOR i:=1 TO 10 DO
    FOR j:=1 TO 10 DO
      BEGIN
        p:=i*j;
        Writeln(i,'*',j,'=',p);
      END;
END.
II varijanta Ispis tablice množenja u tabeli PROGRAM p12500012_2; USES WinCRT; VAR i,j,p: Integer; BEGIN Write(' i*j 1'); FOR j:=2 TO 10 DO Write(j:4); Writeln; FOR i:=1 TO 10 DO BEGIN Write(i:2, ' '); FOR j:=1 TO 10 DO BEGIN p:=i*j; Write(p:4); END; Writeln; END; END.

II varijanta sadrži tabelaran ispis rješenja prve varijante programa:

Ispis na ekranu:

Index