الموضوع الرابع: إنشاء برنامج بسيط على الباسكال:
برنامج اجراء عمليات الجمع :
Program pro;
Var
X,y:integer;
Function n:integer;
Begin
N:=x+y;
End;
Begin
Write('write your furst num : ');
Readln(x);
Write('write your second num : ');
Readln(y);
Write('x+y = ',n);
Readln;
End.
برنامج اجراء عمليات الجمع :
Program pro;
Var
X,y:integer;
Function n:integer;
Begin
N:=x+y;
End;
Begin
Write('write your furst num : ');
Readln(x);
Write('write your second num : ');
Readln(y);
Write('x+y = ',n);
Readln;
End.