حصريا~فرض الإعلامية الخاص باليوم_فـــ TPــرض ال 10.30~حصريا

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة jihed_1991, بتاريخ ‏20 ماي 2009.

  1. jihed_1991

    jihed_1991 مسؤول قسم السينما و الأغاني طاقم الإدارة

    إنضم إلينا في:
    ‏26 ديسمبر 2007
    المشاركات:
    11.180
    الإعجابات المتلقاة:
    27.169
      20-05-2009 12:08
    إمتحان الباك التطبيقية لليوم، 30 ماي 2009،

    حصريا من عند خوكم جهاد بعد دقائق من صدوره

    [​IMG]


     
    1 person likes this.
  2. DonCorleoneM

    DonCorleoneM عضو مميز

    إنضم إلينا في:
    ‏4 ديسمبر 2007
    المشاركات:
    1.257
    الإعجابات المتلقاة:
    333
      20-05-2009 12:11
    program DonCorleoneM;
    uses wincrt;

    var n,x,i,j,p,k:integer;

    begin
    write('entrer le nombre de ligine : ');
    readln(n);
    writeln('');
    writeln('');

    x:=1; { nombre d'etoile **
    p:=40; { nombre d'espace initiale : disons au milieu puis on fait le retrait **

    for i:=1 to n do

    begin

    for j:=1 to p do

    write(' ');

    for k:=1 to x do
    write('*');

    writeln('');
    p:=p-1;
    x:=x+2;
    end;
    end.
     

    الملفات المرفقة:

    • doncorle.rar
      doncorle.rar
      حجم الملف:
      347 بايت
      المشاهدات:
      40
  3. mouzied

    mouzied نجم المنتدى

    إنضم إلينا في:
    ‏31 ديسمبر 2005
    المشاركات:
    2.805
    الإعجابات المتلقاة:
    1.542
      20-05-2009 13:04
    :besmellah1:

    لازم solution modulaire
     
  4. salem41

    salem41 عضو فعال

    إنضم إلينا في:
    ‏12 أوت 2007
    المشاركات:
    450
    الإعجابات المتلقاة:
    417
      20-05-2009 14:20
    ya m3allem ya jihed ama sahel barcha el program ya jihed ya katkout
     
  5. jihed_1991

    jihed_1991 مسؤول قسم السينما و الأغاني طاقم الإدارة

    إنضم إلينا في:
    ‏26 ديسمبر 2007
    المشاركات:
    11.180
    الإعجابات المتلقاة:
    27.169
      20-05-2009 15:28
    la ya 5ouya salem elprogramme s3ib wa m3afet wa facon jdida mte3 problemet
    ennajem n9oul elli houwa as3ab sujet esna:oh:
     
  6. mililo

    mililo عضو نشيط

    إنضم إلينا في:
    ‏17 جويلية 2008
    المشاركات:
    231
    الإعجابات المتلقاة:
    80
      20-05-2009 15:51
    merci mn ami pr le devoir
     
  7. DonCorleoneM

    DonCorleoneM عضو مميز

    إنضم إلينا في:
    ‏4 ديسمبر 2007
    المشاركات:
    1.257
    الإعجابات المتلقاة:
    333
      20-05-2009 17:00
    wAllah s3iiiib
    as3eb sujet 2009 ena 3aditou w nes 5arja tibki midevoir 7ata bech ta3mel des procedures thez behom note matnajamech ....
     
  8. salem41

    salem41 عضو فعال

    إنضم إلينا في:
    ‏12 أوت 2007
    المشاركات:
    450
    الإعجابات المتلقاة:
    417
      21-05-2009 15:45
    walahi ya jihed le devoir est tres facile et voila mon essai


    uses wincrt;
    type tab =array [1..100] of char;
    var n:integer;
    t:tab;
    procedure saisie(var n:integer;var t:tab);
    var i:integer;
    begin
    readln(n);
    for i:= 1 to 2*n-1 do
    t:='*';
    end;
    procedure affiche(n:integer;var t:tab);
    var k,i:integer;
    begin

    for i:=1 to 2*n-1 do
    begin
    for k:=1 to 2*n-1 do
    write(t[k]);
    t:=' ';
    t[2*n-i]:=' ';
    writeln;
    end;
    end;
    begin
    saisie(n,t);
    affiche(n,t);
    end.
     

مشاركة هذه الصفحة

جاري تحميل الصفحة...