با سلام من چند تا برنامه تو این محیط نوشتم ولی با اینکه محیط مثل توربو پاسکال هست موفق به اجرای برنامه ها نشدم اگه ممکنه منو راهنمایی کنید
با سلام من چند تا برنامه تو این محیط نوشتم ولی با اینکه محیط مثل توربو پاسکال هست موفق به اجرای برنامه ها نشدم اگه ممکنه منو راهنمایی کنید
من متوجه نشدم؛ از Free Pascal استفاده کردید، یا از Turbo Pascal؟ یا کد Free Pascal را در Turbo Pascal نوشتید؟!
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
با سلام خدمت دوستان.من توی نوشتن برنامه جستجوی دودویی در توربو پاسکال کمی مشکل دارم1اگه کسی میتونه کمکم کنه:
می خوام با شرط while بنویسم اما شرط رو هر چی میزارم همیشه جواب نمیده!لازمه که بگم قبلشم از مرتب سازی حبابی استفاده کردم
نمونه برنامه من:
low:=1;
up:=n;
flog:=false;
while up>low do
begin
mid:=up+low div 2;
if x=a[mid] then
writeln('Your torget is found');
flog:=true;
break;
if x>a[mid] then
low:=mid+1
else
up:=mid-1;
end;
if flog=false then
writeln('Your array can not found');
readln;
end.
سلام دوست عزیز، این سوال را باید در زیر گروه مباحث عمومی دلفی و پاسکال در تاپیک جداگانه ایی مطرح کنید، نه در این زیر گروه و این تاپیک.با سلام خدمت دوستان.من توی نوشتن برنامه جستجوی دودویی در توربو پاسکال کمی مشکل دارم1اگه کسی میتونه کمکم کنه
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.