Bài tập t24
Chia sẻ bởi Trương Kim Lộc |
Ngày 24/10/2018 |
72
Chia sẻ tài liệu: bài tập t24 thuộc Tin học 8
Nội dung tài liệu:
PHÒNG GD & ĐT THĂNG BÌNH
TRƯỜNG THCS PHAN CHÂU TRINH
NHIỆT LIỆT CHÀO MỪNG QUÍ THẦY CÔ VỀ DỰ GIỜ
GV: TRUONG THI? KIM Lễ?C
MÔN TIN HỌC LỚP 7/6
Bài tập
Tiết 24
Bài 1: Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây
và sửa lại cho đúng.
Program bai1;
Uses crt;
Var cv,dt :integer
r:real;
Const pi:=3.1416;
Begin
clrscr;
r := 5.5
cv=2*pi*r;
dt= pi*r*r;
Write(‘Chu vi la:= cv`);
Write(‘ Dien tich la:= dt `);
readln
End .
*) Liệt kê các lỗi:
- Dòng 3: Thiếu dấu “ ; ”.
- Dòng 5: Thừa dấu “ : ”.
- Dòng 8: Thiếu dấu “ ; ”.
- Dòng 9, 10: Thiếu dấu “:”
và phép gán không hợp lệ.
- Dòng 11,12: Không in giá trị biểu thức ra màn hình
Bài 1: Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây
và sửa lại cho đúng.
Program bai8;
Uses crt;
Var cv,dt :integer
r:real;
Const pi:=3.1416;
Begin
clrscr;
r := 5.5
cv=2*pi*r;
dt= pi*r*r;
Write(‘Chu vi la:= cv’);
Write(‘ Dien tich la:= DT ’);
readln
End .
Program bai8;
Uses crt;
Var cv,dt,r :real;
Const pi = 3.1416;
Begin
clrscr;
r := 5.5;
cv :=2*pi*r;
dt := pi*r*r;
Write(‘Chu vi la=’, cv:4:1);
Write(‘Dien tich la = ’ , dt:4:1 );
readln
End .
Bài 2: Viết chương trình tính diện tích hình thang với a độ dài đáy lớn, b là độ dài đáy bé, h là chiều cao tương ứng (với a, b, h là các số nguyên được nhập từ bàn phím).
INPUT: a độ dài đáy lớn, b là độ dài đáy bé, h là chiều cao tương ứng
OUTPUT: Diện tích hình thang
Program Hinhthang;
Var a,b,h : Integer;
s:real;
Begin
Write(‘Nhap a = ’); Readln(a);
Write(‘Nhap b = ’); Readln(b);
Write(‘Nhap h = ’); Readln(h);
s:=(a+b)*h/2;
Writeln(‘Dien tich hinh thang la: ’, s:6:1);
Readln
End.
Chương trình
Bài 3: Viết chương trình tính trung bình cộng của bốn số thực a,b,c,d nhập từ bàn phím
INPUT: a , b , c , d là các số thực
OUTPUT: Trung bình cộng của ba số a,b,c
Program TBC;
Uses crt;
Var a,b,c,d,tbc : real;
Begin
Write(‘Nhap a = ’); Readln(a);
Write(‘Nhap b = ’); Readln(b);
Write(‘Nhap c = ’); Readln(c);
Write(‘Nhap d= ’); Readln(d);
tbc:=(a+b+c+d)/4;
Writeln(‘Trung binh cong: ’, tbc:6:1);
Readln
End.
Chương trình
DẶN DÒ
Xem lại các bài tập đã giải
BTVN: Viết chương trình tính diện tích hình sau
KÍNH CHÚC QUÝ THẦY CÔ SỨC KHỎE!
TRƯỜNG THCS PHAN CHÂU TRINH
NHIỆT LIỆT CHÀO MỪNG QUÍ THẦY CÔ VỀ DỰ GIỜ
GV: TRUONG THI? KIM Lễ?C
MÔN TIN HỌC LỚP 7/6
Bài tập
Tiết 24
Bài 1: Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây
và sửa lại cho đúng.
Program bai1;
Uses crt;
Var cv,dt :integer
r:real;
Const pi:=3.1416;
Begin
clrscr;
r := 5.5
cv=2*pi*r;
dt= pi*r*r;
Write(‘Chu vi la:= cv`);
Write(‘ Dien tich la:= dt `);
readln
End .
*) Liệt kê các lỗi:
- Dòng 3: Thiếu dấu “ ; ”.
- Dòng 5: Thừa dấu “ : ”.
- Dòng 8: Thiếu dấu “ ; ”.
- Dòng 9, 10: Thiếu dấu “:”
và phép gán không hợp lệ.
- Dòng 11,12: Không in giá trị biểu thức ra màn hình
Bài 1: Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây
và sửa lại cho đúng.
Program bai8;
Uses crt;
Var cv,dt :integer
r:real;
Const pi:=3.1416;
Begin
clrscr;
r := 5.5
cv=2*pi*r;
dt= pi*r*r;
Write(‘Chu vi la:= cv’);
Write(‘ Dien tich la:= DT ’);
readln
End .
Program bai8;
Uses crt;
Var cv,dt,r :real;
Const pi = 3.1416;
Begin
clrscr;
r := 5.5;
cv :=2*pi*r;
dt := pi*r*r;
Write(‘Chu vi la=’, cv:4:1);
Write(‘Dien tich la = ’ , dt:4:1 );
readln
End .
Bài 2: Viết chương trình tính diện tích hình thang với a độ dài đáy lớn, b là độ dài đáy bé, h là chiều cao tương ứng (với a, b, h là các số nguyên được nhập từ bàn phím).
INPUT: a độ dài đáy lớn, b là độ dài đáy bé, h là chiều cao tương ứng
OUTPUT: Diện tích hình thang
Program Hinhthang;
Var a,b,h : Integer;
s:real;
Begin
Write(‘Nhap a = ’); Readln(a);
Write(‘Nhap b = ’); Readln(b);
Write(‘Nhap h = ’); Readln(h);
s:=(a+b)*h/2;
Writeln(‘Dien tich hinh thang la: ’, s:6:1);
Readln
End.
Chương trình
Bài 3: Viết chương trình tính trung bình cộng của bốn số thực a,b,c,d nhập từ bàn phím
INPUT: a , b , c , d là các số thực
OUTPUT: Trung bình cộng của ba số a,b,c
Program TBC;
Uses crt;
Var a,b,c,d,tbc : real;
Begin
Write(‘Nhap a = ’); Readln(a);
Write(‘Nhap b = ’); Readln(b);
Write(‘Nhap c = ’); Readln(c);
Write(‘Nhap d= ’); Readln(d);
tbc:=(a+b+c+d)/4;
Writeln(‘Trung binh cong: ’, tbc:6:1);
Readln
End.
Chương trình
DẶN DÒ
Xem lại các bài tập đã giải
BTVN: Viết chương trình tính diện tích hình sau
KÍNH CHÚC QUÝ THẦY CÔ SỨC KHỎE!
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Trương Kim Lộc
Dung lượng: |
Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)