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

[kharbouche]

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

السلام عليكم

لقد قمت بإعداد برنامج به 12 عشر تعليمة وقد تمكنت من اتمام 9 تعليمات وباقي 3 فأرجو منكم مساعدتي في اتمامها وجزاكم الله الف خير



1) بروسيدور لحذف عنصر من الجدول supprission

2) بروسيدور إضافة عنصر للجدول insertion

3) بروسيدور عكس قيم الجدول أي قلبها فقط وليس ترتيبها inverser

طبعا بلغة الباسكال او الدلفي وشكرا

مرحبا اخي انا اتعلم ايضا الباسكال ممكن اساعدك في هدا البرنامج بالنسبة الى invers قمت بهدا
invers

program string_inverse_mot;
uses crt;
const n=13;
var mot1,mot2:string[n];
l,i :integer;
begin
clrscr;
write('taper un mot de ',n,' caracteres : ');
read (mot1);
l:=length(mot1);
mot2 := mot1[n];
for i:= (l-1) downto 1 do
mot2:=mot2+mot1[i];
writeln(' l"inverse du mot est : ',mot2);
readln;
readln;
end.

suuprission
procedure choix_menu2 (var f:fich; var tableau:tab;var tableau2:tab; var rep3:char);
var
pos_emp,i,j : byte;
begin

Clrscr;
writeln('MENU SUPPRESSION EMPLOYE');
writeln;
writeln;
writeln('Choisir la position de l''employé à supprimer : ');
readln(pos_emp);



reset(f);
for i:=1 to filesize(f) do
begin
read(f, tableau[i]);
tableau2[i].nom :=tableau[i].nom;
tableau2[i].salaire :=tableau[i].salaire;
tableau2[i].tache :=tableau[i].tache;
tableau2[i].journee :=tableau[i].journee ;
end;
for i:= 1 to pos_emp-1 do
begin
rewrite(f);
write(f,tableau2[i]);
end;

seek(f,pos_emp+1);

for i:=pos_emp+1 to filesize(f) do
begin
write(f,tableau2[i]);
end;
close(f);
repeat
write('Opération réussite, voulez-vous revenir au menu principale ? (O/N) : ');
readln(rep3);
until rep3 in ['o','O','N','n'];
clrscr;
end;

او برنامج اخر suppression كالتالي avec la recherche de ça position

PROCEDURE suppression(var f: fic);
var pos, i: integer;
r: enr;
temp: fic;
begin
pos:=saisiepos(f);
assign(temp, 'temp.fic');
rewrite(temp);
reset(f);
{Copie du fichier f dans le fichier temp jusqu'a la position pos-1}
for i:=0 to pos-1 do
begin
seek(f,i);
read(f,r);
write(temp,r);
end;
{Copie du fichier f dans le fichier temp de la position pos+1 a la fin}
for i:=pos+1 to filesize(f)-1 do
begin
seek(f,i);
read(f,r);
write(temp,r);
end;
close(f);
close(temp);
{Suppression de l'ancien fichier f et remplacement par temp}
erase(f);
rename(temp, 'rep.fic');
assign(f, 'rep.fic');
writeln;writeln('Ok.');
pause;
end;