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

[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

[you92cef]

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

ولك جزيل الشكر،
أدرس في السنة النهائية من التعليم الثانوي (باك) شعبة علوم اعلامية (sciences de l'informatique)، انا من تونس من ولاية القصرين ونحب تبسة برشا، الباسكال نعاوده 3 اعوام

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

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

شكرا جزيلا لك واذا لديك دروس حول algorithme
ارجوا ان تزودني بها واطلع على برنامجكم الدراسي الخاص بمادة الاعلام الالي

[salemk]

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

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

شكرا جزيلا لك واذا لديك دروس حول algorithme
ارجوا ان تزودني بها واطلع على برنامجكم الدراسي الخاص بمادة الاعلام الالي

ان شاء الله تكون شفت الروابط

[you92cef]

[QUOTE=salemk;12183097]ان شاء الله تكون شفت الروابط[/QUOTE

نعم انا اطلعت على الروابط وهي خاصة بالسنة اولى ولكن انا اريد دروس للسنة الثانية تخصص اعلام الي
شكرا لك