آژانس هواپیماییexchanging

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

شروع موضوع توسط Masoud.Amsh ‏11 مارس 2006 در انجمن برنامه نویسی

  1. Masoud.Amsh

    Masoud.Amsh کاربر تازه وارد

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

    programmer کاربر تازه وارد

    تاریخ عضویت:
    ‏1 نوامبر 2005
    نوشته ها:
    84
    تشکر شده:
    0
    سلام

    خیلی وقت بود سراغ پاسکال نرفته بودم.فقط 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.