Đăng Nhập
Latest topics
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm Không
Số người truy cập cùng lúc nhiều nhất là 48 người, vào ngày 2/8/2017, 00:32
Statistics
Diễn Đàn hiện có 74 thành viênChúng ta cùng chào mừng thành viên mới đăng ký: AlinaL92956302
Tổng số bài viết đã gửi vào diễn đàn là 107 in 53 subjects
Bài 2: Nhập dữ liệu vào biến(Readln)
4 posters
Trang 1 trong tổng số 1 trang
Bài 2: Nhập dữ liệu vào biến(Readln)
by Admin 20/10/2013, 22:06
A. Lý thuyết
- Để nhập dữ liệu vào một hay nhiều biến ta sử dụng lệnh Read hoặc Readln
- Cú pháp:
Readln(a,b,c,...)
+ VD: Readln(hoten);
+ Trong đó: a,b,c là các tham số(là các biến)
+ Lệnh Readln tương tự lệnh Read nhưng con trỏ sẽ xuống hàng sau khi thông báo kết quả.
+ Lệnh Readln; sẽ có tác dụng dừng màn hình để xem kết quả
+ Không dùng dấu nháy đơn.
B. Bài tập
Bài tập 1:
Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím).
Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
Ví dụ: Nhập a = 10, b = 7 -> kết quả: Chu vi bằng 34, diện tích bằng 70
Bài tập 2:
Viết chương trình tính tổng và hiệu của hai số a, b (được nhập từ bàn phím).
Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Tổng bằng a + b, hiệu bằng a - b
Ví dụ: Nhập a = 12, b = 8 -> kết quả: Tổng bằng 20, Hiệu bằng 4
Bài tập 3:
Viết chương trình tính trung bình cộng của 4 số.
Hướng dẫn:
- Nhập bốn số vào bốn biến a, b, c, d
- Trung bình cộng của a, b, c, d bằng (a + b + c + d)/4.
Ví dụ: Nhập a = 2, b = 5, c = 3, d = 2 -> kết quả: 3
Bài tập 3(*):
Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị của một số có ba chữ số. Ví dụ khi nhập số 357 thì máy in ra:
- Chữ số hàng trăm: 3.
- Chữ số hàng chục: 5.
- Chữ số hàng đơn vị: 7.
Hướng dẫn:
Sử dụng hàm Mod để lấy số dư. Khi chia cho 10 để lấy số dư ta được chữ số hàng đơn vị. Sử dụng DIV để lấy phần nguyên. Khi chia cho 10 để lấy phần nguyên ta đã bỏ đi chữ số hàng đơn vị để số có ba chữ số còn số có hai chữ số. Cứ tiếp tục như vậy cho đến hết.
Bài tập 4:
Nhập số nguyên a(1 < a < 10). In ra màn hình bảng cửu chương a.
Ví dụ: a = 5
In ra màn hình: 5 x 1 = 5
5 x 2 = 10
5 x 3 = 15
5 x 4 = 20
5 x 5 = 25
5 x 6 = 30
5 x 7 = 35
5 x 8 = 40
5 x 9 = 45
5 x 10 = 50
Bài tập 5(*):
Bạn Nam có một số tiền(nhỏ hơn 100 000đ) được nhập từ bàn phím, với các mệnh giá tiền là: 1000đ, 2000đ, 5000đ và 10 000đ. Hãy tính số tờ tiền ít nhất của bạn Nam khi sử dụng các mệnh giá trên.
Ví dụ: Số tiền là: 80 000đ -> Số tờ tiền là: 3 tờ
(1 tờ 50 000đ + 1 tờ 20 000 + 1 tờ 10 000đ)
Hướng dẫn:
- Nhập a
- a div 50 000(được số tờ tiền 50 000đ)
- a mod 50 000(được số tiền lẻ còn lại)
- Làm tương tự với các mệnh giá còn lại
- Cộng số tờ tiền
- Để nhập dữ liệu vào một hay nhiều biến ta sử dụng lệnh Read hoặc Readln
- Cú pháp:
Readln(a,b,c,...)
+ VD: Readln(hoten);
+ Trong đó: a,b,c là các tham số(là các biến)
+ Lệnh Readln tương tự lệnh Read nhưng con trỏ sẽ xuống hàng sau khi thông báo kết quả.
+ Lệnh Readln; sẽ có tác dụng dừng màn hình để xem kết quả
+ Không dùng dấu nháy đơn.
B. Bài tập
Bài tập 1:
Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím).
Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
Ví dụ: Nhập a = 10, b = 7 -> kết quả: Chu vi bằng 34, diện tích bằng 70
Bài tập 2:
Viết chương trình tính tổng và hiệu của hai số a, b (được nhập từ bàn phím).
Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Tổng bằng a + b, hiệu bằng a - b
Ví dụ: Nhập a = 12, b = 8 -> kết quả: Tổng bằng 20, Hiệu bằng 4
Bài tập 3:
Viết chương trình tính trung bình cộng của 4 số.
Hướng dẫn:
- Nhập bốn số vào bốn biến a, b, c, d
- Trung bình cộng của a, b, c, d bằng (a + b + c + d)/4.
Ví dụ: Nhập a = 2, b = 5, c = 3, d = 2 -> kết quả: 3
Bài tập 3(*):
Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị của một số có ba chữ số. Ví dụ khi nhập số 357 thì máy in ra:
- Chữ số hàng trăm: 3.
- Chữ số hàng chục: 5.
- Chữ số hàng đơn vị: 7.
Hướng dẫn:
Sử dụng hàm Mod để lấy số dư. Khi chia cho 10 để lấy số dư ta được chữ số hàng đơn vị. Sử dụng DIV để lấy phần nguyên. Khi chia cho 10 để lấy phần nguyên ta đã bỏ đi chữ số hàng đơn vị để số có ba chữ số còn số có hai chữ số. Cứ tiếp tục như vậy cho đến hết.
Bài tập 4:
Nhập số nguyên a(1 < a < 10). In ra màn hình bảng cửu chương a.
Ví dụ: a = 5
In ra màn hình: 5 x 1 = 5
5 x 2 = 10
5 x 3 = 15
5 x 4 = 20
5 x 5 = 25
5 x 6 = 30
5 x 7 = 35
5 x 8 = 40
5 x 9 = 45
5 x 10 = 50
Bài tập 5(*):
Bạn Nam có một số tiền(nhỏ hơn 100 000đ) được nhập từ bàn phím, với các mệnh giá tiền là: 1000đ, 2000đ, 5000đ và 10 000đ. Hãy tính số tờ tiền ít nhất của bạn Nam khi sử dụng các mệnh giá trên.
Ví dụ: Số tiền là: 80 000đ -> Số tờ tiền là: 3 tờ
(1 tờ 50 000đ + 1 tờ 20 000 + 1 tờ 10 000đ)
Hướng dẫn:
- Nhập a
- a div 50 000(được số tờ tiền 50 000đ)
- a mod 50 000(được số tiền lẻ còn lại)
- Làm tương tự với các mệnh giá còn lại
- Cộng số tờ tiền
Được sửa bởi Admin ngày 16/1/2015, 16:52; sửa lần 3.
Admin- Admin
- Tổng số bài gửi : 59
Points : 171
Reputation : 3
Join date : 06/10/2013
Age : 41
Đến từ : Cà Mau -
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by lethanhnhan9a3 21/1/2015, 20:17
bai 2:
program tong_hieu_hai_so;
uses crt;
var a,b:real;
begin
clrscr;
writeln('hai nhap hai so bat ki');
readln(a,b);
writeln('tong hai so', a+b:4:1);
writeln('hieu hai so', a-b:4:1);
readln;
end.
program tong_hieu_hai_so;
uses crt;
var a,b:real;
begin
clrscr;
writeln('hai nhap hai so bat ki');
readln(a,b);
writeln('tong hai so', a+b:4:1);
writeln('hieu hai so', a-b:4:1);
readln;
end.
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by lethanhnhan9a3 21/1/2015, 20:25
bai 3:
program trung_binh_cong;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('hay nhap bon so bat ki');
readln(a,b,c,d);
writeln('trung binh cong bon so la', (a+b+c+d)/4:4:1);
readln;
end.
program trung_binh_cong;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('hay nhap bon so bat ki');
readln(a,b,c,d);
writeln('trung binh cong bon so la', (a+b+c+d)/4:4:1);
readln;
end.
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by lethanhnhan9a3 21/1/2015, 20:39
bai 3
program trung_binh_cong;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('hay nhap bon so bat ki');
readln(a,b,c,d);
writeln('trung binh cong bon so la', (a+b+c+d)/4:4:1);
readln;
end.
program trung_binh_cong;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('hay nhap bon so bat ki');
readln(a,b,c,d);
writeln('trung binh cong bon so la', (a+b+c+d)/4:4:1);
readln;
end.
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by lethanhnhan9a3 21/1/2015, 20:42
bai 3(*):
program tram_chuc_don_vi;
uses crt;
var a:integer;
begin
clrscr;
writeln('hay nhap so co 3 chu so');
readln(a);
writeln('chu so hang tram:',a div 100);
writeln('chu so hang chuc:',(a mod 100) div 10);
writeln('chyu so hang don vi:',a mod 10);
readln;
end.
program tram_chuc_don_vi;
uses crt;
var a:integer;
begin
clrscr;
writeln('hay nhap so co 3 chu so');
readln(a);
writeln('chu so hang tram:',a div 100);
writeln('chu so hang chuc:',(a mod 100) div 10);
writeln('chyu so hang don vi:',a mod 10);
readln;
end.
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by lethanhnhan9a3 21/1/2015, 20:51
bai 4:
program bang_cuu_chuong;
uses crt;
var a:integer;
begin
clrscr;
writeln('hay nhap so nguyen a');
readln(a);
writeln(a,'x1=',a*1);
writeln(a,'x2=',a*2);
writeln(a,'x3=',a*3);
writeln(a,'x4=',a*4);
writeln(a,'x5=',a*5);
writeln(a,'x6=',a*6);
writeln(a,'x7=',a*7);
writeln(a,'x8=',a*
;
writeln(a,'x9=',a*9);
writeln(a,'x10=',a*10);
readln;
end.
program bang_cuu_chuong;
uses crt;
var a:integer;
begin
clrscr;
writeln('hay nhap so nguyen a');
readln(a);
writeln(a,'x1=',a*1);
writeln(a,'x2=',a*2);
writeln(a,'x3=',a*3);
writeln(a,'x4=',a*4);
writeln(a,'x5=',a*5);
writeln(a,'x6=',a*6);
writeln(a,'x7=',a*7);
writeln(a,'x8=',a*
;writeln(a,'x9=',a*9);
writeln(a,'x10=',a*10);
readln;
end.
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
thanhhuytranphan- Tổng số bài gửi : 1
Points : 1
Reputation : 0
Join date : 19/01/2015
Age : 22
Đến từ : Ca Mau -
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by crazy 18/11/2015, 19:17
program bai_1;
uses crt;e
var a,b,chuvi,dientich : real;
begin
writeln(' hay nhap chieu dai va chieu rong');
readln(a,b);
chuvi=:2*(a+b);
dientich=:a*b;
writeln(' chu vi hinh chu nhat la', chuvi:4:1);
writeln('dien tich hinh chu nhat la ', dientich:4:1);
readln;
end.
bai 2:
program bai_2;
uses crt;
var a,b,tong,hieu: real;
begin
clrscr;
writeln(' hay nhap hai so thuc');
readln(a,b);
tong=: a+b;
hieu=:a-b;
writeln(' tong cua hai so thuc', tong:4:1);
writeln(' hieu cua hai so thuc', hieu:4:1);
readln;
end.
uses crt;e
var a,b,chuvi,dientich : real;
begin
writeln(' hay nhap chieu dai va chieu rong');
readln(a,b);
chuvi=:2*(a+b);
dientich=:a*b;
writeln(' chu vi hinh chu nhat la', chuvi:4:1);
writeln('dien tich hinh chu nhat la ', dientich:4:1);
readln;
end.
bai 2:
program bai_2;
uses crt;
var a,b,tong,hieu: real;
begin
clrscr;
writeln(' hay nhap hai so thuc');
readln(a,b);
tong=: a+b;
hieu=:a-b;
writeln(' tong cua hai so thuc', tong:4:1);
writeln(' hieu cua hai so thuc', hieu:4:1);
readln;
end.
Được sửa bởi crazy ngày 19/11/2015, 15:24; sửa lần 2.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by crazy 19/11/2015, 14:33
bai 3:
program bai_3;
uses crt;
var a,b,c,d,tbcong :real;
begin
clrscr;
writeln(' hay nhap bon so thuc');
readln(a,b,c,d);
tbcong:=(a+b+c+d)/4;
writeln('tinh trung binh cong cua bon so',tbcong:4:1);
readln;
end.
program bai_3;
uses crt;
var a,b,c,d,tbcong :real;
begin
clrscr;
writeln(' hay nhap bon so thuc');
readln(a,b,c,d);
tbcong:=(a+b+c+d)/4;
writeln('tinh trung binh cong cua bon so',tbcong:4:1);
readln;
end.
Được sửa bởi crazy ngày 19/11/2015, 15:17; sửa lần 2.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by crazy 19/11/2015, 14:54
bai 4:
program bai_4;
uses crt;
var a:integer;
begin
clrscr;
writeln(' hay nhap mot so nguyen');
readln(a);
writeln(a,'x',1,'=',a*1);
writeln(a,'x',2,'=',a*2);
writeln(a,'x',3,'=',a*3);
writeln(a,'x',4,'=',a*4);
writeln(a,'x',5,'=',a*5);
writeln(a,'x',6,'=',a*6);
writeln(a,'x',7,'=',a*7);
writeln(a,'x',8,'=',a*8 );
writeln(a,'x',9,'=',a*9);
writeln(a,'x',10,'=',a*10);
readln;
end.
program bai_4;
uses crt;
var a:integer;
begin
clrscr;
writeln(' hay nhap mot so nguyen');
readln(a);
writeln(a,'x',1,'=',a*1);
writeln(a,'x',2,'=',a*2);
writeln(a,'x',3,'=',a*3);
writeln(a,'x',4,'=',a*4);
writeln(a,'x',5,'=',a*5);
writeln(a,'x',6,'=',a*6);
writeln(a,'x',7,'=',a*7);
writeln(a,'x',8,'=',a*8 );
writeln(a,'x',9,'=',a*9);
writeln(a,'x',10,'=',a*10);
readln;
end.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
Re: Bài 2: Nhập dữ liệu vào biến(Readln)
by crazy 3/1/2016, 16:25
bai 3:
program tim_so_hang_tram_chuc_don_vi;
uses crt;
var a:integer;
begin
writeln(' hay nhap so co 3 chu so');
readln(a);
wirteln('chu so hang don vi la:', a mod 10);
writeln('chu so hang chuc la:', (a div 10) mod 10);
writeln('chu so hang tram la:', a div 100);
readln
end.
program tim_so_hang_tram_chuc_don_vi;
uses crt;
var a:integer;
begin
writeln(' hay nhap so co 3 chu so');
readln(a);
wirteln('chu so hang don vi la:', a mod 10);
writeln('chu so hang chuc la:', (a div 10) mod 10);
writeln('chu so hang tram la:', a div 100);
readln
end.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
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|
|
|
» Bài 3: Câu lệnh điều kiện(if .. then ..)
» Bài 2: Nhập dữ liệu vào biến(Readln)
» Bài 4: Cấu trúc rẽ nhánh(Case .. of)
» Bài 1: Lệnh thông báo ra màn hình(Write)
» Hướng dẫn Ghost HDD không cần đĩa CD
» Bài tập tổng hợp
» Bàn ghế tre – cafe, nhà hàng giá xuất xưởng chỉ với 380k/1b
» Bài thuốc truyền đời chữa bệnh viêm gan B và xơ gan cổ trướng của lương y nức tiếng Hà thành