Chào mừng các bạn đến với forum Lớp 9/2 trường Thái Nguyên Diễn đàn dù đã ngưng hoạt động nhưng sẽ là một kỉ niệm đẹp để các thành viên của lớp nhớ về.
 
IndexPortalCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập


Share | 
 

 Tin Kiểm Tra 1 Tiết

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin_inchou
Admin
Admin


Tổng số bài gửi : 347
Vote : 10
Join date : 12/01/2012
Age : 17

Tài sản
Tài sản:

Bài gửiTiê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.


_________________
[You must be registered and logged in to see this image.]
Kiêu hãnh không phải là thứ mà ngươi có thể từ bỏ
Về Đầu Trang Go down
http://9-2tn-nt.forumvi.com
 
Tin Kiểm Tra 1 Tiết
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Lớp 9/2 trường Thái Nguyên :: Khu Vực Học Tập :: Thư Viện :: Các Môn Khác-
Chuyển đến