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

[salemk]

التمرين الثاني

امكانية استعمال MOD et DIV

PROGRAM SOMME;
uses wincrt;
var n:integer;
function s(n:integer):integer;
begin
if n<10 then
 s:=n 
else 
s:=N MOD 10+s(n div 10);
end;
begin
repeat
readln(n);
until n>=0;
writeln(s(n));
end.

Une solution itérative

Programme somme ;
Uses wincrt ;
Var
N,s :integer ;
Begin
Readln(n) ;
Repeat 
S :=s+s mod 10 ;
N := n div 10 ;
Until n=0 ;
Writeln(s) ;

باستعمال chaine

Program somme ;
Uses wincrt ;
Var
N,s,i,d,e :integer ;
ch:string;
Begin
Readln(n) ;
str(n,ch);
for i:=1 to length(ch) do
begin
val(ch[i],d,e);
s:=s+d;
end;
writeln(s);
end.

Une solution récursive

Program somme ;
Uses wincrt ;
Var
N:integer ;
ch:string;
function som(s:string):integer;
var
   d,e:integer;
begin
if length(s)=1 then
begin
   val(s,d,e);
   som:=d;
end
   else
   begin
       val(s[1],d,e);
       som:=d+som(copy(s,2,length(s)-1));
   end;
end;


Begin
Readln(n) ;
str(n,ch);
writeln(som(ch));
end.

[salemk]

التمرين الاول

program suite;
uses wincrt;
var
n,i,u0,v0,w0,un,vn,wn:longint;
begin
u0:=1;
v0:=2;
w0:=3;
readln(n);

for i :=1 to n do
begin
un:=2*u0+3*v0+w0;
vn:=u0+v0+2*w0;
wn:=u0+4*v0+w0;
u0:=un;
v0:=vn;
w0:=wn;
end;
writeln('U(',n,')= ',u0);
writeln('V(',n,')= ',v0);
writeln('W(',n,')= ',w0);
end.

Les programmes de l’exercice1 et la solution précédant tournent bien.

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Le programme qui suit est théorique car sous un éditeur Pascal lors de la déclaration des modules on s’assure de la visibilité des objets et de l’ordre des définitions qui doit être conformes aux appels des modules.
Dans U on appel V et W, pour calculer V on appel U et W et pour W on utilise U et V : c’est une récursivité croisée, l’éditeur Pascal ne permet pas une telle récursivité
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

program suite;
uses wincrt;

function u(n:longint):longint;
begin
if n=0 then
   u:=1
   else
       u:= 2*u(n-1)+3*v(n-1)+w(n-1);
end;

function v(n:longint):longint;
begin
if n=0 then
   v:=2
   else
       v:= u(n-1)+v(n-1)+2*w(n-1);
end;

function w(n:longint):longint;
begin
if n=0 then
   w:=3
   else
       w:= u(n-1)+4*v(n-1)+w(n-1);
end;

var
n: longint;

begin
readln(n);

writeln('U(',n,')= ',u(n));
writeln('V(',n,')= ',v(n));
writeln('W(',n,')= ',w(n));
end.

[you92cef]

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

التمرين الاول

program suite;
uses wincrt;
var
n,i,u0,v0,w0,un,vn,wn:longint;
begin
u0:=1;
v0:=2;
w0:=3;
readln(n);

for i :=1 to n do
begin
un:=2*u0+3*v0+w0;
vn:=u0+v0+2*w0;
wn:=u0+4*v0+w0;
u0:=un;
v0:=vn;
w0:=wn;
end;
writeln('U(',n,')= ',u0);
writeln('V(',n,')= ',v0);
writeln('W(',n,')= ',w0);
end.

Les programmes de l’exercice1 et la solution précédant tournent bien.

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Le programme qui suit est théorique car sous un éditeur Pascal lors de la déclaration des modules on s’assure de la visibilité des objets et de l’ordre des définitions qui doit être conformes aux appels des modules.
Dans U on appel V et W, pour calculer V on appel U et W et pour W on utilise U et V : c’est une récursivité croisée, l’éditeur Pascal ne permet pas une telle récursivité
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

program suite;
uses wincrt;

function u(n:longint):longint;
begin
if n=0 then
   u:=1
   else
       u:= 2*u(n-1)+3*v(n-1)+w(n-1);
end;

function v(n:longint):longint;
begin
if n=0 then
   v:=2
   else
       v:= u(n-1)+v(n-1)+2*w(n-1);
end;

function w(n:longint):longint;
begin
if n=0 then
   w:=3
   else
       w:= u(n-1)+4*v(n-1)+w(n-1);
end;

var
n: longint;

begin
readln(n);

writeln('U(',n,')= ',u(n));
writeln('V(',n,')= ',v(n));
writeln('W(',n,')= ',w(n));
end.

الحل الاول يشتغل جيدا

الحل الثاني هناك خطا *-* باللون الاحمر

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

عموما سوف احتفظ بالحل عندي وسوف احالو القيام بحل بالطريقة الثانية اعتمادا على الطريقة الاولى

[you92cef]

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

التمرين الثاني

امكانية استعمال mod et div

program somme;
uses wincrt;
var n:integer;
function s(n:integer):integer;
begin
if n<10 then
 s:=n 
else 
s:=n mod 10+s(n div 10);
end;
begin
repeat
readln(n);
until n>=0;
writeln(s(n));
end.

une solution itérative

programme somme ;
uses wincrt ;
var
n,s :integer ;
begin
readln(n) ;
repeat 
s :=s+s mod 10 ;
n := n div 10 ;
until n=0 ;
writeln(s) ;

باستعمال chaine

program somme ;
uses wincrt ;
var
n,s,i,d,e :integer ;
ch:string;
begin
readln(n) ;
str(n,ch);
for i:=1 to length(ch) do
begin
val(ch[i],d,e);
s:=s+d;
end;
writeln(s);
end.

une solution récursive

program somme ;
uses wincrt ;
var
n:integer ;
ch:string;
function som(s:string):integer;
var
   d,e:integer;
begin
if length(s)=1 then
begin
   val(s,d,e);
   som:=d;
end
   else
   begin
       val(s[1],d,e);
       som:=d+som(copy(s,2,length(s)-1));
   end;
end;


begin
readln(n) ;
str(n,ch);
writeln(som(ch));
end.

البرنامج خاطئ اخي للاسف
مثلا لو ادخلت مثلا 987654321
ففي 3 برامج سوف يظهر النتيجة 17 والتي هي مجموع 9+8 ولم يقم بباقي المجموع

الا انك ساعدتني في التفكير في عبارة المجموع

وبرنامج اخر يظهر النتيجة 0

[salemk]

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

البرنامج خاطئ اخي للاسف
مثلا لو ادخلت مثلا 987654321
ففي 3 برامج سوف يظهر النتيجة 17 والتي هي مجموع 9+8 ولم يقم بباقي المجموع

الا انك ساعدتني في التفكير في عبارة المجموع

وبرنامج اخر يظهر النتيجة 0

أخي لا تنسى انك تستعمل البسكال
Attention frère, Le type de donné utilisé pour la variable N est entier (integer), par définition un entier sous Pascal ne doit pas dépasser 2^15 = 32768
في البرمجة وتتطوير المواقع لا يوجد خاطئ وصحيح بل يوجد وافق المطلوب أو يتطلب التحسين

[you92cef]

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

أخي لا تنسى انك تستعمل البسكال
Attention frère, Le type de donné utilisé pour la variable N est entier (integer), par définition un entier sous Pascal ne doit pas dépasser 2^15 = 32768
في البرمجة وتتطوير المواقع لا يوجد خاطئ وصحيح بل يوجد وافق المطلوب أو يتطلب التحسين

شكرا اخي لمك انتبه جيدا كيف عرفت نوع n

ولكن البرنامج والاستاذ طلب ان ندخل n على اساس string

شكرا لك

[salemk]

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

شكرا اخي لمك انتبه جيدا كيف عرفت نوع n

ولكن البرنامج والاستاذ طلب ان ندخل n على اساس string

شكرا لك

Une solution récursive utilisant une chaîne formée seulement par des chiffres

Program somme ;
Uses wincrt ;
Var
N:string;
function som(s:string):integer;
var
   d,e:integer;
begin
if length(s)=1 then
begin
   val(s,d,e);
   som:=d;
end
   else
   begin
       val(s[1],d,e);
       som:=d+som(copy(s,2,length(s)-1));
   end;
end;

function verif(s:string):boolean;
begin
if length(s)= 0 then 
verif:= true
else
begin
if not(s[1] in ['0'..'9']) then 
	verif := false;
verif:=verif(copy(s,2,length(s)-1));
end;
end;


Begin
repeat
Readln(N) ;
Until verif(N);
writeln(som(N));
end.

[you92cef]

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

une solution récursive utilisant une chaîne formée seulement par des chiffres

program somme ;
uses wincrt ;
var
n:string;
function som(s:string):integer;
var
   d,e:integer;
begin
if length(s)=1 then
begin
   val(s,d,e);
   som:=d;
end
   else
   begin
       val(s[1],d,e);
       som:=d+som(copy(s,2,length(s)-1));
   end;
end;

function verif(s:string):boolean;
begin
if length(s)= 0 then 
verif:= true
else
begin
if not(s[1] in ['0'..'9']) then 
	verif := false;
verif:=verif(copy(s,2,length(s)-1));
end;
end;


begin
repeat
readln(n) ;
until verif(n);
writeln(som(n));
end.

شكرا لك اخي البرنامج شغال ساحاول فهمه ان شاء الله

ممكن سؤال في اي سنة تدرس ؟

[salemk]

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

شكرا لك اخي البرنامج شغال ساحاول فهمه ان شاء الله

ممكن سؤال في اي سنة تدرس ؟

ولك جزيل الشكر،
، انا من تونس من ولاية القصرين ونحب تبسة برشا

في ما يخص الحلول المقترحة، أكون سعيدا جدا لمناقشتها :d

[salemk]

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

الاستاذ طلب ان ندخل n على اساس string

Une itérative

Program somme ;
Uses wincrt ;
Var
N:string;

function som(s:string):integer;
var
   r,i,d,e:integer;
begin
r:=0;
for i :=1 to length(s) do
begin
val(s[i],d,e);
r:=r+d;
end;
som:=r;
end;


function verif(s:string):boolean;
var
i:integer;
begin

i:=1;
while s[i] in ['0'..'9'] do
begin
i:=i+1;
end;

verif:=i>length(s);

end;



Begin
repeat
Readln(N) ;
Until verif(N);
writeln(som(N));
end.