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

إضافة رد
قديم 01-05-2009, 03:05 PM
  #1
يوسف الضادي
VIP_MEMBRE
 الصورة الرمزية يوسف الضادي
 
La spécialité: Informatique
جامعة ابن خلدون تيارت
تاريخ التسجيل: 17-08-2008
الدولة: تيارت/الرحوية
المشاركات: 5,333
يوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداع
09 برنامج رائع بالباسكال pascal


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

أقدم اليكم برنامج صغير بالباسكال يحتوي عدة برامج وتطبيقات على الباسكال كتبته بنفسي

صورة البرنامج


سورس البرنامج
كود PHP:
program miniprog;
var
a:array [1..100,1..100]of real;
t,b,c:array[1..100]of real;
x,v,r:real;
 
kchoix:char;
n,m,j,l,i,s,y:integer;

function 
add(var x,vreal):real;
begin
r
:=x+v;
end;
function 
sub(var x,vreal):real;
begin
r
:=x-v;
end;
function 
mul(var x,vreal):real;
begin
r
:=x*v;
end;
function 
divis(var x,vreal):real;
begin
r
:=x/v;
end;

begin
repeat
writeln
;
writeln;
writeln ('         ححححححححححححححححححححححححححححححححححححححححححححححححححححححححح');
writeln ('         * ----------------------------------------------------- *');
writeln ('         * *                                                   * *');
writeln ('         * *              *****  MR . MAZOOUG  *****           * *');
writeln ('         * *                                                   * *');
writeln ('         * *                  BENABDELLAH YOUCEF               * *');
writeln ('         * _____________________________________________________ *');
writeln ('         ححححححححححححححححححححححححححححححححححححححححححححححححححححححححح');
writeln;
writeln ('         MENU DU CHOIX :   ');
writeln;
writeln ('         كككككككككككككككككككككككككككككككككككككككككككككككككككككككككك');
writeln ('         ³³³                                                    ³³³');
writeln ('         ³³³  A _       PROGRAMME DE recherche                  ³³³');
writeln ('         ³³³                                                    ³³³');
writeln ('         ³³³  B _       PROGRAMME DE produit                    ³³³');
writeln ('         ³³³                                                    ³³³');
writeln ('         ³³³  C _       PROGRAMME DE parmitation                ³³³');
writeln ('         ³³³                                                    ³³³');
writeln ('         ³³³  D _       PROGRAMME DE method gusse               ³³³');
writeln ('         ³³³                                                    ³³³');
writeln ('         ³³³  E _       PROGRAMME DE calculitte                 ³³³');
writeln ('         ³³³                                                    ³³³');
writeln ('         كككككككككككككككككككككككككككككككككككككككككككككككككككككككككك');
writeln;
writeln;
readln;
write ('    choix= ')    ;
read (choix)    ;
case 
choix of
'A':
begin
writeln
;
writeln ('                         ============================');
writeln ('                         *                          *');
writeln ('                         *  PROGRAMME DE recherche  *');
writeln ('                         *                          *');
writeln ('                         ============================');
writeln;
j:=0;
writeln;
write ('    chiffer de recherche x= ');
read (x);
writeln;
write ('    chiffer en les case n= ');
read (n);

for 
i:=1 to n do
begin
writeln
;
write ('    case t[',i,']=');
read(t[i]) ;
end;

for 
i:=1 to n do
begin
if x=t[ithen
j
:=j+;
if 
x=t[ithen
writeln
(    x:     4:0,' ','existe dans la case',i)  ;
writeln;
end;
writeln;
writeln(    'la valeur',' ',:4:0,' ','existe',' ',j,'  fois');
end;

'B':
begin
writeln
;
writeln ('                         ============================');
writeln ('                         *                          *');
writeln ('                         *  PROGRAMME DE produite   *');
writeln ('                         *                          *');
writeln ('                         ============================');
writeln;
writeln;
    
write('  line horizontal n=');

read(n);
writeln;
    
write('    line vertical   m=');
read(m);
    for 
i:=1 to m do
     for 
j:=1 to n do
        
begin
        writeln
;
            
write('la case     a[',i,',',j,']=');
read(a[i,j]);
      
writeln;
        
end;
        for 
i:=1 to m do
begin
for j:=1 to n do
 
write(a[i,j]:4:0,'  ');
writeln;
writeln;
end;
       for 
j:=1 to n do
        
begin
        writeln
;
            
write('la case           b[',j,']=');
read(b[j]);
        
end;
        
writeln;
       for 
i:=1 to m do
       
begin
       c
[i]:=0;
       for 
j:=1 to n do c[i]:=c[i]+a[i,j]*b[j];
         
write('  ','c[',i,']=',c[i]:4:0);
         
writeln;
end;
end;
      
'C':
      
begin
      writeln
;
writeln ('                         ============================');
writeln ('                         *                          *');
writeln ('                         * PROGRAMME DE permitation *');
writeln ('                         *                          *');
writeln ('                         ============================');
writeln;
      
writeln;
write('line horizontal et vertical n= ');
read(n);
writeln;
for 
i:=1 to n do
for 
j:=1 to n do
begin
  write
('a[',' ',i,' ',j,' ',']=',' ');
  
read(a[i,j]);
  
writeln;
  
end;
  
writeln ;
  
writeln ;
  
writeln ;
     
writeln('matrice de a[i,j] ','       ');
     
writeln;
         for 
i:=1 to n do
         
begin
         
for j:=1 to n do
         
write(a[i,j]:4:0,'  ');
           
writeln;
           
writeln;
          
end;
          
writeln('parmitation de a[i,j] ','       ') ;
          
writeln;
          for 
i:=1 to n-do

           for 
j:=i+1 to n do
           
begin
           v
:=a[i,j];
           
a[i,j]:=a[j,i] ;
            
a[j,i]:=;
             
end;
             for 
i:=1 to n do
             
begin
              
for j:=1 to n do
              
write (a[i,j]:4:0,'  ');
              
writeln ;
                
writeln;
              
end;
              
end;
              
'D':
      
begin
writeln
;
writeln ('                         ============================');
writeln ('                         *                          *');
writeln ('                         *  PROGRAMME DE gusse      *');
writeln ('                         *                          *');
writeln ('                         ============================');
writeln;
write('            les line n=');
read(n);
writeln ;
for 
i:=1to n do
for 
j:=1 to i do
begin
write
('      a[',' ',i,' ',j,' ',']',' ','=',' ');
readln(a[i,j]);
writeln  end;
for 
i:=1to n  do
begin
write
('              b[',' ',i,' ',']',' ','=',' ');
readln(b[i]);writeln  ;
end;

for 
i:=n downto 1 do
r:=0;
begin
for j:=i+1 to n do
r:=r+a[i,j]*t[j];
t[i]:=(b[i]-r)/(a[i,i]);
end;
for 
i:=1 to n do
begin

writeln
('            ') ;
writeln(b[i]:4:0)  ;

writeln('            ') ;
end;

 for 
i:=1 to n do

  
begin
       
for j:=1 to n do
             
write(a[i,j]:4:0,'   ');
writeln ;
writeln;

end;
for 
i:=1 to n do
begin
write
('t[',i,']=',t[i]:4:0)   ;
 
writeln('    '); writeln('    ');

end;
  
end;
  
'E':
  
begin
writeln
('        **********************************************');
writeln('        *            calculette PASCAL               *');
writeln('        **********************************************');
writeln;
writeln;
write ('           la val : a =  ');
readln(x);
writeln;
write ('           opiration (* - + /) =   ');
readln(k);
writeln;
write ('           la val : b =  ');
readln(v);
case 
k of
'+'add(x,v);
'-'sub(x,v);
'*'mul(x,v);
'/'divis(x,v);
end;
writeln;
writeln('          resilta est un ',r:4:0);

end;
  
end;




       
writeln;
 
writeln;
 
writeln ('          POUR SORTIR TAPPEZ a 0 ');
read (l);
        
until  l=0;
end
حمله من المرفقات



__________________
أشهد أن لا اله الا الله وأن محمد رسول الله


التعديل الأخير تم بواسطة يوسف الضادي ; 01-05-2009 الساعة 06:30 PM
يوسف الضادي غير متواجد حالياً  
رد مع اقتباس
قديم 01-05-2009, 03:17 PM
  #2
الفتاة الرقمية
.:: عضوة بالمجلس العلمي للمنتدى ::.
 الصورة الرمزية الفتاة الرقمية
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 18-01-2008
الدولة: الجزائر
المشاركات: 6,424
الفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداع
افتراضي

نشيط كعادتك
ذكرتني بأيام الباسكال عندي مدة لم ابرمج
اظنني نسيت
موفق
احترامي

__________________


الفتاة الرقمية غير متواجد حالياً  
رد مع اقتباس
قديم 01-05-2009, 03:26 PM
  #3
يوسف الضادي
VIP_MEMBRE
 الصورة الرمزية يوسف الضادي
 
La spécialité: Informatique
جامعة ابن خلدون تيارت
تاريخ التسجيل: 17-08-2008
الدولة: تيارت/الرحوية
المشاركات: 5,333
يوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداع
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة DigitalGirl مشاهدة المشاركة
نشيط كعادتك
ذكرتني بأيام الباسكال عندي مدة لم ابرمج
اظنني نسيت
موفق
احترامي

شكرا على مرورك لكن لازم تعاودي طلي عليه
كنت حاقره وخرج يستحق التعلم
بانتظار بعض دروس منك في basse de donné
(fichier ...etc)
__________________
أشهد أن لا اله الا الله وأن محمد رسول الله

يوسف الضادي غير متواجد حالياً  
رد مع اقتباس
قديم 01-05-2009, 03:45 PM
  #4
الفتاة الرقمية
.:: عضوة بالمجلس العلمي للمنتدى ::.
 الصورة الرمزية الفتاة الرقمية
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 18-01-2008
الدولة: الجزائر
المشاركات: 6,424
الفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداعالفتاة الرقمية عضو محترف الابداع
افتراضي

شوف خويا يحصل فيا
الباسكال لغة قديمة انا تاني حقرتها لكنها سهلة مناسبة جدا للتعليم الاكاديمي.وكلغة أساس للبداية تكون جيدة.
اما قواعد البيانات لا أعرف عنها الكثير لكن قد اتوسع لا حقا واحاول ان افيدك ان شاء الله
موفق يا نشيط.
شهيتني باش نبرمج لازم نبدأ بكاتبه برنامج يحل معادلة هو اول تمرين كنا نتدرب عليه
احترامي
__________________


الفتاة الرقمية غير متواجد حالياً  
رد مع اقتباس
قديم 01-05-2009, 04:30 PM
  #5
mimik
 الصورة الرمزية mimik
 
La spécialité: Autres
جامعة عبد الحق بن حمودة جيجل
تاريخ التسجيل: 12-05-2008
الدولة: الجزائر
المشاركات: 1,607
mimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداع
افتراضي

شكرا تستحق الشكر بارك الله فيك
ننتضر المزيد
__________________

mimik غير متواجد حالياً  
رد مع اقتباس
قديم 01-05-2009, 06:22 PM
  #6
يوسف الضادي
VIP_MEMBRE
 الصورة الرمزية يوسف الضادي
 
La spécialité: Informatique
جامعة ابن خلدون تيارت
تاريخ التسجيل: 17-08-2008
الدولة: تيارت/الرحوية
المشاركات: 5,333
يوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداع
افتراضي

ان شاء الله سأقدم لكم من روائع الباسكال
....
----
****
====
__________________
أشهد أن لا اله الا الله وأن محمد رسول الله

يوسف الضادي غير متواجد حالياً  
رد مع اقتباس
قديم 01-05-2009, 07:27 PM
  #7
soumia.com
زائر
 
المشاركات: n/a
افتراضي

benabdallah youcef tu es en quelle année
 
رد مع اقتباس
قديم 02-05-2009, 08:34 AM
  #8
روبن
 الصورة الرمزية روبن
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 07-04-2009
الدولة: الجزائر
المشاركات: 144
روبن
Post شكر

مشكور بارك الله

برنامج جميل ورائع



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

والله تستحق الرد مرة أخرى لقد رأيت البرنامج
أوه راك واصل خويا
ما شاء الله لا قوة إلا بالله
ننتظر المزيد للإستفادة منك
مشكوووووور
__________________
روبن غير متواجد حالياً  
رد مع اقتباس
قديم 04-05-2009, 06:14 PM
  #10
Tayiss
 
تاريخ التسجيل: 23-04-2009
المشاركات: 519
Tayiss عضو مبدعTayiss عضو مبدعTayiss عضو مبدعTayiss عضو مبدع
افتراضي

je vais voir, merci
Tayiss غير متواجد حالياً  
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
بالباسكال, برنامج, رائع, pascal

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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
برنامج Flash Slideshow Maker برنامج رائع في صنع فلاش شنفرى منتدى البرامج العام 2 09-06-2013 07:40 PM
{برنامج} برنامج PowerSuite Pro 2013 لصيانة الـــ software -- برنامج رائع جدا.... ابو مياس منتدى البرامج العام 17 21-03-2013 06:38 PM
برنامج رائع يحول اي صورة الي صورة مرسومة بالقلم الرصاص و الله رائع samiita منتدى البرامج العام 23 21-04-2010 05:59 PM
برنامج بالباسكال فيه مزايا الألوان يوسف الضادي لغة الدالفي delphi 4 08-06-2009 11:42 AM
تحميل برنامج Allok Video Joiner برنامج رائع لدمج ملفات الفيديو وتحويلها bohemian منتدى البرامج العام 2 20-02-2009 12:56 AM


الساعة الآن 07:55 PM.