Nội dung của Bài thực hành 2: Viết chương trình để tính toán dưới đây, các em sẽ làm bài tập thực hành về cách chuyển biểu thức toán học sang biểu diễn trong Pascal, sử dụng phép toán DIV và MOD, tìm hiểu về các lệnh in dữ liệu ra màn hình và tạm ngừng chương trình,... Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
a. \(15 \times4 - 30+12 ;\)
b. \(\frac{15 + 5 }{3+1}-\frac{18}{5+1};\)
c. \(\frac{(10+2)^{2}}{(3+1)};\)
d. \(\frac{(10+2)^{2}-24}{(3+1)};\)
Lưu ý: chỉ sử dụng dấu ngoặc đơn để nhóm các phép toán.
Begin
writeln ('15*4 – 30 + 12 = ', 15*4-30+12);
writeln ('(10+5)/(3+1)-18/(5+1) = ‘, (10+5)/(3+1)-18/(5+1));
writeln ('(10+2)*(10+2)/(3+6) = ' , (10+2)*(10+2)/(3+6));
End.
Lưu ý: Các biểu thức Pascal được đặt trong câu lệnh writeln để in ra kết quả. Em sẽ có cách viết khác sau khi làm quen với khái niệm biến ở bài 4.
Gợi ý làm bài:
a) Viết các biểu thức trên dưới dạng biểu thức trong Pascal:
a. = 15*4 - 30 + 12 => Câu lệnh: Writeln('15*4-30+12= ', 15*4-30+12);
b. = (10+5)/(3+1)-18/(5+1) => Câu lệnh: Writeln('(10+5)/(3+1) - 18/(5+1)= ',(10+5)/(3+1) - 18/(5+1));
c. = (10+2)*(10+2)/(3+6) => Câu lệnh: Writeln('(10+2)*(10+2)/(3+1)= ', (10+2)*(10+2)/(3+1));
d. = ((10+2)*(10+2)-24)/(3+1) => Câu lệnh: Writeln('((10+2)*(10+2)-24)/(3+1)= ', ((10+2)*(10+2)-24)/(3+1));
b) Khởi động Pascal và gõ chương trình mẫu ở trên:
Để khởi động Pascal, các em thực hiện một trong hai cách sau:
Trước khi gõ chương trình mẫu, các em thực hiện: Vào bảng chọn File, chọn New để mở cửa sổ mới và bắt đầu soạn thảo chương trình.
c) Lưu chương trình với tên CT2.pas, dịch, chạy chương trình và kiểm tra kết quả nhận được trên màn hình.
Uses crt;
Begin
clrscr;
writeln (’16/3 = ‘ , 16/3);
writeln (’16 div 3 = ‘ , 16 div 3);
writeln (’16 mod 3 = ‘ , 16 mod 3);
writeln (’16 mod 3 = ‘ , 16 - (16 div 3)*3);
writeln (’16 div 3 = ‘ , (16-(16 mod 3))/3);
End.
Gợi ý làm bài:
a) Mở tệp mới và gõ chương trình mẫu: Tương tự câu b Bài 1 ở trên.
b) Dịch, chạy chương trình và kiểm tra kết quả: Tương tự câu c Bài 1 ở trên.
Nhận xét kết quả:
writeln (’16/3 = ‘ , 16/3) => Kết quả = 5.333333333...
writeln (’16 div 3 = ‘ , 16 div 3) => Kết quả = 5;
writeln (’16 mod 3 = ‘ , 16 mod 3) => Kết quả = 1;
writeln (’16 mod 3 = ‘ , 16 - (16 div 3)*3) => Kết quả = 1;
writeln (’16 div 3 = ‘ , (16-(16 mod 3))/3) => Kết quả = 5.
DIV: phép chia lấy phần nguyên;
MOD: phép chia lấy phần dư.
c) Thêm các câu lệnh tạm dừng màn hình sau mỗi câu lệnh writeln
Uses Crt;
Begin
Clrscr;
Writeln (‘16/3=’,16/3); Delay(5000);
Writeln (’16 div 3 =’,16 div 3); Delay(5000);
Writeln (’16 mod 3 =’, 16 mod 3); Delay(5000);
Writeln (’16 mod 3 =’,16-(16 div 3)*3); Delay(5000);
Writeln (’16 div 3 =’,(16-(16 mod 3))/3); Delay(5000);
End.
Nhận xét: Lệnh Delay(5000): tạm ngừng chương trình trong 5000 phần nghìn giây, sau đó chạy tiếp.
d) Thêm câu lệnh Readln vào trước từ khóa end
Uses Crt;
Begin
Clrscr;
Writeln (‘16/3=’,16/3);
Writeln (’16 div 3 =’,16 div 3);
Writeln (’16 mod 3 =’, 16 mod 3);
Writeln (’16 mod 3 =’,16-(16 div 3)*3);
Writeln (’16 div 3 =’,(16-(16 mod 3))/3);
Readln
End.
Nhận xét: Lệnh Readln tạm ngừng chương trình cho tới khi nhấn phím Enter.
Mở tệp CT2.pas và sửa 3 dòng lệnh cuối (trước từ khóa end) như bên dưới. Sau đó dịch, chạy lại chương trình xem kết quả.
writeln ('15*4 – 30 + 12 = ' , 15*4-30+12 : 4 : 2);
writeln ('(10+5)/(3+1)-18/(5+1) = ' , (10+5)/(3+1)-18/(5+1) :4 : 2);
writeln ('(10+2)*(10+2)/(3+6) = ' , (10+2)*(10+2)/(3+6) : 4 : 2);
Gợi ý làm bài:
Để mở tệp CT2.pas, các em thực hiện: Vào bảng chọn File, chọn Open mở tệp chương trình đã lưu trong đĩa.
Sau khi học xong Bài thực hành 2: Viết chương trình để tính toán, các em cần ghi nhớ các nội dung:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 2 cực hay có đáp án và lời giải chi tiết.
Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào?
Các phép toán nào sau đây không dùng cho kiểu số thực?
Câu 3- 5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào?
Các phép toán nào sau đây không dùng cho kiểu số thực?
Biểu thức toán học - được biễu diễn trong TURBO PASCAL:
Lệnh nào sử dụng để tạm ngừng chương trình trong x phần nghìn giây, sau đó chạy tiếp?
Lệnh nào tạm ngừng chương trình cho tới khi nhấn phím Enter?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Viết chương trình nhập 1 dãy số nguyên. In ra GTLN của dãy và đếm các số chẳn trong dãy số.
Câu trả lời của bạn
Viết chương trình tính tổng n số tự nhiên đầu tiên với N được nhập vào bàn phím
A= 1+2+3+4+....+N
Câu trả lời của bạn
Viết chương trình nhập dãy số A gồm N số nguyên dương từ bàn phím.
a. In ra màn hình phần tử chẵn lớn nhất, phần tử lẻ nhỏ nhất.
b. Sắp xếp dãy số A theo thứ tự tăng dần.
c. In ra màn hình số lượng phần tử chẵn và dãy các số chẵn rồi tính tổng của
chúng.
c. In ra màn hình số lượng các phần tử lẻ và dãy các số lẻ rồi tính tích của chúng.
Câu trả lời của bạn
BT: Viết chương trình nhập số nguyên dương N.Tính và in ra màn hình tổng S=1+2+3+...cho đến khi S lớn hơn hoặc bằng N
Câu trả lời của bạn
Viết chương trình nhập vào mảng n số nguyên ( với n được nhập từ bàn phím )
a.in dãy số vừa nhập lên màn hình
b.tìm giá trị lớn nhất ( nhỏ nhất trong mảng )
c.tính tổng các dãy số vừa nhập
d.tính tích và trung bình cộng dãy số vừa nhập
e.tính tổng các số lẻ của dạy số
f.tính tổng các số chẳn của dãy số
Câu trả lời của bạn
Câu trả lời của bạn
Câu 3: Ngôn ngữ lập trình là:
A. Tập hợp các kí hiệu và quy tắc viết các lệnh tạo thành một chương trình hoàn chỉnh và thực hiện được trên máy tính
B. Tập hợp các kí hiệu và quy tắc viết các lệnh tạo thành một chương trình hoàn chỉnh
C. Tập hợp các kí hiệu để viết các lệnh tạo thành một chương trình hoàn chỉnh
D. Tập hợp các quy tắc viết các lệnh tạo thành một chương trình hoàn chỉnh và thực hiện được trên máy tính
Câu trả lời của bạn
viết chương trình có thể tính PTK của 1 chất bất kỳ
(khối nào làm cũng được nha)
Câu trả lời của bạn
Câu trả lời của bạn
viết chương trình tính tổng các số nguyên và in ra màn hình số lẻ. Giúp mình voi, mai mình thi r ạ huhu
Câu trả lời của bạn
Bn ghi rõ ra cho mik vs ạ nếu được bạn chụp đề qua nha
giup minh voi a
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
program chuongtrinh;
uses crt;
var n, i: integer;
begin
write('Nhap n: '); readln(N);
writeln('Cac so chia het cho 10 la: ');
for i:= 1 to N do
if i mod 10 = 0 then write(i,'; ');
writeln(' ');
writeln('Nhan enter de ket thuc');
readln
end.
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Program HINH_VUONG;
Uses crt;
Var a:integer;
Begin
Clrscr;
Write('Nhap canh a: ');Readln(a);
Writeln('Chu vi hinh vuong la: ',a*4);
Writeln('Dien tich hinh vuong la:',a*a);
Readln;
End.
Câu trả lời của bạn
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *