~.~Nhox_Admin~.~ ☺♀*♪♪*♀☺
Tổng số bài gửi : 138 Age : 29 Bạn đến từ: : Không trung Sở thích của bạn: : Ăn, ngủ Công việc của bạn: : Hoa Registration date : 29/09/2007
Phụ lục thêm Coin:
| 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. | |
|
(ºoº)_pP_AnD_Vv_(ºoº) Lever 2
Tổng số bài gửi : 9 Age : 29 Bạn đến từ: : 8/3 chu' dau Sở thích của bạn: : everything Công việc của bạn: : student Registration date : 20/01/2008
| 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.. | |
|
~.~Nhox_Admin~.~ ☺♀*♪♪*♀☺
Tổng số bài gửi : 138 Age : 29 Bạn đến từ: : Không trung Sở thích của bạn: : Ăn, ngủ Công việc của bạn: : Hoa Registration date : 29/09/2007
Phụ lục thêm Coin:
| 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ừ | |
|
Backstreet Boys Super Administrator
Tổng số bài gửi : 94 Age : 29 Bạn đến từ: : The Street Sở thích của bạn: : Surrounding by computer and English music... Công việc của bạn: : Serve computer science for everyone... Registration date : 01/10/2007
Phụ lục thêm Coin:
| 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. |
|
| |
|
Sponsored content
| Tiêu đề: Re: Bài tập Pascal thấy cho nè | |
| |
|