Tin 8

Cửu Long

Học sinh chăm học
Thành viên
24 Tháng ba 2017
362
387
119
Bình Định
Trung tâm đào tạo THẢ THÍNH
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết CT:
a) Tính diện tích HCN với chiều dài và chiều rộng được nhập vào từ bàn phím
b) Tính diện tích hình thang với độ dài đáy lớn, đáy bé và chiều cao tương ứng đc nhập từ bàn phím
c)Tính tổng S=1+2+3+...+200
d) Nhập vào hai số a và b, nếu ab thì tính a.b và in ra giá trị của tích a.b nếu a [tex]\geq[/tex] b thì tính a - b và in ra giá trị của hiệu a-b
e) Nhập vào 1 số nguyên. In ra màn hình kết quả số đó có in hết cho 2
 

thienabc

Học sinh gương mẫu
Thành viên
19 Tháng sáu 2015
1,237
2,217
319
TP Hồ Chí Minh
Thcs Tân Bình
Viết CT:
a) Tính diện tích HCN với chiều dài và chiều rộng được nhập vào từ bàn phím
b) Tính diện tích hình thang với độ dài đáy lớn, đáy bé và chiều cao tương ứng đc nhập từ bàn phím
c)Tính tổng S=1+2+3+...+200
d) Nhập vào hai số a và b, nếu ab thì tính a.b và in ra giá trị của tích a.b nếu a [tex]\geq[/tex] b thì tính a - b và in ra giá trị của hiệu a-b
e) Nhập vào 1 số nguyên. In ra màn hình kết quả số đó có in hết cho 2
a)Uses crt;
Var a,b:integer;
Begin
Writeln( nhap vao chieu dai,chieu rong); Readln(a,b);
S:=a*b
End.

b)
Program Dien_tich_hinh_thang;
Uses crt;
Var a,b,c:integer;
Begin
clrscr;
write('nhap do dai cua day lon :');
readln(a);
write('nhap do dai cua day nho :');
readln(b);
write('nhap do dai cua chieu cao :');
readln(c);
writeln('tong hai canh day');
writeln(a,'+',b,'=',a+b);
writeln('tong hai canh day nhan voi chieu cao');
writeln(a+b,'*',c,'=',(a+b)*c);
writeln('dien tich hinh thang');
writeln((a+b)*c,'/',2,'=',((a+b)*c)/2:5:2);
readln;
End.
Tự làm +tổng hợp
 
Top Bottom