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

إضافة رد
قديم 25-03-2009, 01:32 PM
  #1
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
12 تطبيقات في الباسكال


بسم الله الرحمان الرحيم
السلام عليكم

بلغة الباسكال
التطبيق الأول
حل معادلة من الدرجة الثانية
الكود هو :
كود PHP:
 [left]program calcule;[/left]
 [
left]usescrt;[/left]
 [
left]var[/left]
 [
left]a,b,c,d,:integer; [/left]
 [
left]x1,x2:real;[/left]
 [
left]begin[/left]
 [
left]clrscr;[/left]
 [
left]writeln('ENTREE LES TROIS NOMBRES A ET B  ET C');[/left]
 [
left]read(a,b,c);[/left]
 [
left]if A<>0 then[/left]
 [
left]begin[/left]
 [
left]d:=(b*b)-4*(A*C); if D>0 then  begin[/left]
 [
left]x1:=(-B-SQRT(D)); x2:=(-B+SQRT(D)/2*1);  write(x1,x2); end [/left]
 [
left]ELSE[/left]
 [
left]begin[/left]
 [
left]x1:=((B)/2*A); x2:=x1;  write(X1,X2);end[/left]
 [
left]else[/left]
 [
left]write('PAS DE SOLUTION'); endREPEAT  UNTIL KEYPRESSED;[/left]
 [
leftEND.[/left
-------------------------------------------------------------------------------------------------------------------------
التطبيق الثاني
برنامج لقراءة النص ويعلمنا كم فيه عدد الأحرف في كل سطر
الكود:
كود PHP:
 [left]PROGRAM COMPT;[/left]
 [
left]usescrt;   var[/left]
 [
left]ch:chanen:integerbegin[/left]
 [
left]while not EOF do[/left]
 [
left]begin      [/left]
 [
left]{tratement d'une line }[/left]
 [left]n:=0; while not eoln do[/left]
 [left]begin[/left]
 [left]read(ch);   n:=n+1; end; write  (n);readln; end;end[/left] 
.

معناه نهاية السطر eoln
معناه نهاية الملف eof
.............................. ...................

كود لبرنامج يقوم بحساب معدل 10 مترشحين و اضهار اسم احسن معدل


كود:
  
program myanne; const n=4; var mg:real; maxyn:real; nom,nom_m:string[10]; i:integer; begin clrscr; readln(nom); readln(mg); maxyn:=mg; nom_m:=nom; i:=2; while i<=n do begin readln(nom); readln(mg); if mg >maxyn then begin maxyn:=mg; nom_m:=nom; end; i:=i+1; end; writeln('nom_m,maxyn:2:2); repeat until keypressed; end.



التعديل الأخير تم بواسطة achraf.mouni ; 25-03-2009 الساعة 01:37 PM
achraf.mouni غير متواجد حالياً  
رد مع اقتباس
قديم 25-03-2009, 02:12 PM
  #2
يوسف الضادي
VIP_MEMBRE
 الصورة الرمزية يوسف الضادي
 
La spécialité: Informatique
جامعة ابن خلدون تيارت
تاريخ التسجيل: 17-08-2008
الدولة: تيارت/الرحوية
المشاركات: 5,333
يوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداع
افتراضي

بارك الله فيك أخي
__________________
أشهد أن لا اله الا الله وأن محمد رسول الله

يوسف الضادي غير متواجد حالياً  
رد مع اقتباس
قديم 25-03-2009, 02:20 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 عضو محترف الابداع
افتراضي

بارك الله فيك أخي أشرف ... و جعلها في ميزان حسناتك ان شاء الله
__________________



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
رد مع اقتباس
قديم 25-03-2009, 02:57 PM
  #4
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

بارك الله فيك على مرورك الطيب..جزاك الله خير
achraf.mouni غير متواجد حالياً  
رد مع اقتباس
إضافة رد

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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
تطبيقات جاهزة بلغة الباسكال جربها وتعلم منها يوسف الضادي لغة الدالفي delphi 17 07-11-2012 03:40 PM
tp في الباسكال emp21 قسم الإستفسارات و الطّلبات 2 11-12-2009 05:44 PM
لغة الباسكال mimik لغة الدالفي delphi 21 04-06-2009 06:43 PM
حمل الباسكال+دروسreseau achraf.mouni الإعــلام الآلي والرياضيــات 8 28-01-2009 08:07 PM
درس في الباسكال achraf.mouni الإعــلام الآلي والرياضيــات 3 16-12-2008 07:25 PM


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