Printable View
با عرض سلام خدمت اساتید خودم
از یکی می خوام procudure رو تو پاسکال برام قشنگ توضیح بده
مثلا فرض کنید تو بلاک اصلی دو تا متغیر داریم می خواهیم یه procedure رو صدا بزنیم که یه سری عملیات رو این متغیرها انجام بده بعد مقدار جدید رو دوباره برگردونه به بلاک اصلی و بقیه برنامه رو ادامه بده...
اولا چه جوری اون پروسیجر رو صدا بزنیم
ثانیا چه جوری مقدار رو برگردونیم
ممنون میشم اگه کمک کنید
کد:uses crt;
var
x1,x2,sum:integer;
procedure Sum(x1,x2:integer);
begin
sum:=x1+x2);
write(sum);
end;
begin
readln(x1,x2);
Sum(x1,x2);
end.
پروسیجر و تابع دو قسمت از یک برنامه اصلی هستند که برای کم کردن دوباره نویسی یک عملیات تکراری استفاده میشوند
نگفتی چه جوری مقدار رو برگردونیم به بلاک اصلی
ممنون
اگه میخوای مقدار برگردونی باید از فانکشن استفاده کنی
کد:uses crt;
var
x1,x2,sumkol:integer;
function sum(x1,x2:integer):integer;
begin
sumkol:=x1+x2;
sum:=sumkol;
end;
begin
readln(x1,x2);
write(sum(x1,x2));
end.
خیلی ممنون
خیلی بدردم خورد
آقا یه سوال دیگه
فرض کن ما تو متغیرهامون یه آرایه n تایی تعریف کردیم
حالا تو بلاک اصلی اول تعداد خانه های ارایه رو از ورودی میگیریم بعد یه مقدار
حالا می خوایم تعداد خانه های ارایه و اون مقدار برن تو یه پروسیجر
حالا تو اون پروسیجر چک کنه که آیا ارایه پر شده یا نه اگه پر شده یه پیغام بده از برنامه خارج بشه
در غیر این صورت به ادامه ارایه اون مقدار جدید رو اضافه کنه
البته گرفتن مقدار جدید تو یه حلقه قرار داره
تو زبان پاسکال حتما باید طول آرایه مشخص باشه وگرنه خطا پیش می اآد
یه آرایه 50 تایی تعریف کردیم
حالا چه جوری میشه
ممنون
حالا شد
کد:uses crt;
var
a:array[1..50]of integer;
i,j:integer;
procedure check_full_array(x:integer);
begin
if i<50 then
a[i]:=x;
end;
begin
for i:=1 to 50 do
begin
read(j);
check_full_array(j);
end;
for i:=1 to 50 do
write(a[i]);
readln;
end.
دوست عزیز چرا سوالت و دو جا مطرح کردی ؟
ما اونجا دهنمون سرویس شد 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:
اینم سورسش
حالا خداییش اگه به درد کسی خورد ما رو دعا کنه
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]