دوست عزیز چرا سوالت و دو جا مطرح کردی ؟
ما اونجا دهنمون سرویس شد 1 ساعت توضیح دادیم تازه فهمیدم مشکل شما حل شده [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Printable View
دوست عزیز چرا سوالت و دو جا مطرح کردی ؟
ما اونجا دهنمون سرویس شد 1 ساعت توضیح دادیم تازه فهمیدم مشکل شما حل شده [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام دوست عزیز
این تالار اختصاصی دلفی هست.
لطفآ اگر سوال و درخواستی برای پاسکال دارید توی عنوان مشخص کنید.
تشکر بابت توجهتون.
بای
خیلی شرمندهنقل قول:
آخه تو اون تاپیکی که شما جوابشو دادی دو روز هیچکی جواب نداد مجبور شدیم بیام اینجا
آقا مشکل این تیکه برنامه چیه؟
چرا به متغیر top اضافه نمیشه
کد:program saf;
type
arr=array [1..50] of integer;
var
new,top,n:integer;
s:arr;
procedure add(top,n,new:integer;var q:arr);
begin
if top=n then
writeln('Stack is Full')
else
begin
top:=top+1;
q[top]:=new;
end;
end;
begin
top:=0;
write('Enter n:');
read(n);
write('Enter newitem:');
read(new);
add(top,n,new,s);
readln;
readln;
end.
من دقیقا نفهمیدم برنامتون چیکار می کنه خروجی هم که نداشت !نقل قول:
چرا به متغیر top اضافه نمیشه
ولی اگه می خوای مقدار top به برنامه اصلیت برگرده کنارش عبارت var رو قرار بده مثلا من برنامت و به این صورت تغییر دادم که عبارت 1 رو چاپ می کنه :46:
کد:uses wincrt;
type
arr=array [1..50] of integer;
var
new,top,n:integer;
s:arr;
procedure add(var top,n,new:integer;var q:arr);
begin
if top=n then
writeln('Stack is Full')
else
begin
top:=top+1;
q[top]:=new;
end;
end;
begin
top:=0;
write('Enter n:');
read(n);
write('Enter newitem:');
read(new);
add(top,n,new,s);
writeln(top);
readln;
end.
این همون برنامه اضافه به صف تو درس ساختمان داده هاست
شما فقط یک بار به مقدار top اضافه کردید پس لزومی نداره که اونو تو پروسیجر بنویسید مگر اینکه تو پروسیجر حلقه for بذارید یا تو برنامه تون حلقه فور بذارید.
کد:uses wincrt;
type
arr=array [1..50] of integer;
var
new,top,i,n:integer;
s:arr;
procedure add(var top,n,new:integer;var q:arr);
begin
if top=n then
writeln('Stack is Full')
else
begin
top:=top+1;
q[top]:=new;
end;
end;
begin
top:=0;
for i:=1 to 50 do
begin
write('Enter n:');
read(n);
write('Enter newitem:');
read(new);
add(top,n,new,s);
writeln(top);
end;
readln;
end.
اهان پس دوستان چند ترم صبر کنید (من هنوز ترم اولم) وقتی این واحد و گرفتم میایم با هم بحث می کنیم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]نقل قول:
آقا دمت گرم خودم حلش کردم
اگه خواستی بگو سرسشو بذارم ترم بعد به دردت می خوره
فکر نکنم من کمکی کرده باشم ولی خواهش می کنمنقل قول:
حالا شما سورسش و بذار حتما بدرد می خوره دیگه:11: