un programme en pascal

lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: نيسـان 19, 2009, 05:55:50 مسائاً
exercice
proposer un programme en langage pascal qui vous permet de supprimer les elements nuls d'une liste contigue de 100 nombres entiers

la solution


program sup_zero;
uses wincrt;
var t:array[1..100]of integer ;
    j,i,n: integer ;
begin
  writeln('donner le nombres des elements:');
  readln(n);
     for i:=1 to n do
      begin
     writeln('donner l''elements',i);
       readln(t);
      end;
           i:= 1;
     while i      begin
       if t=0 then
        begin
         for j:= i to (n-1) do
          t[j]:= t[j+1] ;
          n:=n-1;
         end
       else
        i:=i+1;
      end;
     if t[n]=0 then
       n:=n-1;
     for i:=1 to n do
       write(t,',' );
 end.


روبن

  • Full Member
  • ***
    • مشاركة: 144
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: نيسـان 20, 2009, 11:29:18 صباحاً
مشكووووورة على البرنامج وإن شاء الله
مزيدا من البرامج التي يستفيد منها

طلبة M-I



lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: نيسـان 20, 2009, 09:01:13 مسائاً
merci robin pour votre visite