Downloads Web Links Feedback index facebook twitter RSS News
      الساعة الآن 02:31 PM
Google+
 
العودة   منتدى المهندس > قسم الرياضيات والإعــلام الآلي > منتــدى البرمجــة العـــام > لغة الدالفي delphi
الرئيسية مكتبة المهندس للكتب الإلكترونيّة دليل المواقع القناة التعليمة للبرامج الهندسية مذكرات تخرج أخبر صديق عنا استعادة كلمة المرور لتفعيل عضويتك

::: مختاراتنا :::

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
{شرح} خطوات لحل مسائل المواريث منتهى الرقهـ} السنة الرابعة 11 29-04-2013 08:44 PM
مسائل متفرقة في العقيدة شمس الغروب المنتدى الاسلامي العام 11 06-09-2010 02:18 PM
51تمرين محلولة في الباسكال achraf.mouni الإعــلام الآلي والرياضيــات 8 28-01-2009 09:06 AM
أسطوانة مواضيع و مسائل محلولة لجميع شعب الثالثة ثانوي Mr.Dj تحضيرات، نماذج امتحانات و نتائج شهادة البكالوريا 2014 0 27-11-2008 12:14 AM
مسائل مشهورة في المواريث amin23 السنة الرابعة 1 26-11-2008 10:57 PM



 
أدوات الموضوع انواع عرض الموضوع
رقم المشاركة : ( 1 )
achraf.mouni غير متواجد حالياً
الصورة الرمزية achraf.mouni
 
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
الأوسمـة
بيانات الإتصال
آخر المواضيع
 
رقم العضوية : 41722
تاريخ التسجيل : 08-09-2008
الدولة : Algeria
الجنس :  male
مكان الإقامة : الجزائر
عدد المشاركات : 2,439 [+]
آخر تواجد : [+]
عدد النقاط : 1712
قوة الترشيح : achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
12 بعض مسائل في الباسكال محلولة

كُتب : [ 06-05-2009 - 10:49 PM ]

اليكم بعض مسائل في الباسكال محلولة


المسألة الأولى

اكتب برنامج يقوم بحساب المعدل A والانحراف المعياري (القياسي) STDDEV لمجموعة من القيم
X1,X2,…,Xn علماً أن عدد هذه القيم N وأن المعدل يحسب بالعلاقة :


كود:
كود PHP:
= (X1+X2++Xn) / 
الحل :


كود:
كود PHP:
Program BST;
Var  
I,x,N:integer;
Sum1,sum2,A,SD:real;
Begin
Read
(N);
Sum1 :=0;
Sum2 :=0;
For 
i:=1 to N do
begin
Readln
(x);
Sum1 := Sum1 x;
Sum2 := Sum2 +sqr(x);
end;
A:=Sum1/N;
SD:=sqrt(Sum2/sqr(A));
Writeln(A:5:5,SD:5:5);
End
المسألة الثانية

مثلث قائم الزاوية طول كل من ضلعيه B,A اكتب برنامج يقرأ طولي الضلعين القائمين ويحسب طول الوتر ومساحة المثلث والزاويتين المقابلتين للضلعين ثم يطبع النتائج بحيث يطبع لك نتيجة العنوان المناسب

الحل :

كود:
كود PHP:
Program BST;
Var 
A,B,C,area:real;
    
i,f:integer;
Begin
Read
(A,B);
:= sqrt(sqr(a)+sqr(b));
Area := A*B/2;
:= 0;
repeat
i
:=i+1;
until(round(cos(i))= round(B/C));
f:=90-i;
writeln(A,B,C,i,f);
End
المسألة الثالثة

لتكن لدينا قائمة من الاعداد الصحيحة لا يتجاوز طولها حداً اعضمياً ما (وليكن 100 مثلاً) .ولنفترص ان العدد نفسه قد يرد اكثر من مرة في هذه القائمة ..

الحل :

كود:
كود PHP:
program BST;
const 
maxN=100;
var
n,i:integer;
: array [1..maxNof integer;
begin
writeln
('input n <= ',maxN);
readln(n);
for 
i:=1 to n do
  
readln(a[i]);
end
المسألة الرابعة

اكتب برنامج يقوم بقراءة هذه الاعداد وأوجد العدد الذي يكون تواتر وروده في هذه القائمة هو الاعلى ضمن تواترات الاعداد .

كود PHP:
الكود :
     
كود:
      
 
program BST;
const 
maxN=100;
var 
a,: array [1..maxNof integer;
    
i,j,n,most,index:integer;
begin
writeln 
('input N <=',maxN);
readln (N);
for 
i:=1 to n do
begin
write
('input a[',i,']=');
readln(a[i]);
end;
for 
i:=1 to n do
begin
b
[i]:=0;
for 
j:=1 to n do
if (
a[i]=a[j]) then
 b
[i]:=b[i]+1;
end;
most:=b[1];
for 
i:=1 to n do
if 
b[i]>=most then
j
:=i;
writeln(a[j],' frequency ',b[j]);
readln;
end


المسألة الخامسة

اكتب برنامجاً يقوم بإيجاد جميع القواسم للعدد الصحيح N الذي يعطى مدخل للبرنامج ..

الحل:

كود:

كود PHP:
program BST;
var 
i,integer;
begin
readln
(n);
for 
i:=1 to n do
  if (
n mod i 0)then
  writeln 
(n/i:0:0);
readln;
end
المسألة السادسة

اكتب برنامجاً يقوم بطباعة جدول الحقيقة للعمليات المنطقية على متحولين منطقيين ..والعلميات هي : التقاطع ، الاجتماع ، النفي ..

الحل :

كود:
كود PHP:
program BST6;
var 
A,B:boolean;
begin
writeln
('A':8,'B':10,'A and B':12,'A or B':10,'not(A)':10);
for 
A:= false to true do
    for 
B:= false to true do
        
writeln(A:10,B:10,and B:10,or B:10,not(A):10);
readln
end

المسألة السابعة

اكتب برنامجاً يقوم بايجاد ناتج ضرب مصفوفة A أبعادها n*m بقيمة ثابتى K وتخزين النتائج في مصفوفة جديدة B ، ثم يطبع النتائج .

اكتب برنامجاً يقوم بقراءة عناصر مصفوفتين A و B ثم يحسب ناتج العملية التي يرغب بها المستخدم (جمع أو طرح أو ضرب) ، وتخزين الناتج في مصفوفة C وأخيراً طباعة النتائج .

الحل :

كود:
كود PHP:
program BST6;

const 
maxN=100;maxM=100;
type mat=array[1..maxN,1..maxM]of integer;
var 
A,B,c:mat;
    
n,m,l,i,j,k:integer;
    
ch char;
 
procedure readMat(var A:mat;var m,n:integer);
begin
for i:=1 to m do
    for 
j:=1 to n do
        
begin
        write
('mat[',i,',',j,']=');
        
readln(A[i,j]);
        
end;
end;
 
procedure writeMat(A:mat;m,n:integer);
begin
for i:=1 to m do
    
begin
    
for j:=1 to n do
        
write(a[i,j]:4);
    
writeln;
    
end;
end;
 
function 
multK(A:mat;k:integer):mat;
begin
for i:=1 to n do
    for 
j:=1 to m do
        
begin
        B
[i,j]:= K*A[i,j];
        
end;
multK:=B;
end;
 
function 
minus(A,B:mat):mat;
begin
for i:=1 to m do
    for 
j:=1 to n do
        
C[i,j]:=A[i,j]-B[i,j];
minus:=C;
end;
 
function 
plus(A,B:mat):mat;
begin
for i:=1 to m do
    for 
j:=1 to n do
        
C[i,j]:=A[i,j]+B[i,j];
plus:=C;
end;
 
function 
mult(A,B:mat;m,l,n:integer):mat;
begin
for i:=1 to m do
    for 
j:=1 to n do
        for 
k:=1 to l do
            
c[i,j]:=c[i,j]+A[i,k]*B[k,j];
mult:=C;
end;
 
begin
write
('input m<=',maxM,'.. m=' );readln(m);
write('input n<=',maxN,'.. n=');readln(n);
readMat(A,m,n);
writeln('input the const K');readln(k);
B:=multK(A,K);
writeln('The matrix A : ');
writeMat(A,m,n);
writeln('The matrix B=K*A : ');
writeMat(B,m,n);
writeln('choose the operation + , - or * ');
readln(ch);
case 
ch of
'+' c:=plus(A,B);
'-' c:=minus(A,B);
'*' begin
      writeln
('input m<=',maxM,'input l<=',maxN);readln(m,l);readMat(A,m,l);
      
writeln('input l<=',maxN);readln(n);readMat(B,l,n);
      
c:=mult(A,B,m,l,n);
      
end;
end;
writeMat(c,m,n);
readln;
end

المسألة الثامنة

اكتب برنامج يقوم بطباعة جدول ASCII بشكل عمودين : في العمود الاول يظهر ترتيب المحرف (أي الرقم المقابل له حسب الترميز المعتمد في شيفرة ASCII) ، وفي العمود الثاني يظهر المحرف نفسه .

الحل :

كود:
كود PHP:
program BST;

uses crt;
var 
i:integer;

begin
for i:=1 to 256 do
    
begin
    writeln
(i:10,chr(i):10);
    
delay(150);
    
end;
readln;
end
المسألة التاسعة

اكتب برنامجاً بلغة باسكال بحيث تكون نتيجة تنفيذه هي جدولاً مؤلفاً من أربعة أعمدة .
  • يكتب في العمود الاول : العدد
  • وفي العمود الثاني جذر العدد
  • وفي العمود الثالث مربع العدد
  • وفي العمود الرابع لوغاريتم العدد وذلم منن أجل الاعداد الصحيحة الزوجية التي تنتمي للمجال
كود:
[
كود PHP:
20,2

الحل :

كود:

كود بلغة HTML:
program BST;
 
var i:integer;

begin
writeln('N':15,'sqrt(N)':15,'sqr(N)':15,'ln(N)':15);
writeln;
for i:=1 to 10 do
writeln(2*i:15,sqrt(2*i):14:3,sqr(i):14,ln(2*i):17:3);
readln
end.


أكتب تعليق على الموضوع مستخدماً حساب الفيس بوك

تسهيلاً لزوارنا الكرام يمكنكم الرد ومشاركتنا فى الموضوع
بإستخدام حسابكم على موقع التواصل الإجتماعى الفيس بوك


التوقيع

التعديل الأخير تم بواسطة achraf.mouni ; 06-05-2009 الساعة 10:51 PM

للتسجيل بالنشرة البريدية للمنتدى : برامج ، دروس ، كتب و مواضيع هادفة يوميا
achraf.mouni غير متواجد حالياً
 رقم المشاركة : ( 2 )
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
رقم العضوية : 41722
تاريخ التسجيل : 08-09-2008
الدولة : Algeria
الجنس :  male
مكان الإقامة : الجزائر
عدد المشاركات : 2,439 [+]
آخر تواجد : [+]
عدد النقاط : 1712
قوة الترشيح : achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 06-05-2009 - 11:00 PM ]

المسألة العاشرة


اكتب البرامج المطلوبة للمسألة التالية :

أ - برنامج جزئي يقوم بقراءة عناصر مصفوفة أعداد صحيحة A أبعادها n*m .

ب - برنامج جزئي يقوم بطباعة عناصر مصفوفة أعداد صحيحة A أبعادها n*m .

ج - برنامج جزئي يقوم بايجاد ناتج جداء مصفوفتين A : n*m و B : m*l علماً ان عناصر المصفوفتين هي اعداد صحيحة .

د - مستفيداً من البرمج الجزئية في الطلبات السابقة ، اكتب برنامجاً بلغة باسكال يحسب ناتج العبارة الآتية ويطبعه :

كود:
كود PHP:
Tn*An*m × Bm*Cn*l × Dl*
علماً ان جميع عناصر المصفوفات هي اعداد صحيحة.

الحل:
كود PHP:
     كود:
      
program BST;
 
const 
maxN=100;maxM=100;maxL=100;
type mat= array [1..maxN,1..maxMof integer;
var 
i,j,k,m,n,l:integer;
    
A,B,C,D,T1,T2,mat;
 
procedure readMat(var A:mat;var n,m:integer);
begin
for i:=1 to n do
    for 
j:=1 to m do
        
begin
        write
('mat[',i,',',j,']=');
        
readln(A[i,j]);
        
end;
end;
 
procedure writeMat(A:mat;n,m:integer);
begin
for i:=1 to n do
    
begin
    
for j:=1 to m do
        
write(a[i,j]:4);
    
writeln;
    
end;
end;
 
procedure mult(var A,B,C:mat;n,l,m:integer);
begin
for i:=1 to n do
    for 
j:=1 to m do
        for 
k:=1 to l do
            
c[i,j]:=c[i,j]+A[i,k]*B[k,j];
end;
 
begin
write
('input n<=',maxN,' .. n=' );readln(n);
write('input m<=',maxM,' .. m=');readln(m);
write('input L<=',maxL,' .. L=');readln(L);
readMat(A,n,m);
readMat(B,m,n);
readMat(C,n,l);
readMat(D,l,n);
mult(A,B,T1,n,m,n);
mult(C,D,T2,n,l,n);
for 
i:=1 to n do
  
begin
  
for j:=1 to n do
      
begin
      T
[i,j]:=T1[i,j]+T2[i,j];
      
write(T[i,j]:4);
      
end;
  
writeln;
  
end;
end
المسألة 11

بفرض لدينا مجموعة من اعداد حقيقية عددها N ، اكتب برنامجاً بلغة باسكال يقوم بايجاد أكير عدد في هذه المجموعة وترتيبه بين عناصرها . ثم ايجاد أصغر عدد في هذه المجموعة وترتيبه بين عناصرها وطباعة النتائج .

الحل :

كود PHP:
كود:      
program BST;

var 
n,i,T1,T2 :integer;
    
: array[1..100]of real;
    
max,min:real;
 
begin
readln
(n);
for 
i:=1 to n do
    
readln(a[i]);
max :=a[1];
T1:=1;
for 
i:=2 to n do
    if 
a[i]>max then
       begin
       T1
:=i;
       
max:=a[i];
       
end;
min :=a[1];
T2 :=1;
for 
i:=2 to n do
    if 
a[i]<min then
       begin
       T2
:=i;
       
min :=a[i]
       
end;
writeln('MAX = ',max,' T1 = ',T1);
writeln('MIN = ',min,' T2 = ',T2);
end
المسألة 12 ...

اكتبر برنامجاً بلغة باسكال (اي طبعاً باسكال .. ليش في غيرها بالسنة الاولى ؟؟؟) يقوم بقراءة عناصر مصفوفة حقيقية A ابعادها m*n ثم يوجد مجموع عناصر المصفوفة الواقعة تحت القطر الرئيسي ، ومجموع العناصر الواقعة فوق القطر الرئيسي .. ويقارن بين المجموعتين ..

الحل :
كود:
كود PHP:
program BST;

var 
i,j,n,:integer;
    
: array[1..999,1..999of real;
    
sumUP,sumDOWN real;

begin
readln
(n,m);
for 
i:=1 to n do
    for 
j:=1 to m do
        
readln(a[i,j]);
sumDown :=0;
sumUp :=0;
for 
i:=1 to n do
    for 
j:=1 to m do
    
begin
    
if i<j then
       SumUP 
:= SumUp a[i,j];
    if 
i>j then
       SumDown 
:= SumDown a[i,j];
    
end;
if 
sumUp>sumDown then
   writeln
('UP aktar men DOWN')
else
    if 
sumUp=sumDown then
       writeln
('UP like Down !')
    else
        
writeln('UP small men DOWN !')
end
المسألة 13


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

اكتب برنامج يقوم بقراءة عناصر مصفوفة C ابعادها n*n ثم يختبرها اذا كانت ذات قطر مسيطر أم لا .

الحل :
كود:
كود PHP:
program BST;

label there;
var  
i,j,n,sum:integer;
     
a:array[1..100,1..100]of integer;

begin
readln
(n);
for 
i:=1 to n do
    for 
j:=1 to n do
        
readln(a[i,j]);
for 
i:=1 to n do
    
begin
    sum 
:=0;
    for 
j:=1 to n do
        if 
i<>j then
           sum 
:= sum abs(a[i,j]);
    if 
abs(a[i,i])>=abs(sumthen
       begin
       writeln
('the matrix doesn''t have a dominator QOTOR');
       
goto there;
       
end;
    
end;
writeln('the marix has a DOMINATOR QOTOR');
there :
readln;
end
المسألة 14

إن مجموع مربعات الاعداد الصحيحة من 1 الى n يعطى بالعلاقة :
كود PHP:
     كود:      
2^+3^+4^2+...+n^n(n+1)*(2n+1)/
اكتب برنامجاً بلغة باسكال يحتوي على برنامج جزئي يأخذ كوسيط شكلي القيمة n ويعطى نتيجة تدل على صحة العلاثة أو عدم صحتها . ثم يطبع النتائج .

الحل :

كود:
كود PHP:
program BST94;

var 
n:integer;
procedure BST(n:integer);
var 
T1,T2 real;
    
:integer;

begin
T1
:=0;
for 
i:=1 to n do
    
T1:=T1 exp(2*ln(i));
T2:=n*(n+1)*(2*n+1)/6;
if 
T1=T2 then
   writeln
(true)
else
   
writeln(false);
end;
begin
readln
(n);
BST(n);
readln;
end
المسألة 15

اكتب برنامج بلغة باسكال يقوم بحساب فيمة x المعرفة بالشكل :

كود:

كود PHP:
X   =   1/1/1/+ ... 
من أجل n عدد صحيح مُعطى .
الحل :

كود:
كود PHP:
program BST;
var 
i,n:integer;
    
x:real;
begin
readln
(n);
X:=0;
for 
i:=0 to n do
   
:=1/exp(i*ln(2));
writeln(X);
readln
end


achraf.mouni غير متواجد حالياً
 رقم المشاركة : ( 3 )
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
رقم العضوية : 41722
تاريخ التسجيل : 08-09-2008
الدولة : Algeria
الجنس :  male
مكان الإقامة : الجزائر
عدد المشاركات : 2,439 [+]
آخر تواجد : [+]
عدد النقاط : 1712
قوة الترشيح : achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 06-05-2009 - 11:13 PM ]

مسالة
اكتب برنامج يستطيع قراءة أي ملف نصي، ويحسب المعلومات التالية الخاصة بهذا الملف:

· عدد الأسطر الكلي.
· عدد الأحرف الكلي.
· عدد الأحرف الأبجدية.
. جدول تواتر الأحرف الأبجدية (الحرف الكبير والصغير متكافئان) أي عدد مرات ورود الحرف في نص الملف مقسوماً على عدد الحروف الأبجدية فيه.
كود PHP:
var
c:char;
t:text;
i,lines,characters,letters:integer;
s:string;
letters_array:array[1..26]of integer;
begin {main}
             {***********
initializing***********}
for 
i:=1 to 26 do letters_array[i]:=0;
lines:=0;
characters:=0;
letters:=0;
write('Enter the name of your file with its path ');
write('if necessary or drag its icon by mouseinto this window: ');
readln(s);
assign(t,s);
reset(t);
           {**************
reading*************}
while(
not(eof(t))) do
begin {while 1}
    while(
not(eoln(t))) do
    
begin {while 2}
          
read(t,c);
          
characters:=characters+1;
          if ((
c>='a')and(c<='z'))then
           
{you can use sets to express this (if c in ['a'..'z']then)}
          
begin {if 1}
                
letters_array[ord(c)-96]:=letters_array[ord(c)-96]+1;
                
letters:=letters+1;
          
end;  {if 1}
          if ((
c>='A')and(c<='Z'))then   {you can use sets heretoo.}
          
begin {if 2}
                
letters_array[ord(c)-64]:=letters_array[ord(c)-64]+1;
                
letters:=letters+1;
          
end; {if 2}
    
end; {while 2}
    
readln(t);
    
lines:=lines+1;
end; {while 1}
close(t);
             {*************
results**************}
writeln('Total lines:      ',lines);
writeln('Total characters: ',characters);
writeln('Total letters:    ',letters);
writeln('Press ENTER to sea letters sequence table....');
readln;
for 
i:= 1 to 26 do writeln(chr(i+64),',',chr(i+96),' ':10,'Sequence: ',
letters_array[i]:3,' ':10,'Rate: ',letters_array[i]/letters:0:3);
readln;
end. {main

achraf.mouni غير متواجد حالياً
 رقم المشاركة : ( 4 )
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
رقم العضوية : 41722
تاريخ التسجيل : 08-09-2008
الدولة : Algeria
الجنس :  male
مكان الإقامة : الجزائر
عدد المشاركات : 2,439 [+]
آخر تواجد : [+]
عدد النقاط : 1712
قوة الترشيح : achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 06-05-2009 - 11:17 PM ]

مسألة

المطلوب كتابة اجرائية :
كود PHP:
     كود:
   
  
procedure GetLine(var f:text; var L:line; var n:integer); 
حيث line هو نمط جدول محرفي:

كود PHP:
     type Line=array[1..80of char
تقوم الإجرائية بقراءة السطر الحالي من الملف النصي f للجدول المحرفي L وتضع عدد الأحرف الفعلية للسطر في المعامل n.
والآن نريد استخدام الإجرائية السابقة لقراءة ملف نصي سطراً تلو الآخر، وحساب عدد الكلمات في كل سطر. حيث تعرف الكلمة بأنها تتالي أحرف لايتضمن الفراغ ولا أدوات التنقيط.

اكتب برنامجاً يقوم بحساب عدد الكلمات في كل من أسطر ملف نصي ، واختبره في عدة ملفات نصية
كود PHP:
program text2;
type
line
=array[1..80]of char;
var
b:boolean;
i,j,n,words:integer;
ln:line;
t:text;
s:string;
 
procedure getline(var f:text; var l:line; var n:integer);
begin {procedure 1}
     
n:=0;
     while (
not(eoln(f)))do
     
begin {while 1}
          
n:=n+1;
          
read(f,l[n]);
     
end; {while 1}
     
readln(f);
end; {procedure 1}

begin {main}
     
write('Enter the name of your file with its path');
     
write(' if necessary or drag its icon by mouseinto this window: ');
     
readln(s);
     
assign(t,s);
     
reset(t);
     
j:=0;
     while (
not(eof(t)))do
     
begin {while 2}
          
j:=j+1;
          
getline(t,ln,n);
          
words:=0;
          
b:=true;
          for 
i:=1 to n do
          
begin {for 1}
               if 
ln[iin ['a'..'z','A'..'Z']then
               begin 
{if 1}
                    if 
b=true then
                    begin 
{if 2}
                         
words:=words+1;
                         
b:=false;
                    
end; {if 2}
               
end  {if 1}
               else {if 
1}
                   
b:=true;
          
end; {for 1}
          
writeln('Line ',j:3,' ':10,'Total words: ',words);
          
writeln('Go to the next line if found?!!!....Press ENTER');
          
readln;
     
end; {while 2}
     
close(t);
end. {main


التعديل الأخير تم بواسطة achraf.mouni ; 06-05-2009 الساعة 11:19 PM
lucky girl غير متواجد حالياً
 رقم المشاركة : ( 5 )
lucky girl
VIP_MEMBRE
رقم العضوية : 79932
تاريخ التسجيل : 01-01-2009
الدولة : Algeria
الجنس :
مكان الإقامة : الجزائر
عدد المشاركات : 1,151 [+]
آخر تواجد : [+]
عدد النقاط : 1943
قوة الترشيح : lucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداع
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 06-05-2009 - 11:29 PM ]

شكراااااااا اخي على العمل الرائع ................الله يجازيك كل الخير

التوقيع



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





achraf.mouni غير متواجد حالياً
 رقم المشاركة : ( 6 )
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
رقم العضوية : 41722
تاريخ التسجيل : 08-09-2008
الدولة : Algeria
الجنس :  male
مكان الإقامة : الجزائر
عدد المشاركات : 2,439 [+]
آخر تواجد : [+]
عدد النقاط : 1712
قوة الترشيح : achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 06-05-2009 - 11:33 PM ]

لا شكر على واجب اختي دليلة
شكر لمرورك الطيب جزاك الله خير


achraf.mouni غير متواجد حالياً
 رقم المشاركة : ( 7 )
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
رقم العضوية : 41722
تاريخ التسجيل : 08-09-2008
الدولة : Algeria
الجنس :  male
مكان الإقامة : الجزائر
عدد المشاركات : 2,439 [+]
آخر تواجد : [+]
عدد النقاط : 1712
قوة الترشيح : achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 07-05-2009 - 10:07 PM ]

Exercice 1
Ecrire un algorithme qui réalise la copie d'une matrice d'entiers de taille n x m dans une autre matrice d'entiers de taille n x m.
كود PHP:
001  Copie d'une matrice d'entiers             }
002  
003  action copieMatrice
(src,dst)
004    Donnees             src tableau [N][Mde entier  tableau source         }
005    Donnees Resultat  dst tableau [N][Mde entier  tableau destination    }
006    Locales  i,entier                               indices de boucle      }
007    pour i de 0 à N-1 faire
008      pour j de 0 à M
-1 faire
009        dst
[i][j] := src[i][j]
010      fait
011    fait
012  fin action 
CopieMatrice.lda
Exercice 2
a) Ecrire un algorithme qui calcul la somme des valeurs de la diagonale principale d'une matrice de réels carrée de taille n x n.
كود PHP:
001  Calcul de la somme des valeurs            }
002  de la diagonale principale                }
003  dune matrice de reels                    }
004  
005  fonction sommeDiagonalePrincipale
(t) : reel
006    Donnees t 
tableau [N][Nde reel   tableau de recherche                  }
007    Locales i entier                   indice de boucle pour                 }
008            cumul reel                 variable maximum resultat             }
009    cumul := 0.0
010    pour i de 0 à N
-1 faire
011      cumul 
:= cumul t[i][i]
012    fait
013    Resultat 
cumul
014  fin fonction 
SommeDiagonalePrincipaleMatric e.lda
b) Ecrire un algorithme qui calcul la somme des valeurs de la diagonale secondaire d'une matrice de réels carrée de taille n x n.
كود PHP:
  001  Calcul de la somme des valeurs            }
002  de la diagonale secondaire                }
003  dune matrice de reels                    }
004  
005  fonction sommeDiagonaleSecondaire
(t) : reel
006    Donnees t 
tableau [N][Nde reel   tableau de recherche                  }
007    Locales i entier                   indice de boucle pour                 }
008            cumul reel                 variable maximum resultat             }
009    cumul := 0.0
010    pour i de 0 à N
-1 faire
011      cumul 
:= cumul t[i][N-1-i]
012    fait
013    Resultat 
cumul
014  fin fonction 
SommeDiagonaleSecondaireMatric e.lda

Exercice 3
Ecrire un algorithme de recherche de la valeur maximale d'une

matrice de réels de taille n x m.
كود PHP:
001  Calcul de la valeur maximale contenue     }


002  dans une matrice de reels                 }
003  
004  fonction valeurMaximaleMatrice
(t) : reel
005    Donnees t 
tableau [N][Mde reel   tableau de recherche                  }
006    Locales i,entier                 indices de boucle pour                }
007            max reel                   variable maximum resultat             }
008    max := t[0][0]
009    pour i de 0 à N-1 faire
010      pour j de 0 à M
-1 faire
011        si t
[i][j] > max alors
012          max 
:= t[i][j]
013        fsi
014      fait
015    fait
016    Resultat 
max

017  fin fonction 
ValeurMaximaleMatrice.lda
Exercice 4

a) Ecrire un algorithme qui calcule le produit d'une matrice de réels de taille 4 x 4 par une matrice de réels de taille 4 x 4.
كود PHP:
  001  Calcul de la matrice 4x4 obtenue          }
002  par produit de deux matrices 4x4 de reels }
003  
004  action produitMatrices4x4
(t1,t2,t)
005    Donnees             t1,t2 tableau [4][4de reel  tableaux a multiplier  }
006    Donnees Resultat  t tableau [4][4de reel      tableau resultat       }
007    Locales i,j,entier                  indices de boucle pour             }
008            aux tableau [4][4de reel    tableau auxiliaire de calcul       }
009    pour i de 0 à 3 faire
010      pour j de 0 à 3 faire
011        aux
[i][j] := 0.0
012        pour k de 0 à 3 faire
013          aux
[i][j] := aux[i][j] + t1[i][k]*t2[k][j]
014        fait
015      fait
016    fait
017    copieMatrice
(aux,t);
018  fin action 
On utilise l'action de copie de matrice développée à l'exercice 1 adaptée aux tableaux de réels.
ProduitMatrices4x4.lda
b) Ecrire un algorithme qui calcule le produit d'une matrice de réels de taille n x m par une matrice de réels de taille m x p.
كود PHP:
  001  Calcul de la matrice nxp obtenue          }
002  par produit de deux matrices nxm et mxp   }
003  
004  action produitMatrices
(t1,t2,t)
005    Donnees             t1 tableau [N][Mde reel     tableau a multiplier   }
006                        t2 tableau [M][Pde reel     tableau a multiplier   }
007    Donnees Resultat  t tableau [N][Pde reel      tableau resultat       }
008    Locales i,j,entier                  indices de boucle pour             }
009            aux tableau [N][Pde reel    tableau auxiliaire de calcul       }
010    pour i de 0 à N-1 faire
011      pour j de 0 à P
-1 faire
012        aux
[i][j] := 0.0
013        pour k de 0 à M
-1 faire
014          aux
[i][j] := aux[i][j] + t1[i][k]*t2[k][j]
015        fait
016      fait
017    fait
018    copieMatrice
(aux,t);
019  fin action 

روبن غير متواجد حالياً
 رقم المشاركة : ( 8 )
روبن
رقم العضوية : 97407
تاريخ التسجيل : 07-04-2009
الدولة : Algeria
الجنس :  male
مكان الإقامة : الجزائر
عدد المشاركات : 144 [+]
آخر تواجد : [+]
عدد النقاط : 73
قوة الترشيح : روبن عضو يستحق التميز
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 10-05-2009 - 03:23 PM ]

عمل رائع بارك الله فيك
كل ما نحتاجه في مادة إعلام آلي 2
الله يخليك....


التوقيع
mimik غير متواجد حالياً
 رقم المشاركة : ( 9 )
mimik
رقم العضوية : 19446
تاريخ التسجيل : 12-05-2008
الدولة : Algeria
الجنس :  femalle
مكان الإقامة : الجزائر
عدد المشاركات : 1,611 [+]
آخر تواجد : [+]
عدد النقاط : 3481
قوة الترشيح : mimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداع
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي

كُتب : [ 16-05-2009 - 10:18 PM ]

شكراعلى هدا العمل

التوقيع

^ice^ غير متواجد حالياً
 رقم المشاركة : ( 10 )
^ice^
رقم العضوية : 171060
تاريخ التسجيل : 29-12-2010
الدولة : Algeria
الجنس :  femalle
مكان الإقامة :
عدد المشاركات : 4 [+]
آخر تواجد : [+]
عدد النقاط : 10
قوة الترشيح : ^ice^ عضو يستحق التميز
الأوسمـة
بيانات الإتصال
آخر المواضيع
افتراضي رد: بعض مسائل في الباسكال محلولة

كُتب : [ 10-01-2011 - 07:38 PM ]

السلام عليكم ورحمة الله وبركاته

أشكر الأخ achraf.mouni جـزيل الشكر على هذه المسائل الرائعه
ولكن هناك تسأول ؟
في المسأله السابعه اريد منك ان تشرح لي كيف تعمل عمليه الضرب لانني لم اتمكن منها

وسأكون لك شـاكرة


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

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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
{شرح} خطوات لحل مسائل المواريث منتهى الرقهـ} السنة الرابعة 11 29-04-2013 08:44 PM
مسائل متفرقة في العقيدة شمس الغروب المنتدى الاسلامي العام 11 06-09-2010 02:18 PM
51تمرين محلولة في الباسكال achraf.mouni الإعــلام الآلي والرياضيــات 8 28-01-2009 09:06 AM
أسطوانة مواضيع و مسائل محلولة لجميع شعب الثالثة ثانوي Mr.Dj تحضيرات، نماذج امتحانات و نتائج شهادة البكالوريا 2014 0 27-11-2008 12:14 AM
مسائل مشهورة في المواريث amin23 السنة الرابعة 1 26-11-2008 10:57 PM

كلمات البحث - Keywords
Projets de fin d'études, Mémoires, Techniques de l'ingénieur, Concours Magister 2014/2015, Recrutement des ingénieurs, Téléchargements des livres, Manifestations professionnelles, Télédétection, Formations SIG, APPELS D'OFFRES, Evénements scientifiques, نتائج شهادة التعليم الابتدائي 2014
منتدى المهندس موقع لتبادل الخبرات و الملفات في جميع مجالات الهندسة كما مذكرات و مشاريع نهاية التخرج و مسابقات الماجستير و الماستير و الدكتوراه نتائج شهادة التعليم الابتدائي 2014


الساعة الآن 02:31 PM.

- Sciences et Ingénierie - Concours Magister 2013/2014 - Recrutement - Téléchargements - Manifestations professionnelles - Systèmes d'Information Géographique et Télédétection - Logiciels et formations SIG - APPELS D'OFFRES - Les Langues - Bibliothèque médicale - Evénements scientifiques - CISCO,LINUX/UNIX,TOEFL,TOEIC,IELTS - Annuaire de Liens

ضع بريدك الالكتروني :

المنتدى غير مسؤول عن المواضيع او المقالات التي تنشر بالمنتديات,فكل موضوع ومقال يوضح رأي الكاتب

ابرئ نفسي أنا مؤسس الموقع ، أمام الله و أمام جميع الزوار و الأعضاء ، على ما يحصل من تعارف بين الأعضاء أو زوار على مايخالف ديننا الحنيف

 

Powered by vBulletin® Copyright ©2000 - 2014, Jelsoft Enterprises Ltd. , TranZ By Almuhajir
للاتصال بنا : ingdz.com [at] gmail.com