Viết chương trình tính diện tích hình thang với đáy be đáy lớn và chiều cao được nhập từ bàn phím
|
Vẽ hình, viết thuật toán và chương trình Pascal tính diện tích hình thang với đáy lớn, đáy nhỏ, chiếu cao là các số nguyên được nhập từ bàn phím. đè 2 nha mọi người giúp mình với  Hãy luôn nhớ cảm ơn và vote 5*
XEM GIẢI BÀI TẬP SGK TIN 8 - TẠI ĐÂY
1. viết chương trình tính diện tích hình thang với đáy nhỏ a , đáy lớn b, chiều cao h 2. viết chương trình tìm số lớn nhất trong 2 số a,b nhập vào từ bàn phím 3. viết chương trình kiểm tra số nguyên dương N nhập từ bàn phím là số chẵn hây lẻ Các câu hỏi tương tự
1/ Trả lờiProgram TAM_GIAC; uses crt; var a,b,c,p,S: real; Begin clrscr; Write('Nhap canh a:');readln(a); Write('Nhap canh b:');readln(b); Write('Nhap canh c:');readln(c); p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); Write('Dien tich tam giac la:',s:10:2); readln end.
Bài 1 :Program TAM_GIAC; uses crt; var a,b,c,d,p,S: real; Begin clrscr; Write('Nhap canh a:');readln(a); Write('Nhap canh b:');readln(b); Write('Nhap canh c:');readln(c); d:=a+b+c p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); Write('Chu vi tam giac la:',D:10:2); Write('Dien tich tam giac la:',s:10:2); readln end.
@Trịnh Quang Đức bạn ơi tính chu vi nữa mà? copy mà không nhìn à?
Program hinh_thang;uses crt;var a,b,c,S: real;Beginclrscr;Write('Nhap day be a:');readln(a);Write('Nhap day lon b:');readln(b);Write('Nhap chieu cao c:');readln(c);S:=(a+b)*c/2Write('Dien tich hinh thang la:',s:10:2);readln end.
Ad ơi bạn Trịnh Quang Đức bài 1 làm thiếu phần chu vi vẫn được cộng điểm ạ? Còn em có đầy đủ sao không được cộng ạ
2/ Trả lờiProgram 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.
Z câu nào đúng z m ban nói mk zs
Yêu cầu: Viết chương trình tính diện tích hình thang
Program Hinh_thang; Var a,b,h:Integer; S:Real; Begin Writeln('CHUONG TRINH TINH DIEN TICH HINH THANG'); Write('Cho biet day nho hinh thang: '); Readln(a); Write('Cho biet day lon hinh thang: '); Readln(b); Write('Cho biet chieu cao hinh thang: '); Readln(h); S := 0.5 * (a + b) * h; Writeln('Dien tich hinh thang = ',S:6:2,' met vuong'); Readln End.
Kết luận: ⦿ Để viết bài này các bạn cần áp dụng các câu lệnh writeln và công thức tính diện tích hình thang ⦿ Công thức diện tích hình thang: \(S = \dfrac{{\left( {a + b} \right)h}}{2}\) a: Độ dài đáy nhỏ b: Độ dài đáy lớn h: chiều cao hình thang |
