Tin 8

[Cửu Long]

[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]

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