چون تعداد حالت ها زیاد است، کدی را با متغیر p اضافه کردم تا هر 22 حالت را در یک صفحه چاپ کرده،
منتظر فشار کلیدی گشته و حالت های بعدی را در صفحات دیگری نشان دهد.
کد:
USES CRT;
CONST
n = 1000;
VAR
x, y, z, xMax, yMax, p:INTEGER;
BEGIN
CLRSCR;
p := 0;
xMax := n DIV 100;
FOR x := 0 TO xMax DO
BEGIN
yMax := (n - x * 100) DIV 50;
FOR y := 0 TO yMax DO
BEGIN
z := (n - x * 100 - y * 50) DIV 25;
if (x > 0) THEN
WRITE (' 100 * ', x);
if (y > 0) THEN
WRITE (' 50 * ', y);
if (z > 0) THEN
WRITE (' 25 * ', z);
WRITELN;
p := p + 1;
IF (p > 22) THEN
BEGIN
p := 0;
WRITE('<Please enter any key to continue>');
READKEY;
CLRSCR;
END;
END;
END;
END.
لطفا برای هر کدام از تقاضا ها و سوالات برنامه نویسی تان تاپیک جداگانه ای ایجاد کنید و در عنوان تاپیک
علاوه بر اشاره به زبان پاسکال، به موضوع آن هم اشاره کنید، مثلا "برنامه تبدیل عدد به مبنای 2 در زبان پاسکال"
کد:
USES CRT;
VAR
n : LONGINT;
s : STRING;
BEGIN
CLRSCR;
WRITE('Please enter n : ');
READLN(n);
s := '';
REPEAT
IF n MOD 2 = 0 THEN
s := '0' + s
ELSE
s := '1' + s;
n := n DIV 2;
UNTIL (n = 0);
WRITELN(' n (binary) = ', s);
READKEY;
END.
