ورودی و خروجی

خروجی: write و writeln

قبلاً با این دو آشنا شدید. حالا عمیق‌تر:

writeln('متن', متغیر, عدد, ...);   { چاپ + خط جدید }
write('...');                      { چاپ بدون خط جدید }

فرمت‌بندی :width

برای هر مقدار می‌توانید حداقل عرض مشخص کنید — عالی برای جدول‌ها:

begin
  writeln('نام':10, 'نمره':8);
  writeln('------':10, '-----':8);
  writeln('Ali':10, 18:8);
  writeln('Sara':10, 20:8);
end.

خروجی (راست‌چین در ستون):

      نام    نمره
----------  -----
       Ali      18
      Sara      20

فرمت اعشاری :width:decimals

var x: real;
begin
  x := 3.14159;
  writeln(x:0:2);    { 3.14 }
  writeln(x:0:4);    { 3.1416 }
  writeln(x:10:2);   {       3.14 }
end;

ورودی: readln

در پاسکال واقعی، readln ورودی کاربر را می‌گیرد:

var name: string;
begin
  write('اسمت چیه؟ ');
  readln(name);      { صبر می‌کند تا کاربر تایپ کند }
  writeln('سلام ', name);
end;

الگوی جایگزین در آزمایشگاه

{ به جای readln، مقدار را شبیه‌سازی کنید }
var name: string;
begin
  name := 'Ali';   { فرض: کاربر Ali را وارد کرده }
  writeln('سلام ', name);
end;

جدول ضرب با فرمت‌بندی

program Table;
var i, j: integer;
begin
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(i * j:4);   { هر عدد در عرض ۴ }
    writeln;
  end;
end.

خلاصه

• :width حداقل عرض (راست‌چین) — برای جدول‌ها
• :width:decimals برای اعداد اعشاری
• readln در محیط واقعی؛ در آزمایشگاه مقدار از پیش تعریف کنید