لمن يجيد لغة باسكال

[samia55]

أرجو أن تساعدوني على حل هذا التمرين و إن أمكن اليوم و شكرا
soit tab un tableau de n valeurs entières ou chaque nombre peut apparaître plusieurs fois
:ecrire un programme pascal qui permet de
lire les éléments du tableau tab1/***
compresser ce vecteur par l'élémination des valeurs répétées en utilisant le même vecteur
afficher les éléments du tableau tab aprés la compression

[Dr_khaled]

الله أعلم
الله أعلم

[Stranger in Paradise]

السلام عليكم...

حاولي تجريب هذا الحل...بعد تصحيح الاخطاء الخاصة بلغة الباسكال

على حسب فهمي سيقوم هذا البرنامج بقراءة القيم المعطاة الجدول(10 قيم يمكنك تعديلها)
ثم سيكتبها(بشكل عمودي)
بعدها سيقوم بمقارنة القيم وسيكتبها دون تكرار(القيمة المكررة تكتب مرة واحدة فقط)




program djelfa_vb

const n=10;
var tab:array[1..n] of integer ;
i : integer;

begin
writeln('entrer les valeurs du tableau');
for i:=1 to n do
readln(tab[i])

for i:=1 to n do
writeln('tab[',i,']=',tab[i]);

for i:=1 to n do
begin

if(tab[i]<>tab[i+1])then
writeln(tab[i])

end;
readln;
end.

[samia55]

شكرا لك , إن أمكنك تزويدي بدروس و شكرا