پاسکالم سختــــــــــــــه

استاد اجب مثالایی میده

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

کدهای کاراکتر ها:

........ ........ ........

........ ........ ........

مثال:

اگه این برنامه را بنویسید واجرا کنید همه کاراکترهارا با کدش بهدون میده

PROGRAM SHH;

VAR I:INTEGER;

BEGIN

FOR I:=0 TO 255 DO

WRITELN(I:5,':',CHR(I));

END.

BEGIN

END.

چند نکته

دستورات تا وقتی ادامه پیدا میکنندکه شمارنده کوچکتر یا مساوی مقدار نهایی باشد

ولی اگه مساوی شد ازحلقه خارج میشه

چرا نمیشه متغیر را به صورت دستی اضافه کرد

اگه به مقدار شمارنده خودمون عددی اضافه کنیم ممکنه که هیچ وقت متغیر شمارنده مساوی با مقدار نهایی نشه وباعث میشه که حلقه بینهایت بار تکرار بشه تا کامپیوتر هنگ کنه

مثال:

FOR I:=1 TO 5 DO

BEGIN

WRITE(I:3);

I:=I+1;

END.

اگه دوست داشتید نظر بدید

مواظب خودتـــــون باشید

حداقل برا این عکس نظر بدید