نادي أحلام شبابية


    حل تمارين مقرر البرمجة بلغة التربو باسكال - سنة أولى رياضيات

    شاطر
    avatar
    HaSaN
    المستوى 5

    المستوى 5

    ذكر
    سورية

    احترام القوانين 100 %
    تاريخ التسجيل : 08/11/2009
    مساهماتي مساهماتي : 888
    نقاطي نقاطي : 27
    مواضيعي : 253
    من أحلامي : أن أبعث الأمل في نفس الآخرين

    SMS
    Live Free
    Or
    Die Hard
    المنتخب المفضل : الأرجنتين
    برشلونة تشيلسي
    المدير العام - رمضان كريم

    نادي أحلام شبابية حل تمارين مقرر البرمجة بلغة التربو باسكال - سنة أولى رياضيات

    مُساهمة من طرف HaSaN في 25/2/2010, 5:18 pm


    جميع الحلول مكتوبر على برنامج تربو باسكال 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.




      الوقت/التاريخ الآن هو 18/10/2018, 11:08 pm