LMD OUARGLA
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

LMD OUARGLA

LMD OUARGLA
 
الرئيسيةأحدث الصورالتسجيلدخول

 

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

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




عدد المساهمات : 12
نقاط : 5491
تاريخ التسجيل : 21/04/2009

برنامج معالجة الجداول Empty
مُساهمةموضوع: برنامج معالجة الجداول   برنامج معالجة الجداول Icon_minitimeالأحد مايو 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 :: رياضيات و إعلام آلي :: قســــم البرمجة-
انتقل الى: