مساهماتي
نقاطي
من طرف جميع الحلول مكتوبر على برنامج تربو باسكال 7 لويندوز
حل تمارين الفصل الأول
السؤال الأول
- الكود:
program solve_ch3_1;
uses wincrt; (* to clear the screen, works only with turbo pascal for windows *)
var
H,X : real;
i : integer;
begin
H:= 0 ; (* Downloaded from http://YoungDreams.ibda3.org *)
i:= 1 ;
while i <= 50 do
begin
X:= 1/i;
H:= H+x;
i:=i+1;
end;
write('H = ',H : 6 : 3);
end.
السؤال الثاني
- الكود:
program solve_ch3_2;
uses wincrt; (* to clear the screen, works only with turbo pascal for windows *)
var
H,X : real;
i,n : integer;
begin (* Downloaded from http://YoungDreams.ibda3.org *)
H:= 0 ;
i:= 1 ;
write('Input n value : ');
readln(n);
while i <= n do
begin
X:= 1/i;
H:= H+x;
i:=i+1;
end;
write('H = ',H : 6 : 3);
end.
السؤال الثالث
- الكود:
program solve_ch3_3;
uses wincrt; (* to clear the screen, works only with turbo pascal for windows *)
var
S,X : real;
i,n : integer;
begin (* Downloaded from http://YoungDreams.ibda3.org *)
S:= 0 ;
i:= 1 ;
write('Input n value : ');
readln(n);
while i <= n do
begin
X:= 1/(3*i);
S:= S+x;
i:=i+1;
end;
write('S = ',S : 6 : 3);
end.
السؤال الرابع
- الكود:
Program Solve_ch3_4;
uses wincrt; (* to clear the screen, works only with turbo pascal for windows *)
var
n,k : integer;
S : longint;
begin (* Downloaded from http://YoungDreams.ibda3.org *)
write('Input n value : ');
readln(n);
k:=1;
S:=1;
while k <= n do
begin
S:=S*(n-k+1);
k:=k+1;
end;
write(n,'! = ',S);
end.
السؤال الخامس
- الكود:
program solve_ch3_5;
uses wincrt; (* to clear the screen, works only with turbo pascal for windows *)
var
S,X,i : integer;
begin (* Downloaded from http://YoungDreams.ibda3.org *)
S:=0; X:=0;
i:=10;
while i < 28 do
begin
i:=i+2;
S:=S+i;
end;
write(S);
end.
» شرب الماء والمؤذن يؤذن لصلاة الفجر
» صلاة التراويح
» حكم النوم طيلة النهار في رمضان
» كود css | كل النسخ | وضع صورة خلفية لعلبة الدردشة
» طرائف رمضانية
» حديث تقشعر له الأبدان
» حب لا يموت!!!
» من هو تشي جيفارا
» دعاء يجعل الجنة تشتاق إليك