Bài tập t24

Chia sẻ bởi Trương Kim Lộc | Ngày 24/10/2018 | 67

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!
* 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)