لمن لديه سؤال في الباسكال

[قائد السلام]

لمن لديه سؤال في الباسكال فيتفضل مشكورا

[سراب_88]

اريد ان اكتب القوريتم يحسب عدد حروف كلمة او جملة
مع علم اننا ندخل كلمة دفعة واحدة

[هزيم الرعد]

http://www.services.malaksoft.com/lmasat/replay/replay31.gif (http://djelfa.info/vb/%5BCENTER%5D%5BIMG%5Dhttp://www.services.malaksoft.com/lmasat/replay/replay31.gif%5B/IMG%5D%5B/CENTER%5D)

[2sofi]

[[Bonjour les amis, et merçi d'avance mon ami
"قائد السلام :
est ce que tu peut m'aider pour ce exercice
(ecrire un algorithme qui demande un nombre de départ, et qui ensuite écrit la table de multiplication de ce nombre)
S.............V.....:mh31::mh31:.......P[/SIZE]

[عبد السلام نصير]

برنامج باسكال يحسب معادلة من الدرجة الثانية

[hakim_ts]

السلام عليكم و مشكور اخي قائد السلام اما انا فعندي سؤال فيما يخص التعامل مع الملفات في بسكال فما هي التعليمة او الدالة التي تمكمننا من الحفض في ملفات المعطيات و ادا امنكن نماذج لخلول تمرينات و شكرا .

[hakim_ts]

]السلام للعضو سراب هدا حخل المسالة التي طلبتها و نرجو دعوة خير من فضلك
program tp ;
var
s: string ;
i : integer ;

begin
writeln ('donnez la phrase') ;
readln (s);
i:= langth (s);
writeln ('le selition c est ') ;

writeln (i);
readln ;
end.

[فارس اللإسلام]

برنامج باسكال يحسب معادلة من الدرجة الثانية

[zoldake]

برنامج باسكال يحسب معادلة من الدرجة 4

[ساجده]

السلام عليكم أريد تعلم الحاسوب ولو قليلا أريد تعلم هذه اللغات أسمع عن الباسكال والدالفي وغيرها أريد أن أبدأ من الأول من أين تنصحوني وهل أستطيع تعلمها؟ وكيف؟

[nour elhak]

اريد برنامج يرتب الاعداد التي في المصفوفات وشكرا

[احمد عين التوتة]

سلام عليكم
اريد ان اعرف التعليمة التي تسمح بتصميم ملف لحفض البيانات و بعد ذلك la mise ajours

[__الهاوي__]

مممممممممم

الأخ قائد السلام عرض المساعدة منذ 3 أشهر، الإخوة لم ينتبهوا لطول المدة.

لمن يملك دراية بلغى الدلفي فليساعد إخوته.

للأسف لا أستطيع مساعدتكم، لأنني نسيت الدلفي والباسكال، والأن أعمل على السي و السي شارب

[__الهاوي__]

لأجل عيون الأحباب

ألقيت نظرة على كتيب فيه ملخص دروس درستها منذ 10 سنوات، وهذه فائدة الملخصات.

إليكم إخوتي مساعدتي:
ترتيب مجموعة من الأرقام (سؤال نور الحق)
---------------------------------------------------------[/RIGHT]

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.

وهذه صورة للنتائج
http://www.geocities.com/messadi_madani/djelfa/trie.JPG

[RIGHT]معادلة من الدرجة الثانية(فارس الاسلام)، بالنسبة لzoldake فهي نفس الخطوات بتغيير س^2 بـ ع (remplacer x^2 par y)
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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.


وهذه صورة للنتائج
http://www.geocities.com/messadi_madani/djelfa/equa.JPG


أما التعامل مع الملفات فنراه غدا إن شاء الله، لأن الوقت الآن متأخر.
بالتوفيق للجميع إن شاء الله

[ليلى الجزائرية1]

أنا بحاجة ماسة إلى بعض المعلومات حول المكدسات والمؤشرات الديناميكية في لغة الباسكال

[سمو الطموح]

حابة نعرف كي يعود عندي تمرين كيفاه نترجموا
وجزاكم الله خيرا

[fatimazahra2011]

http://files.fatakat.com/2009/12/1260649664.jpg