Prooof
عدد المساهمات : 12 نقاط : 5491 تاريخ التسجيل : 21/04/2009
| موضوع: برنامج معالجة الجداول الأحد مايو 24, 2009 4:03 pm | |
| برنامج معالجة الجداول وضع الأعداد الفردية في مقدمة الجدول و الأعداد الزوجية إلى آخره ثم ترتيب الفردية تصاعديا و الزوجية نتازليا في الجدول. وقد كان إختبارا في العمل التطبيقي للسنة أولى
زوروني على: LMD.{
****************************************************************************** ********* les nombres impaires au front du tableau ************ ********* les nombres paires a la fin du tableau ************ ********* ordonner les impaires croissant les impaire d‚croissnat ************ ********* r‚alis‚ par l''enseignant ben mir abd el kader 2009 ************ ******************************************************************************
} program ordretableau; uses crt; const n = 10; var t : array[1..n] of integer; i,j,k,x : integer; ind : integer; c : char;
procedure affiche_tab; var j :integer; begin write('le tableau : '); for j := 1 to n do write(t[j], ' '); writeln; end;
{programme principal} begin
repeat
clrscr;
writeln('*******************************************************************************'); writeln('********* les nombres impaires au front du tableau **********'); writeln('********* les nombres paires a la fin du tableau **********'); writeln('********* ordonner les impaires croissants les impaires d‚croissants **********'); writeln('********* r‚alis‚ par l''enseignant ben mir abd el kader 2009 **********'); writeln('*******************************************************************************'); writeln; writeln;
{lecture du tableau} writeln('donner les element du tableau'); for i := 1 to n do begin write('t[',i,'] = '); readln(t[i]); end;
writeln;
{ les nombres impaires au front du tableau les nombres paires a la fin du tableau }
ind := 1; for i := 1 to n do begin if t[i] mod 2 <> 0 then begin x := t[ind]; t[ind] := t[i]; t[i] := x; ind := ind + 1; end; end;
writeln('tableau avant l''ordre'); affiche_tab;
ind := ind - 1;
{odre croissant des nombres impaires} for i := 1 to ind do begin k := i; for j := i + 1 to ind do if t[j] < t[k] then k := j;
x := t[i]; t[i] := t[k]; t[k] := x; end;
{odre d‚croissant des nombres paires} for i := ind+1 to n do begin k := i; for j := i + 1 to n do if t[j] > t[k] then k := j;
x := t[i]; t[i] := t[k]; t[k] := x; end;
{affichage du tableau} writeln('tableau apr‚s l''ordre'); affiche_tab; writeln;
{pour r‚executer le programme} write('voulez vous entrez un nombre "o" sinon "n" : ');readln(c); until c = 'n';
write('appuyer sur une touche'); readln; end. | |
|