ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[salemk]

المشاركة الأصلية كتبت بواسطة bhazar

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

program ee;
uses wincrt;

var
lettre :array['A'..'Z'] of integer;
ch:string;
i:char;
j:integer;

begin
repeat
writeln('saisir une chaine');
readln(ch);
until ch<>'';

for i:='A' to 'Z' do
    for j:=1 to length(ch) do
        if upcase(ch[j])=i then
           lettre[i]:=lettre[i]+1;


for i := 'A' to 'Z' do
if lettre[i]<>0 then
writeln(i, ' pour ',lettre[i],' fois');
end.

[medscd]

ااااااااااااااااااااااااشكرااااااااااااااااااااا

[you92cef]

المشاركة الأصلية كتبت بواسطة bhazar

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

تم حل تمرين مشابه له تقوم بادخال جدول ويقوم باعطاءك رقم الاعداد التي تكررت ومكان تكررها

البرنامج سهل وبسيط برمج*-*يه*-*بنفسك

[you92cef]

ارجوا من الطلبة ان يضعوا امتحانات الاعلام الاي لمحاولة حلها

كما ارجوا ممن لديه امتحانات السنة الثانية اعلام الي ان يضعها هنا
ومن لديها دروس السنة الثانية اعلام الي
الخاص ب
arbres binire de recherche
ان يضعها هنا او أي معلومات بخصوص ه>ا النوع من الدروس
شكرا للجميع

[yalova]

نحطو كل caractère في خانة في جدول
نباركوريو tableau ونديرو كونتور يتانكريمونتا كل مرة يلقى فيها المحتوى تاع الخانة مطابق للحرف المراد
ونكتبو الكونتور
والله اعلم

[algeriano9354]

السلام عليكم ،،، من فضلكم أريد برنامج باسكال لحساب أعداد كيث المكونة من 3 أٍقام
un programme qui permet de calculer les nombres de Keith composé de 3 chiifres

[*ابو محمد الجزائري*]

ما شاء الله عليكم اصحاب الاعلام الآلي رب يبارك
ادام الله نشاطكم و جعلها في ميزان حسناتكم و لكي ترقى جامعاتنا الى مستوى اعلى
و اعتذر لنفاذ زاد الشكر لدي

بالتوفيق

[you92cef]

المشاركة الأصلية كتبت بواسطة algeriano9354

السلام عليكم ،،، من فضلكم أريد برنامج باسكال لحساب أعداد كيث المكونة من 3 أٍقام
un programme qui permet de calculer les nombres de Keith composé de 3 chiifres

هده المتتالية تشبه الى حد بعيد متتالية فيبوناتشي

اولا نقوم بقراءة عدد مكون من ثلاث ارقام

مثلا
145
الان يلزمنا عزل الارقام عن بعضها البعض
1 4 5

من اجل هدا نستعمل المبدا التالي

n mod 10
ex
145 mod 10=5
n:= n div 10
n:=14
14 mod 10
:=4
n:= n div 10
:=1
1 mod 10:=1

هك>ا نكون قد عزلنا الارقام 
1    4     5

الان ندخل الى الدالة

entreé 
trois chiffres 
sortie seroa la somme des trois chiffres 

par suite 
le 2 ieme chiffre prendre la place de 1 ier chifre 

le 3ieme chiffre prendre la place de 2ieme chiffres 

la somme prendre la place de troisieme chiffres 
ex

145
premiere chiffres 1
2ieme 4
3ieme 5

la somme 10

2ieme iteration 
1 iere chiffre :=4
2 ieme chiffre :=5
3ieme chiffres :=10
on fait la somme
4+5+10:=19

ensi de suite 

ارجوا ان يقوم بعض الطلبة ببرمجته لانني فقدت برنامج الباسكال من الحاسوب وعلي تثبيته بعد البحث عن نسخة فعالة وملائمة لنظام الوندوز
شكرا لك

هدا البرنامج لا يتناسب مع المطلوب سيتم تعديله قريبا ان شاء الله

[you92cef]

المشاركة الأصلية كتبت بواسطة yalova

نحطو كل caractère في خانة في جدول
نباركوريو tableau ونديرو كونتور يتانكريمونتا كل مرة يلقى فيها المحتوى تاع الخانة مطابق للحرف المراد
ونكتبو الكونتور
والله اعلم

نعم ه>ا هو المبدا

الرد موجود في الرد الاول من الصفحة19

والرد رقم 240 في الصفحة 16
*-* تمرين مشابه له تقريبا*-*

[you92cef]

المشاركة الأصلية كتبت بواسطة *ابن القيم*

ما شاء الله عليكم اصحاب الاعلام الآلي رب يبارك
ادام الله نشاطكم و جعلها في ميزان حسناتكم و لكي ترقى جامعاتنا الى مستوى اعلى
و اعتذر لنفاذ زاد الشكر لدي

بالتوفيق

امين
بارك الله فيك وجزاك خيرا

[you92cef]

program ex;
uses wincrt;
type tableau=array[0..100]of integer;
var n,n1,m,m1,i:integer;
s:tableau;
begin
writeln('Entrez un nombre de 3 chiffres');
readln(n);
writeln('Combien de nombre des Keith vous aime afficher?');
readln(m);
m1:=m;
n1:=n;
s[2]:=n mod 10;
n:= n div 10;
s[1]:= n mod 10;
n:= n div 10;
s[0]:= n mod 10;
for i:=3 to m+3 do begin
s[i]:=s[i-3]+s[i-2]+s[i-1];
writeln(s[i-3],'+',s[i-2],'+',s[i-1],'=',s[i]);
end;
end.

البرنامج مع الشرح لكيفية الحصول على اعداد كيث

حاول ان تفهمه بنفسك
سيتم وضع الشرح قريبا ان شاء الله

[salemk]

المشاركة الأصلية كتبت بواسطة algeriano9354

السلام عليكم ،،، من فضلكم أريد برنامج باسكال لحساب أعداد كيث المكونة من 3 أٍقام
un programme qui permet de calculer les nombres de Keith composé de 3 chiifres

للاستفادة الناس لكل،
ارجو في التساؤلات اضافة الطرح العام وشكرا Le terme général ou le principe

[enemi05]

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

من فضلكم أريد برنامج باسكال.

soit un matrice "n" ligne et "m" colonne ecrire un sous programe qui calcule la transpose de cette matrice**
ecrire un sous programe qui calcule le produit de la matrice pour satransposee

[algeriano9354]

هذا برنامج كيث قمت بكتابته شخصيا مستفيدا من نصائح الاخوة ،،، أرجو منكم تقييما له

program keith;
uses wincrt;
var
a,b,c,d,e,r1,r2,r3,r4,s,k:longint;
begin
repeat
writeln('entrer un nombre composé de 5 chiffres');
readln(k);
begin
 a:= k div 10000;
 r1:=k-a*10000;
 b:=r1 div 1000;
 r2:=r1-1000*b;
 c:=r2 div 100;
 r3:=r2-c*100;
 d:=r3 div 10;
 r4:=r3-10*d;
 e:=r4;
 s:=0;
  repeat
   s:=a+b+c+d+e;
    begin
    if s=k then
     writeln(s,' :est un nombre de keith')
     else
      a:=b;
      b:=c;
      c:=d;
      d:=e;
      e:=s;
    end;
  until s>k;
 end;
until k>99999
end.

[you92cef]

بخصوص برنامج كيث فللاسف لم افهمه جيدا الى بعد قراءة نص الموسوعة ويكيبيديا

ل>لك يجب في البرنامج لالاول ان نقوم بملاحظة ما ا>ا كان الرقم الاول موجود في متتالية الاعداد التي نحصل عليها

سيتم تعديل البرنامج الاول ان شاء الاول
-------------------
بخصوص برنامج الاخ الجريانو فهو مبني على اساس قراءة عدد من 5 ارقام وهنا نحتاج الى معرفة عدد من خمسة ارقام يكون عدد كيث حتى نحكم على البرنامج ا>ا كان يعمل بشكل جيدا ام لا

اضافة الى التعليقات *-* بحيث عند ادخال عدد ليس من اعداد كيث يظهر تعليق على ان ه>ا العدد ليس من اعداد كيث

التعليقات مهمة جدا جدا جدا جدا جدا