یک سوال از پاسکال

[Mehran NZ]

سلام دوستان من این برنامه رو نوشتم ولی متاسفانه به مشکلی برخوردم بنظر خودم که هیچ مشکلی نداره ولی وقتی می خواد خروجی رو نشون بده درست در اخرین لحظه run time error میده موندم چیکار کنم اگه کدم در قسمت تابعی که رنگیش کردم مشکلی داره خواهشا بگید(هر چند چشم ابن می خوره کسی بتونه کمک کنه)

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

دوستان تابع و محل استفادش رو رنگی کردم خواهشا اگه می تونید کمک کنید

[Mehran NZ]

دوستان مثل اینکه مشکل از select case هستش هر تابع یا رولی که فراخوانی می کنم ارور میده ؟!!!!!!!!!!!
کسی اطلاعاتی در این زمینه داره؟

[alishahbazi]

دوست عزیز من برنامه ات را میخوانم و اگر توانستم خبرش را حتما اعلام میکنم.
قربان تو (علی شهبازی)

[Mehran NZ]

علی جان خوب شد اومدی اگه اشتباه نکنم قبلا گفته بودی که برنامه کتابخانه پاسکال رو برای پروژه می خوای بنویسی من اینجا رو پیدا کردم
که فکر می کنم برات مفید باشه و برامه های مفید دیگه ای هم توشه یه سر بزن ضرر نمی کنی
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

راستی از کمکت ممنون اگرم نتونستی همین که وقت می ذاری واسم کلی ارزش داره

[iranupload]

دوستان يه نگاه به برنامه من بندازن اين برنامه كامپايل مي شه اما موقع اجرا درست عمل نمي كنه

Program p6_1;
var ma:array[1..50] of integer;
I,j:integer;
Flag : boolean;
Begin
For i:=1 to 50 do
Readln( ma[i]);
For i:=1 to 50 do
Begin
Flag:=true;
J:=2;
While j<=( ma[i] div 2) do
Begin
If ( ma[i] mod j=0) then
Flag:=false;
J:=j+1;
End;
If flag = true then
ma[i]:=0;
End;
For I:=1 to 50 do
Writeln(ma[i]);
end.

[Mehran NZ]

دوستان يه نگاه به برنامه من بندازن اين برنامه كامپايل مي شه اما موقع اجرا درست عمل نمي كنه

دوست عزیز برنامه شما کار می کنه فقط اول برنامت یعنی بعد از Program p6_1; عبارت مقابل رو اضافه کن تا برنامت اجرا بشه Uses wincrt;

و همچین برای اوردن کدها در انجمن از تگ کد استفاده کن نه نقل قول