Đăng Nhập

Quên mật khẩu

November 2018
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendar Calendar

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

[ View the whole list ]


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ên
Chú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)

Go down

Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by Admin on 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


Đượ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 : 35
Đến từ : Cà Mau

Xem lý lịch thành viên http://phamhoe.forumvi.com

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by lethanhnhan9a3 on 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.

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by lethanhnhan9a3 on 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.

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by lethanhnhan9a3 on 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.

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by lethanhnhan9a3 on 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.

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by lethanhnhan9a3 on 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*Cool;
writeln(a,'x9=',a*9);
writeln(a,'x10=',a*10);
readln;
end.

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by lethanhnhan9a3 on 21/1/2015, 20:54

Cool là so 8 thay oi

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by thanhhuytranphan on 23/1/2015, 16:46

số 8 thầy ơi

thanhhuytranphan

Tổng số bài gửi : 1
Points : 1
Reputation : 0
Join date : 19/01/2015
Age : 17
Đến từ : Ca Mau

Xem lý lịch thành viên http://huytranphan8a6@gmail.com

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by crazy on 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.
Smile


Được sửa bởi crazy ngày 19/11/2015, 15:24; sửa lần 2.

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by crazy on 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.
Smile


Được sửa bởi crazy ngày 19/11/2015, 15:17; sửa lần 2.

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by crazy on 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.
Smile

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by crazy on 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.

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 2: Nhập dữ liệu vào biến(Readln)

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết