البرنامج التاني
*-*في نص التمرين غير مطلوب اظهار قيم كل جدول ولكن تم اظهارها لكي نكون متاكدين انها القيم الصحيحة لكل جدول *-*
في هذا التمرين ايضا الحاسوب هو من يقوم بملء الجدول عشوائيا بقيم تنتمي الى مجموعة الاعداد
n
محصورة بين 0و1000*-*لا تساوي 1000*-**-* غير مهم هدا المجال لان التمرين لم يحدد قيم الجدول الى اي مجال تنتمي *-*
في نص التمرين لم نستخدم الدالة
mod
لانني جربت استعمالها ولكن لم تنجح مع المفروض انها تكون صحيحة ولكن لا علينا
كود:
program ex;
uses wincrt;
type tableau=array[1..100]of integer;
var n,i,x:integer;
tab,tabpos,tabneg:tableau;
begin
i:=1;
randomize;
writeln('Entrez un entier entre 15 et 30 ');
readln(n);
if (n<15) or (n>30) then writeln('S.V.P entre 15 et 30');
while (n>=15) and (n<=30)and(i<=n) do begin
tab[i]:=random(10000);
x:=tab[i];
writeln('tab[',i,']=',tab[i]);
repeat
x:=x-2;
until x<2;
if x=0 then tabpos[i]:=tab[i]
else tabneg[i]:=tab[i];
i:=i+1;
end;
if (n>=15) and(n<=30) then begin
writeln('Les elements de tabpos sont');
for i:= 1 to n do
if tabpos[i]<>0 then writeln(tabpos[i]);
writeln('Les elements de tabneg sont');
for i:= 1 to n do
if tabneg[i]<>0 then writeln(tabneg[i]);
end;
end.
كدلك اي استفسار اطرحه وسوف نجيب عنه ان شاء اللله
شكرا