لغة الدالفي delphi كل ما يتعلق بالدالفي و الباسكال

إضافة رد
قديم 19-04-2009, 06:55 PM
  #1
lucky girl
VIP_MEMBRE
 الصورة الرمزية lucky girl
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 01-01-2009
الدولة: الجزائر
المشاركات: 1,151
lucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداع
Exll un programme en pascal


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[i]);
end;
i:= 1;
while i<n do
begin
if t[i]=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[i],',' );
end.


__________________



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
رد مع اقتباس
قديم 20-04-2009, 12:29 PM
  #2
روبن
 الصورة الرمزية روبن
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 07-04-2009
الدولة: الجزائر
المشاركات: 144
روبن
12 شكر وعرفان

مشكووووورة على البرنامجوإن شاء الله
مزيدا من البرامج التي يستفيد منها

طلبة M-I

روبن غير متواجد حالياً  
رد مع اقتباس
قديم 20-04-2009, 10:01 PM
  #3
lucky girl
VIP_MEMBRE
 الصورة الرمزية lucky girl
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 01-01-2009
الدولة: الجزائر
المشاركات: 1,151
lucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداع
افتراضي

merci robin pour votre visite
__________________



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
pascal, programme

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
{برنامج} programme par matlab ou pascal ''écoulement de puissance''e amynou31 الإستفسارات و الطّلبات 7 12-12-2013 07:07 PM
^programme en pascal khelef لغة الدالفي delphi 4 17-05-2010 09:38 PM
{طلب} programme par matlab ou pascal ''écoulement de puissance''e amynou31 الإستفسارات و الطّلبات 1 12-01-2010 09:33 PM
Pascal mimik لغة الدالفي delphi 6 20-05-2009 09:00 PM
Pascal achraf.mouni الإعــلام الآلي والرياضيــات 8 22-01-2009 05:40 PM


الساعة الآن 09:28 AM.