Admin_inchou
Admin
Tổng số bài gửi : 347
Vote : 10
Join date : 12/01/2012
Age : 25
Tài sản
Tài sản:
 | Tiêu đề: Tin Kiểm Tra 1 Tiết  Fri Oct 19, 2012 11:08 pm | |
| Dành cho những bạn không biết làm. Đổi lại mong các bạn đọc được bài này dành thời gian đóng góp bài viết cho forum lớp. Bài này là hỏi thầy, tuy nhiên thầy không bày 100%, trong lúc đăng có lẽ sẽ có sơ sót, nên mong các bạn đọc kĩ trước khi sử dụng và kiểm tra độ chính xác, đừng để làm sai rồi lên đây trách. Bài 1 - Code:
-
Program haiso;
Uses Crt
Var a,b,tam: Real
Begin
Writeln ('nhap gia tri cua so a='); Read (a);
Writeln ('nhap gia tri cua so b='); Read (b);
tam: =a;
a: =b;
b: =tam;
Writeln (gia tri cua a la:', a);
Writeln (gia tri cua b la:', b);
Readln;
end. Bài 2 - Code:
-
Program Tinh_tien;
Uses Crt;
Var
soluong: integer;
dongia, thanhtien: real;
thongbao: string;
Const khuyenmai=(thanhtien*20)/100;
Begin
clrscr;
thongbao: = 'Tong so tien phai thanh toan:';
{Nhap don gia va so luong hang}
write ('Don gia ='); readln (dongia);
write ('So luong ='); readln (soluong);
thanhtien: = soluong*dongia-giamgia;
(*In ra so tien phai tra*)
writeln )thongbao, thanhtien:10:2);
readln
end. | |
|
