کی پاسکال بلده ؟

[Sajad]

ببخشید من متوجه نشدم که باید در یک رشته وارد بشه
در اینجا هم میشه از while استفاده کرد
به معنی و کاربرد "تا زمانی که"

it is ok
همینه....
سه تا while لازم هست...
حالا این whileها چیکارا میکرد رو دقیق یادم نیست.
آقا رضا اگه شما صورت مسئله اومد تو ذهنت بی زحمت بنویسش که من شبی بشینم تغییرش بدم ۴ تاش کنم که فردا صب بدم اینا ببرن دعات کنن...

---------- Post added at 05:58 PM ---------- Previous post was at 05:50 PM ----------

تو c دو تا دستور برای این کار (خروج از حلقه) داریم، break و continue که هر کدوم کاربرد خودش رو داره، تو پاسکال هم باید مشابه‌اش باشه!

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

قبل از اینکه شما پست بزنید خودم یادم اومد و پستم رو ادیت کردم...

---------- Post added at 06:29 PM ---------- Previous post was at 05:58 PM ----------

برای ضرب دو عدد اصلا این چیزا نیاز نیست
شما دو تا عدد رو در دو تا متغیر میگیرید و بعد اونها رو در هم ضرب میکنید و در آخر نمایش جواب !

program t2;
var
a,b:integer;
begin
writeln ('please enter your first number :');
read (a);
writeln ('please enter your secound number :');
read (b);
writeln ( a,'*',b,'=',a*b );
end.

چیزی که نمایش داده میشه فکر کنم اینطوری باشه :

please enter your first number : 312

please enter your secound number : 42

312 * 42 = 13104

همین ! (عدد a گرفته میشود و بعد عدد b و بعد در هم ضرب شده و جواب نمایش داده میشود)
البته این فقط برای ضرب بود .
برای اینکه یکم پیشرفته تر بشه میشه یه متغیر هم برای عملگر ( علامتهای ضرب و تقسیم و ... ) از ورودی گرفت

بیا اینم برا بقیه عمل ها ! مساله اینجاست ورودی که برنامه ما باید بگیره string هست که قابل محاسبه نیست.
البته این میتونی جزئی از برنامه بذاریم و بعد از اینکه عدد اول پیدا کردیم = a و عدد دوم رو = b و اپراتور هم که = op بذاریم که حلش کنه...

uses 
    crt; 
 
var 
   a,b:real; 
   op:char; 
 
begin 
     clrscr; 
     write ('please enter two number: '); 
     readln (a,b); 
     writeln; 
     write ('please enter a operator: '); 
     readln (op); 
     writeln; 
     case op of 
          '+' : writeln ('sum: ',(a+b)); 
          '-' : writeln ('subtract: ',(a-b)); 
          '*' : writeln ('multiple: ',(a*b)); 
          '/' : writeln (' divide: ',(a/b)); 
          end; 
 
writeln; 
writeln ('Press Enter To Exit'); 
readln; 
end.