Bài tập Pascal thấy cho nè

Tiêu đề: Bài tập Pascal thấy cho nè Tue Jan 22, 2008 7:31 am

Cái này không bik mình làm đúng hay ko, text thử rồi, phép chia làm ko dc, hỏi MR Dũng thử xem, đây là đoạn code mình chèn để lập trình ra cái máy tính dỏm:

Code:: Program MayTinhDom;
Var x,y: real;
ch:char;
Begin
Write('Nhap vao hai so ');Readln(x,y);
Write('Nhap phep tinh can tinh toan ');Readln(ch);
Case ch of
'+': Write('Tong cua hai so la ',x+y);
'-': Write('Hieu cua hai so la ',x-y);
'*': Write('Tich cua hai so la ',x*y);
'/': If y=0 then Write('Loi! Khong chia duoc cho 0 ')
else Write('Thuong cua hai so la ',x/y);
End;
Readln;
End.

Tiêu đề: Re: Bài tập Pascal thấy cho nè Thu Jan 24, 2008 7:22 am

T ui, maj` koa' save chuong trinh` pascal chua,save ui` thj`send we choa tao nha.. Smile

Tiêu đề: Re: Bài tập Pascal thấy cho nè Thu Jan 24, 2008 10:01 pm

Lên Google mà serch, nhấn "Download Turbo Pascal" là ra ngay í mừ

Tiêu đề: Re: Bài tập Pascal thấy cho nè Sat Feb 02, 2008 6:14 am

Theo cấu trúc, code của Thành là đúng, nhưng mà phần 'write' và phần 'readln' cần phải xuống hàng để tránh bị lỗi về logic mà máy ko thể nhận biết đc. Ngoài ra, các phần : tổng, hiệu, tích và thương của 2 số, nên đặt ra các biến cho dễ nhìn tí. Còn 1 điều, khi đặt dạng biến là 'real' thì lúc gán biến nên thêm phần ' :0:2' tức là lấy 2 chữ số phần thập phân ở phần tính thương 2 số. Sửa lại cho nè :

Program MayTinhDom;
Var x,y,tong,hieu,tich,thuong:real;
ch:char;
Begin
Write('Nhap vao hai so ');
Readln(x,y);
Write('Nhap phep tinh can tinh toan');
Readln(ch);
tong:=x+y;
hieu:=x-y;
tich:=x*y;
thuong:=x/y;
Case ch of
'+': Write('Tong cua hai so la ',tong);
'-': Write('Hieu cua hai so la ',hieu);
'*': Write('Tich cua hai so la ',tich);
'/': If y=0 then Write('Loi! Khong chia duoc cho 0')
else Write('Thuong cua hai so la ',thuong:0:2);
End;
Readln;
End.