Em hãy viết đoạn chương trình con tính S = ax + by +cz

Bạn có thể dùng Procedure hoặc Function

Một số bài nếu tăng giá trị a,b,c theo từng đợt chạy thì dùng Procedure tiện hơn

Function calc(a,x,b,y,c,z: longint): longint;

Begin

     calc:=a*x+b*y+c*z;

End;

Khi dùng hàm này để tính 2.3+4.5+6.7

Thì bạn gọi hàm bằng cú pháp: calc(2,3,4,5,6,7);