Viết chương trình tính diện tích các hình : a. Hình thang (Sht = (đl+đn)*cc/2) b. Hình tam giác biết cạnh a và chiều cao h tương ứng (Stg = a*h/2) c. Chu vi và
Viết chương trình tính diện tích các hình : a. Hình thang (Sht = (đl+đn)*cc/2) b. Hình tam giác biết cạnh a và chiều cao h tương ứng (Stg = a*h/2) c. Chu vi và diện tích Hình chữ nhật (Cv =(a+b)*2 ; Dt = a*b) d. Viết chương trình tình tổng, tính tích của hai số thực, số nguyên nhập vào từ bàn phím ?
Lời giải 1 :
a. Hình thang
Uses crt;
Var
dl,dn,cc,Sht: real;
Begin
clrscr;
write('Nhap day lon: '); readln(dl);
write('Nhap day nho: '); readln(dn);
write('Nhap chieu cao: '); readln(cc);
Sht:=(dl+dn)*cc/2;
writeln('Dien tich hinh thang la: ',Sht:0:2);
readln;
End.
b. Hình tam giác
Uses crt;
Var
a,h,Stg: real;
Begin
clrscr;
write('Nhap canh day: '); readln(a);
write('Nhap chieu cao: '); readln(h);
Stg:=a*h/2;
writeln('Dien tich hinh tam giac la: ',Stg:0:2);
readln;
End.
c. Hình chữ nhật
Uses crt;
Var
a,b,Cv,Dt: real;
Begin
clrscr;
write('Nhap chieu dai: '); readln(a);
write('Nhap chieu rong: '); readln(b);
Cv:=(a+b)*2;
Dt:=a*b;
writeln('Chu vi hinh chu nhat la: ',Cv:0:2);
writeln('Dien tich hinh chu nhat la: ',Dt:0:2);
readln;
End.
d. Số thực
Uses crt;
Var
a,b: real;
Begin
clrscr;
write('Nhap 2 so thuc: '); readln(a,b);
writeln('Tong cua ',a:0:2,' va ',b:0:2,' la: ',(a+b):0:2);
writeln('Tich cua ',a:0:2,' va ',b:0:2,' la: ',(a*b):0:2);
readln;
End.
Số nguyên
Uses crt;
Var
a,b: integer;
Begin
clrscr;
write('Nhap 2 so thuc: '); readln(a,b);
writeln('Tong cua ',a,' va ',b,' la: ',a+b);
writeln('Tich cua ',a,' va ',b,' la: ',a*b);
readln;
End.
Thảo luận
Lời giải 2 :
a.
program ct;
uses crt;
var S,a,b,h: real;
begin
clrscr;
writeln('Nhap do dai canh day be: ');readln(a);
writeln('Nhap do dai canh day lon: ');readln(b);
writeln('Nhap do dai chieu cao: ');readln(h);
S:=((a+b)*h)/2;
writeln('Dien tich hinh thang la: ',S:5:3);
readln;
end.
b.
program ct;
uses crt;
var S,a,h: real;
begin
clrscr;
writeln('Nhap do dai canh day: ');readln(a);
writeln('Nhap do dai chieu cao: ');readln(h);
S:=(a*h)/2;
writeln('Dien tich hinh tam giac la: ',S:5:3);
readln;
end.
c.
program ct;
uses crt;
var S,C,a,b,h: real;
begin
clrscr;
writeln('Nhap do dai chieu dai: ');readln(a);
writeln('Nhap do dai chieu rong: ');readln(b);
C:=(a+b)*2; S:=a*b;
writeln('Chu vi HCN la: ',C:5:3);
writeln('Dien tich HCN la: ',S:5:3);
readln;
end.
d.
program ct;
uses crt;
var a,b: real;
begin
clrscr;
writeln('Nhap a: ');readln(a);
writeln('Nhap b: ');readln(b);
writeln('a+b = ',a+b:5:3);
writeln('a*b = ',a*b:5:3);
readln;
end.
_________________________________
#Duahauvn
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK