LMD OUARGLA

LMD OUARGLA
 
الرئيسيةاليوميةس .و .جبحـثالتسجيلدخول

شاطر | 
 

 برنامج معالجة الجداول

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Prooof



عدد المساهمات : 12
نقاط : 3172
تاريخ التسجيل : 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.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج معالجة الجداول
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
LMD OUARGLA :: رياضيات و إعلام آلي :: قســــم البرمجة-
انتقل الى: