Bai thuc hanh 3 Khai bao va su dung bien
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (1.56 MB, 19 trang )
<span class='text_page_counter'>(1)</span>1.
<span class='text_page_counter'>(2)</span> 2.
<span class='text_page_counter'>(3)</span> 3.
<span class='text_page_counter'>(4)</span> 4.
<span class='text_page_counter'>(5)</span> Cú pháp khai báo biến trong Pascal là gì? A) Var ten: integer; B) Var bien: String; C) Var <tên biến>: <Kiểu dữ liệu>; D) Var <tên biến>= <kiểu dữ liệu>; 5.
<span class='text_page_counter'>(6)</span> Khai báo hằng nào trong các khai báo sau là đúng? A) Const dt= real; B) Const phi= 1000; C) Var diem= 10; D) Cont truong= ‘LHP’; 6.
<span class='text_page_counter'>(7)</span> Cú pháp “lệnh gán” để gán giá trị trong Pascal là gì? A) x:= 100; B) <giá trị>:= tên biến; C) <tên biến>:= <giá trị>; D) <tên biến>:= <biểu thức hay giá trị>; 7.
<span class='text_page_counter'>(8)</span> Khai báo biến nào trong các khai báo sau là đúng? A) Var dt: real; B) Var tb= real; C) Var diem: interger; D) Var R= 512; 8.
<span class='text_page_counter'>(9)</span> Lệnh nhập giá trị cho biến X trong Pascal là gì? A) Write(X); B) Writeln(‘X= ‘,X); C) Nhap(X); D) Readln(X); 9.
<span class='text_page_counter'>(10)</span> Cú pháp khai báo hằng trong Pascal là gì? A) Var <tên hằng>= <giá trị>; B) Const <tên hằng> = <giá trị>; C) Const <tên hằng>: <giá trị>; D) Const pi= 3.14; 10.
<span class='text_page_counter'>(11)</span> Chú thích. Var dt: real; {dt la dien tich } S: real; (* S la dien tich hinh vuong *) hcn: real; Begin ... End. 11.
<span class='text_page_counter'>(12)</span> Thực hành * Bài 1 (trang 35): Viết chương trình Pascal có khai báo và sử dụng biến. Bài toán: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khách hàng. Ngoài trị giá hàng hoá, khách hàng còn phải trả thêm phí dịch vụ. Hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất. Gợi ý: Công thức cần tính: Tiền thanh toán= Đơn giá * Số lượng + phí. 12.
<span class='text_page_counter'>(13)</span> Program Tinh_Tien; Thực hiện gán Uses Crt; Khai xâu báo biến Gán dữ Khai báo hằng biểu thức cho Nhập giá trị cho Var soluong: integer; Insoluong ra màn hình kiểu In số tiền phải liệu Xóa màn cho hình. biến “phi” có giá trị dongia, thanhtien: real; biếndongia. biến “don gia= ”. số nguyên. thanh toán ra thongbao. làthanhtien. 10,000. thongbao: String; màn hình. Const phi= 10000; 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 + phi; (* In ra so tien phai tra *); writeln(thongbao, thanhtien:10:2); readln 13 End..
<span class='text_page_counter'>(14)</span> Bài tập nhóm. * Với chương trình Tinh_tien.pas ở trên: Hãy chạy lại chương trình lần lượt với các bộ dữ liệu (5000.5, 12); (10000, 20.5) và (1,35000). Quan sát kết quả của từng bộ dữ liệu, nêu nhận xét và cách khắc phục lỗi (nếu có).. 14.
<span class='text_page_counter'>(15)</span> Củng cố Vidu; ?Program Hãy gõ chương Var a, b:= integer; trình sau, liệt kê Const c:=300; các Beginlỗi (nếu có) b:= chương 7 trong trình c/b; lại cho và a:= sửa Write(‘ Ket qua ‘,a); đúng. Readln End.. Program Vidu; Vidu; Program Var a, b: b:= integer; Var integer; real; Consta:c:=300; Const c=300; Begin Begin b:= 7 b:= c/b; 7; a:= a:= c/b; Write(‘ Ket qua ‘,a); Write(‘ Ket qua ‘,a); Readln Readln End. End. 15.
<span class='text_page_counter'>(16)</span> 16.
<span class='text_page_counter'>(17)</span> Bài tập. Bài 1. Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình: i). X= a + b + c.. ii) Y= (a + b)2 / c. iii) Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết 17.
<span class='text_page_counter'>(18)</span> Var a, b, c, X: integer; Begin write(‘a= ‘); readln(a); write(‘b= ‘); readln(b); write(‘c= ‘); readln(c); X:= a + b + c; Writeln(‘X = ‘,X); Readln End.. 18.
<span class='text_page_counter'>(19)</span> Var a, b, c, X: integer; Y: real; Begin write(‘a= ‘); readln(a); write(‘b= ‘); readln(b); write(‘c= ‘); readln(c); X:= a+b+ c;. Y:= (a+b)*(a+b)/c;. Writeln(‘X = ‘,X); Writeln(‘Y = ‘,Y); Readln End.. 19.
<span class='text_page_counter'>(20)</span>
