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

[you92cef]

البرنامج الاول
ملاحظة يجب احترام مجال integer *-*الاعداد التي تتكون من 4 ارقام يحولها بشكل صحيح الاعداد التي تتكون من 5 ارقام ا اكثر فيها بعض المشاكل الناتجة عن type integer

program temps;
uses wincrt;
var n,j,r,h,m,s:integer;
begin
writeln('S.V.P entrer n');
readln(n);
j:=n div 86400;
r:=n mod 86400;
h:=r div 3600;
r:=r mod 3600;
m:= r div 60;
s:= r mod 60;
writeln(n,'=',j,':',h,':',m,':',s);
end.

البرنامج الثاني

program temps;
uses wincrt;
var n1,n2,n3,j1,j2,j3,r1,r2,r3,r4,r5,r6,h1,h2,h3,m1,m2,m3,s1,s2,s3:integer;
begin
writeln('S.V.P entrer n1,n2');
readln(n1,n2);
j1:=n1 div 86400;
r1:=n1 mod 86400;
h1:=r1 div 3600;
r2:=r1 mod 3600;
m1:= r2 div 60;
s1:= r2 mod 60;

j2:= n2 div 86400;
r3:= n2 mod 86400;
h2:=r3 div 3600;
r4:= r3 mod 3600;
m2:= r4 div 60;
s2:=r4 mod 60;
n3:=n1-n2;
j3:=n3 div 86400;
r5:=n3 mod 86400;
h3:=r5 div 3600;
r6:=r5 mod 3600;
m3:= r6 div 60;
s3:= r6 mod 60;
writeln(n1,'=',j1,':',h1,':',m1,':',s1);
writeln(n2,'=',j2,':',h2,':',m2,':',s2);
writeln('la difference est:',j3,':',h3,':',m3,':',s3);
end.

lملاحظة هامة البرنامجين ليسا شغالين بنسبة 100/100 ويجب اضافة بعض الشروط كان يكون العدد الذي تدخله موجبا وان يكونn1 من n2
حاول(ي) اضافة هذه الشروط
+احترام مجال integer

يمكن القيام بالبرنامجين بطرق مختلفة