[RIGHT]لأجل عيون الأحباب
ألقيت نظرة على كتيب فيه ملخص دروس درستها منذ 10 سنوات، وهذه فائدة الملخصات.
إليكم إخوتي مساعدتي:
ترتيب مجموعة من الأرقام (سؤال نور الحق)
---------------------------------------------------------[/RIGHT]
كود PHP:
program trie_interger;
uses
wincrt;{si vous utilisez turbo 7 alors remplacez la par "uses CRT"}
type liste=array [1..10] of integer;
var maliste: liste; {declaration d'une liste qui contien 10 nombres}
i, j, ndx: integer;
tmp, nbr: integer;
begin
writeln('introduit les nombres à trie');
{introduction des valeurs}
for i :=1 to 10 do
begin
write('la valeur numero [',i,'] : ');read(nbr);
maliste[i] := nbr;
{next i;}
end;
{on cherche la petite valeur du tableau et la remplace par la valeur dont l'index i =1}
{puis la valeur suivante (index i = 2)}
for i :=1 to 10 do
begin
tmp :=maliste[i]; {sauvant la premiere valeur dans une variable temporaire}
for j:=i to 10 do
begin
if maliste[j] < tmp then
begin
tmp:=maliste[j] ; {la variable temporaire recoit cette valeur temprairement}
ndx := j; {sauvetage de l'index de la variable minimal}
end
end;
maliste[ndx]:=maliste[i]; {faire maintenant la permitation}
maliste[i]:= tmp; {entre la cellule concernee et la cellule dont la valeur et la minimum}
end;
writeln('la liste finale');
writeln('*******************************');
for i :=1 to 10 do
begin
writeln('la valeur numero [',i,'] est ',maliste[i]);
end;
writeln('*******************************');
end.
وهذه صورة للنتائج
معادلة من الدرجة الثانية(فارس الاسلام)، بالنسبة لzoldake فهي نفس الخطوات بتغيير س^2 بـ ع (remplacer x^2 par y)
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
كود PHP:
program trie_interger;
uses
wincrt;
var
X1, X2: real;
delta: real;
A, B, C: real;
begin
writeln('introduit les valeur des variable A, B, C de l''equation');
write (' la valeur de A ='); readln(A);
write (' la valeur de B ='); readln(B);
write (' la valeur de C ='); readln(C);
writeln ('votre equation est :',A:1:2, '(X^2)',' + ',B:1:2, '(X)',' + ',C:1:2, ' = 0');
delta := B*B - 4*A*C;
writeln('----------------------------------');
writeln('| la valeur de DELTA est ', delta:1:2,' |');
writeln('----------------------------------');
writeln('--------------------------------');
if delta <0 then writeln('pas de solution');
if delta = 0 then
begin
X1 := -B/(2*A);
writeln('l''equation a une seule solution: X = ', X1:1:2);
end;
if delta >0 then
begin
X1 := (-B-sqrt(delta))/(2*A);
X2 := (-B+sqrt(delta))/(2*A);
writeln('l''equation a deux solutions:');
writeln('X1 = ', X1:1:2);
writeln('X2 = ', X2:1:2);
end;
writeln('--------------------------------');
end.
وهذه صورة للنتائج
أما التعامل مع الملفات فنراه غدا إن شاء الله، لأن الوقت الآن متأخر.
بالتوفيق للجميع إن شاء الله
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
2008-12-08, 22:40
لمن لديه سؤال في الباسكال
العرض العادي
