Subprograme

                                 

                                                                  
Un subprogram este un ansamblu ce poate conţine tipuri de date, variabile şi instrucţiuni destinate unei anumite prelucrări (calcule, citiri, scrieri). Subprogramul poate fi executat doar dacă este apelat de către un program sau un alt subprogram. În limbajul Pascal, subprogramele sunt de 2 tipuri: funcţii şi proceduri. 

Problema:
De la tastatura se citeste un numar. De inscris in fisier toate descompunerile in suma de 3 termeni diferiti de 0. Descompunerile la care difera ordinea termenilor, sint considerate aceleasi.

Rezolvare:

Uses CRT;

Var A:Real;

Procedure: Scrie(N:Integer);

Var F:Text;  B,N,M,:Integer;

Begin

          Assign(F,'date.out');  Rewrite(F);

For B:=0 To A-2 Do

For N:=X To A-2 Do

For M:=Y To A-2 Do

if B+N+M=N Then Writeln( F,B,'  ',N,'  ',M,' );

Close(F)  end;

Begin

          ClrScr;   Write('A=');  Read(A);  Write(A)

end.