COrrigé Pascal

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

  1. big_boss07

    big_boss07 نجم المنتدى

    إنضم إلينا في:
    ‏22 نوفمبر 2007
    المشاركات:
    2.285
    الإعجابات المتلقاة:
    317
      18-05-2009 19:44
    SVP jai besoin de corrigé devoir pascal BAC INFO 10:30min et merci
    :satelite::satelite::satelite::satelite:
     
  2. aladin90

    aladin90 عضو مميز

    إنضم إلينا في:
    ‏19 ديسمبر 2007
    المشاركات:
    751
    الإعجابات المتلقاة:
    506
      18-05-2009 20:31
    a3tina el2voir ansal7oulek sa7bi !!
    mathama 7ata mochkel
     
  3. 7amma_g

    7amma_g صديق المنتدى

    إنضم إلينا في:
    ‏10 ماي 2008
    المشاركات:
    1.899
    الإعجابات المتلقاة:
    4.638
      18-05-2009 20:35
    Pouvez vous préciser l'année, le jour et la section au moins pourqu'on trouve le sujet !
     
  4. big_boss07

    big_boss07 نجم المنتدى

    إنضم إلينا في:
    ‏22 نوفمبر 2007
    المشاركات:
    2.285
    الإعجابات المتلقاة:
    317
      18-05-2009 21:14
    Merci pour tous et voici le devoir
     

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

  5. MEJRIBASSEM

    MEJRIBASSEM عضو

    إنضم إلينا في:
    ‏4 ديسمبر 2007
    المشاركات:
    131
    الإعجابات المتلقاة:
    90
      18-05-2009 21:55
    program tautogramme;
    uses wincrt;
    var f1,f2:text;

    procedure saisie(var f1:text);
    var i:integer;
    ch : string;
    begin
    assign(f1,'g:\source.txt');
    rewrite(f1);
    writeln('Taper 5 lignes de texte');
    for i:=1 to 5 do
    begin
    readln(ch);
    writeln(f1,ch);
    end;
    end;
    procedure sauvegarde(var f1,f2:text);
    var ch:string;
    (***********************)
    function tauto (ch : string): boolean;
    var i:integer;
    test : boolean;
    begin
    i:=0;
    test:=true;
    repeat
    i:=i+1;
    if ch = ' '
    then if upcase(ch[1]) <> upcase(ch[i+1])
    then test:=false ;
    until (test=false) or (i=length(ch));
    tauto:=test;
    end;
    (***********************)
    begin
    reset(f1);
    assign(f2,'g:\tauto.txt');
    rewrite(f2);
    while not eof(f1) do
    begin
    readln(f1,ch);
    if tauto(ch)
    then writeln(f2,ch);
    end;
    end;
    procedure affiche(var f2:text);
    var ch:string;
    begin
    reset(f2);
    writeln('Contenu du fichier tauto');
    while not eof(f2) do
    begin
    readln(f2,ch);
    writeln(ch);
    end;
    end;
    procedure compter (var f : text);
    var ch : string; nb,i,l:integer;
    begin
    reset(f);l:=0;
    while not(seekeof(f)) do
    begin
    nb := 0;l:=l+1;
    while not(eoln(f)) do
    begin
    i := 1;
    read(f,ch);
    ch:= ch+' ';
    repeat
    if ch =' ' then
    begin
    inc(nb);
    while ch =' ' do inc(i);
    end
    else inc(i);
    until i > length(ch);
    end;
    writeln('Le nombre des mots dans la ligne ',l, ' = ', nb);
    readln(f);
    end;
    end;
    (**************************************************************)
    procedure frequence (var f : text);
    var ch : string; nb,i,l:integer; c:char;
    begin
    reset(f);l:=0;
    while not(seekeof(f)) do
    begin
    nb := 0;l:=l+1;
    while not(seekeoln(f)) do
    begin
    read(f,c);
    if upcase(c)in['A','E','O','Y','U','I'] then inc(nb);
    end;
    writeln('Le nombre de voyelles dans la ligne',l, ' = ', nb);
    end;
    end;

    (****************PP************************)
    begin
    writeln(' ********* le programme est réalisé par mejri Bassem');
    writeln('**********Lycée Kalaa Khasba Kef**********');
    saisie(f1);
    sauvegarde(f1,f2);
    affiche(f2);
    compter(f1);
    writeln;
    frequence(f1);

    close(f1);
    close(f2);
    end.
     
  6. MEJRIBASSEM

    MEJRIBASSEM عضو

    إنضم إلينا في:
    ‏4 ديسمبر 2007
    المشاركات:
    131
    الإعجابات المتلقاة:
    90
      18-05-2009 21:56
    désolé c'est un autre exercice
    voici la solution
     

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

    1 person likes this.
  7. big_boss07

    big_boss07 نجم المنتدى

    إنضم إلينا في:
    ‏22 نوفمبر 2007
    المشاركات:
    2.285
    الإعجابات المتلقاة:
    317
      18-05-2009 22:24
    merci bien
     

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

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