يك مشكل تو پاسكال

[Masoud.Amsh]

من ميخواهم برنامه اي بنويسم تو پاسكال كه جدول ضرب 10*10 رو برام نشون بده.
مي خواهم اين برنامه با دستور case باشه و وقتي اجرا بشه ميخواهم بنويسه كه:
اگر عدد 1 رو وارد كني با دستور for جدول ضرب رو نشون بده .
اگر عدد 2 رو وارد كني با دستور While جدول ضرب رو نشون بده.
اگر عدد 3 رو وارد كني با دستور Repeat جدول ضرب رو نشون بده.
و مي خواستم كه اين ها درون يك Procedure تعريف بشن ولي نتونستم اين كارو ، يعني ادقام 1 برنامه با 3 دستور For ، while، Repeat انجام بدم.
اگر كسي ميتونه اينو برام بزاره خيلي ممنون.
ببخشيد كه تو اين قسمت نوشتم.​

 

[programmer]

سلام

خیلی وقت بود سراغ پاسکال نرفته بودم.فقط For رو نوشتم نوشتن while و repeat هم کاملا شبیه همینه.

خودتون این دو تا تابع رو بنویسید.اینکه یه کم شلوغ پلوغ شده به خاطر فرمت بندی بود !

میتونی یه حلقه بزاری تا هر بار از برنامه خارج نشی.

امیدوارم کمک کنه.

program test(input,output);
var
 choice:integer;
 ch:char;
procedure for_solve;
var
 i,j:integer;
begin
 i:=1;
 j:=1;
 write('   ');
 for i:=1 to 10 do
  write(i:4);
 writeln;
 writeln('    ---------------------------------------');
 for i:=1 to 10 do
 begin
 write(i:2,'|');
   for j:=1 to 10 do
     write(i*j:4);
 writeln;
 end;
end;
{~~~NEXT~~~}
procedure while_solve;
begin
 writeln('while solving Comming soon !!!');
end;
procedure repeat_solve;
begin
 writeln('repeat solving Comming soon !!!');
end;
{---Main---}
begin
 writeln('1 : for');
 writeln('2 : while');
 writeln('3 : repeat');
 write('Press 1 or 2 or 3 :');
 readln(choice);
 case choice of
  1:for_solve;
  2:while_solve;
  3:repeat_solve;
  else
    writeln('Error: you must enter 1 or 2 or 3');
  end;
 writeln;
 write('Press Enter to Exit...');
 readln;
end.