سؤال - منتديات الجلفة لكل الجزائريين و العرب

العودة   منتديات الجلفة لكل الجزائريين و العرب > منتديات التقنية > منتدى البرمجة

منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل...

في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة تقرير عن مشاركة سيئة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .

آخر المواضيع

سؤال

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 2009-01-24, 07:20   رقم المشاركة : 1
معلومات العضو
عبد السلام نصير
عضو جديد
 
إحصائية العضو










افتراضي سؤال

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









 


رد مع اقتباس
قديم 2009-01-24, 07:21   رقم المشاركة : 2
معلومات العضو
عبد السلام نصير
عضو جديد
 
إحصائية العضو










افتراضي

في إنتظار إجابتكم










رد مع اقتباس
قديم 2009-01-26, 13:21   رقم المشاركة : 3
معلومات العضو
عبد السلام نصير
عضو جديد
 
إحصائية العضو










افتراضي

هل من مجيب على هذا السؤال










رد مع اقتباس
قديم 2009-01-27, 09:15   رقم المشاركة : 4
معلومات العضو
ararùed
عضو جديد
 
إحصائية العضو










افتراضي

كود PHP:
Program Delta_Equality;

var
Equality:String;
Pointer:Integer;
X2Find:Boolean;
XFind:Boolean;
EqualFind:Boolean;
A:stringAI:Integer;
B:stringBI:Integer;
C:stringCI:IntegerCode:IntegerDelta:Integer;

Begin

Writeln
('Enter the equality in the simple mode  ');
writeln('as the following   +- A X^ +- B X +- C = 0  ... X^ = X * X');
writeln('');
writeln('');
{
Read the Equalityreadln(Equality);
for 
Pointer:=1 to length(equality) do
Begin {Beginnig of the For}

case 
equality[Pointerof

'X','x':
       if(
equality[Pointer]+equality[Pointer+1]='X^')or(equality[Pointer]+equality[Pointer+1]='x^'then if Pointer=1 then
       begin
       A
:=A+'1';
       
X2Find:=true;
       
end else  X2Find:=true else
       if 
X2Find=false then writeln('You did not enter the X^...') else XFind:=true;

'=':
       if 
X2Find=false then writeln('You did not enter the X^...') else
       if 
XFind=false then writeln('You did not enter the X ...') else equalfind:=true;

'0'..'9':
if (
X2Find=true)and(XFind=true)and(equalfind=true)and(equality[Pointer]<>'0')
then
begin
writeln
('You did not enter the equlity in the simple mode !!!!');
Equality:='';
readln(Equality);
end else
       if 
X2find=false then A:=A+equality[Pointer] else
       if (
X2Find=true)and(XFind=false)then B:=B+equality[Pointer] else
       if (
X2Find=true)and(XFind=true)and(equalfind=false)then C:=C+equality[Pointer];

'-','+':
       if 
X2Find=false then A:=Equality[Pointer] else
       if (
X2Find=true)and(XFind=false)and(equalfind=false)then B:=Equality[Pointer] else
       if (
X2Find=true)and(XFind=true)and(equalfind=false)then C:=Equality[Pointer];



end;{End of the Case}

if 
Pointer=length(Equality)then
begin
writeln
('A = ',A,'  ','B =',B,'  ','C = ',C);
writeln('');
val(A,Ai,Code);val(B,Bi,Code);val(C,Ci,Code);
Delta:=sqr(Bi)-(4*Ai*Ci);
writeln('Delta = ',Delta);
if 
Delta<0 then writeln('There is no solution for this equality in real numbers ...')else
if 
Delta=0 then writeln('The answer is : ''X1 = X2 = ', - Bi/(2*Ai))else
if 
Delta>0 then
writeln
('The answer is : ''X1 = ', (- Bi sqrt(Delta))/(2*Ai),' ............ ','X2 = ', (- Bi sqrt(Delta))/(2*Ai) );
end;

end;{End of the For}

readln;readln;
end
للأمانة منقولة









رد مع اقتباس
قديم 2009-01-28, 06:58   رقم المشاركة : 5
معلومات العضو
عبد السلام نصير
عضو جديد
 
إحصائية العضو










افتراضي

merci...............................










رد مع اقتباس
إضافة رد


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

الساعة الآن 03:43

المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية


2006-2024 © www.djelfa.info جميع الحقوق محفوظة - الجلفة إنفو (خ. ب. س)

Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc