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

[ghost_4d]

هذه الخوارزمية كانت للتوضيح فقط ،، غرضها توصيل الفكرة فحسب ,,لكن مع ذلك الشكر موصول لكـ على النصائح ’’

[didou25360]

اريد حل معادلة من الدرجة الثانية الغوريتم او fortron وشكرا

[you92cef]

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

اريد حل معادلة من الدرجة الثانية الغوريتم او fortron وشكرا

يوجد في الصفحات الاولى من هذا الموضوع
*-* اظن الصفحة 4 او 5*-*

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

[ghost_4d]

هذه محاولتي في كتابة خوارزمية تحول من النظام العشري الى النظام الثنائي

لكن عندما ادخل اي رقم يظهر لي رقم 0 ,, لماذا وما المشكل ؟

[agm1991]

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

هذه محاولتي في كتابة خوارزمية تحول من النظام العشري الى النظام الثنائي

لكن عندما ادخل اي رقم يظهر لي رقم 0 ,, لماذا وما المشكل ؟

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

uses crt;
var s1,s2,s3,s4,i:integer;
begin
clrscr;
    readln(s1);
    s4:=0;
    i:=0;
    s3:=1;
    repeat
     i:=i+1;
      if i=1 then s3:=1
      else
        begin
         s3:=s3*10;
        end;
        s2:=s1 mod 2;
        s1:=s1 div 2;
        s4:=s3*s2 + s4;

    until s1=0;
    writeln(s4);
    readln;
end.

كما ان الحل يعتبر محدود اذ لايمكن للبرنامج تحويل
عدد اكبر من 31 الى الاعداد العشرية لان النوع
Integer محصور بين 32767 و -32768 لذلك يرجى تحويل المتغيرات الى longint

[ghost_4d]

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

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

uses crt;
var s1,s2,s3,s4,i:integer;
begin
clrscr;
    readln(s1);
    s4:=0;
    i:=0;
    s3:=1;
    repeat
     i:=i+1;
      if i=1 then s3:=1
      else
        begin
         s3:=s3*10;
        end;
        s2:=s1 mod 2;
        s1:=s1 div 2;
        s4:=s3*s2 + s4;

    until s1=0;
    writeln(s4);
    readln;
end.

كما ان الحل يعتبر محدود اذ لايمكن للبرنامج تحويل
عدد اكبر من 31 الى الاعداد العشرية لان النوع
integer محصور بين 32767 و -32768 لذلك يرجى تحويل المتغيرات الى longint

نعم معك حق
احييك اخي ,,على اكتشاف الخطأ
والشكر موصول اليك ,

[salemk]

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

هذه محاولتي في كتابة خوارزمية تحول من النظام العشري الى النظام الثنائي

هذه محاولتي لنظام اقل من 10 (فقط حاولت التعميم)

هل من تعليق أو نصيحة وجزاكم الله خيرا

ساحاول كتابة برنامج يحول من نظام الى نظام اخر (المشكلة في A B C D E F )

program re;
uses wincrt;

procedure saisir_base(var x:byte);
begin
writeln('donner la base de convertion');
readln(x);
if ((x<1) or (x>10)) then saisir_base(x);
end;


procedure saisir_nombre(var x:longint);
begin
writeln('donner un nombre en base 10');
readln(x);
if (x<=0) then saisir_nombre(x);
end;


procedure conv(y:longint;z:byte);
begin
if y<z then write(y)
else
begin
conv(y div z , z);
write( y mod z);
end;
end;

var
a:longint;
b:byte;

begin
saisir_nombre(a);
saisir_base(b);
conv(a,b);
end.

[salemk]

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

هذه محاولتي لنظام اقل من 10 (فقط حاولت التعميم)

هل من تعليق أو نصيحة وجزاكم الله خيرا

ساحاول كتابة برنامج يحول من نظام الى نظام اخر (المشكلة في A B C D E F )

program conv;
uses wincrt;

var
chiffres,ch:string;
b,b1:byte;


function verifier(s:string;x:byte):boolean;
var
i:byte;
begin
i:=1;
while ((upcase(s[i]) in (['A'..'F','0'..'9'])) and (pos(upcase(s[i]),chiffres)<=x)) do
begin
i:=i+1;
end;
verifier:= (i>length(s)) and (length(s)>0);
end;


function base10(s:string;x:integer):longint;
var
v:longint;
i:byte;
begin
v:=0;
for i:=1 to length(s) do
v:= pos(upcase(s[i]),chiffres)-1 + (v*x);
base10:=v;
end;


function nouvellebase(x:longint;nb:byte):string;
var
s:string;
i:byte;
begin
s:='';
while not(x=0) do
Begin
i:= x mod nb;
s:= chiffres[i+1] + s;
x:= x div nb;
End;
nouvellebase:=s;
end;

begin
chiffres:='0123456789ABCDEF';
repeat
writeln('donner une valeur');
readln(ch);
writeln('Dans quelle base est-elle exprimée ?');
readln(b);
until ((verifier(ch,b)) and (ch<>'0') and (b in [2..16]));
writeln('Dans quelle base faut-il l''exprimer?');
readln(b1);
writeln(ch,' en base ',b,' est égale à ',nouvellebase(base10(ch,b),b1),' en base ',b1); 
end.

شكرا على التمارين التي طرحتموها

[bhazar]

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

[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.

[you92cef]

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

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

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

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

[medscd]

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

[you92cef]

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

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

[yalova]

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

[you92cef]

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

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

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

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

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