• 0
khiro rca

كود بسيط بالسي++ لم أستطع تحويله للدلفي / C++ To Delphi

سؤال

السلام عليكم

إخواني

وجدت هذا الكود بالـ++C وسيعينني على عملي لكن لم أستطع تحويله للدلفي لأكمل العمل - ولا أعرف السي ++

هذا هو الكود (يقوم بوضع كل كلمة في سطر إنطلاقا من جملة)

int main()

{

string strtext("khiro c++ delphi");

int iLength = strtext.length();

for (int i=0;i<=iLength;i++)

{ if (!(strtext==' '))

{

cout<<strtext;

}

else

cout<<endl;

}

return 0;

}

**********

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

var text:string;

ilengt,i :Integer;

//---------------------------

begin

i:=0;

text:='khiro c++ delphi' ;

ilengt:=length(text); ;

//---------------------------

for i := 0 to ilengt do

begin

if text<>(' ') then

Writeln(text) ;

end;

Readln;

end.

هل من خبير في اللغتين معا يستطيع التحويل بينهما؟؟؟

أرجو أن تنقذوني إخواني .. أنتظركم ......

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

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

وكذلك برنامج السي ++ اللي وضعته يقوم بطباعة كل حرف في سطر

يعني كود الباسكال يقوم بنفس عمل كود السي ++

عملك صحيح اخي الكريم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الكود يقراء حرف حرف وإذا وجد حرف فارغ ينتقل للسطر الثاني.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

كما قال الأخ فهد ..

الموضوع لا يحتاج لخبرة كبيرة فقط يحتاج لفهم الكود بشكل صحيح ومراجعة عمل كل دالة

عدل الكود كما يلي


for i := 1 to ilengt do
begin
if text[i]<>(' ') then
Write(text[i])
else
writeln;
end;

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .