سلام اگه کسی میتونه لطفا یه ماشین حساب با پاسکال بنویسه که چار عمل اصلی رو انجام بده. ممنون میشم اگه کمک کنید
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 کیلو بایت :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شما برنامه نويسا چرا از داكيومنت استفاده نمي كنيدنقل قول:
منظورتون رو نمی فهم ...نقل قول:
ما برنامه نویسها ؟