سلام اگه کسی میتونه لطفا یه ماشین حساب با پاسکال بنویسه که چار عمل اصلی رو انجام بده. ممنون میشم اگه کمک کنید
Printable View
سلام اگه کسی میتونه لطفا یه ماشین حساب با پاسکال بنویسه که چار عمل اصلی رو انجام بده. ممنون میشم اگه کمک کنید
کد:uses crt;
var x,y:integer;
ch:char;
begin
clrscr;
write('please enter number: ');
readln(x);
write('please enter operator (*,/,+,-) : ');
ch:=readkey;
writeln(ch);
write('please enter second number: ');
readln(y);
case ch of
'*':writeln(x*y);
'/':writeln(x/y);
'+':writeln(x+y);
'-':writeln(x-y);
end;
readkey;
end.
من به جاي آقا هادي تشكر مي كنم
آريا جان من انتظار تشكر از كسي رو ندارم ولي به هر حال از لطف شما خيلي ممنونم .( من براي كمك به دوستام اينجا هستم و خواهم بود و هر كاري كه بلد باشم انجام ميدم.)نقل قول:
من به جاي آقا هادي تشكر مي كنم
(راستي به درد شما خورده بود كه من رو خجالت زده كردي؟)
برنامه ی تقویم کامل سالها درپاسکال
دمت گرم ولي اگر اصول برنامه نويسي رو رعايت ميكردي بهتر نبود؟نقل قول:
برنامه شما داراي علاوه بر نداشتن اصول برنامه نويسي داراي باگ هاي زيادي است.
يه وقت ناراحت نشي هااااااااااااااا:10:
ببین این به دردت می خوره ؟ همین الان نوشتم میتونی ارتقاش بدی و کاملترش کنی...کد:program Calculator;
uses wincrt;
var
x,y:longint;
op:char;
label
1;
begin
1:write('Number 1: ');
readln(x);
write('Operator: ');
readln(op);
write('Number 2: ');
readln(y);
writeln('___________');
writeln;
case op of
'+':begin
write('Result: ',x+y);
if (x+y)<>1.1 then
begin
readln;
clrscr;
goto 1;
end;
end;
'-':begin
write('Result: ',x-y);
if (x-y)<>1.1 then
begin
readln;
clrscr;
goto 1;
end;
end;
'*':begin
write('Result: ',x*y);
if (x*y)<>1.1 then
begin
readln;
clrscr;
goto 1;
end;
end;
'/':begin
if (x mod y)=0 then
begin
write('Result: ',x div y);
if (x div y)<>1.1 then
begin
readln;
clrscr;
goto 1;
end;
end
else
begin
writeln('Result: ',(x/y):0:2);
writeln('___________');
writeln;
write(x,' = ',(x div y),' * ',y,' + ',(x mod y));
if (x/y)<>1.156653 then
begin
readln;
clrscr;
goto 1;
end;
end;
end;
else
begin
write('Please enter for operator ''+'',''-'',''*'' or ''/''.');
readln;
clrscr;
goto 1;
end;
end;
end.
اینم خود ماشین حساب با حجم 12 کیلو بایت :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شما برنامه نويسا چرا از داكيومنت استفاده نمي كنيدنقل قول:
منظورتون رو نمی فهم ...نقل قول:
ما برنامه نویسها ؟
منظورم خيلي واضح
سلام واقعا ممنون واقعا لطف كرديد ببخشيد كه اين همه دير سر زدم و تشكر كردم آخه يه مدتي نبودم ببخشيد. واقعا ممنونم:10::40::11:
salam kasi midune che jury mouse ro tu pascal faal kard?
سلام
دستتون درد نکنه. خیلی به دردم خورد این برنامه .
فقط اگه میشه یه دستوری هم بهش بدین که که تا بی نهایت عدد بخونه یعنی مثل ماشن حساب ویندوز
خیلی ممنون از راهنماییتون
منتظر پاسختون هستم.
سلام
اگه میشه سورس
summation
exponential
sinus
هم بزارید
یه برنامه که دو تا عدد در مبنای ده رو بگیره و به مبنای دلخواه ببره و 4 عمل اصلی رو روشون انجام بده........ کسی بلده؟؟؟
lتشکر ، اما میشه سورسه برنامه ی ماشین حساب مهندسی رو هم بگید !!!