viết chương trình cho phép tính diện tích các hình: hình vuông, hình chữ nhật, hình tròn, hình tam giác, hình thang. người dùng chọn hình cần tính diện tích từ
viết chương trình cho phép tính diện tích các hình: hình vuông, hình chữ nhật, hình tròn, hình tam giác, hình thang. người dùng chọn hình cần tính diện tích từ bản chọn, sau đó khai báo các thông số liên quan và nhận được diện tích của hình: MOI BAN CHON HINH CAN TINH DIEN TICH 1.Hình vuông 2.Hình chữ nhật 3.Hình tròn 4.Hình tam giác 5.Hình thang. muốn tính diện tích hình tam giác người dùng gõ số 4 và khai báo đường cao, đáy. Chương trình tính và thông báo diện tích đến người dùng.
Lời giải 1 :
uses crt;
const pi=3.14;
var a,b,c,n:longint;
begin
clrscr;
writeln('1.Hinh vuong');
writeln('2.Hinh chu nhat');
writeln('3.Hinh tron');
writeln('4.Hinh tam giac');
writeln('5.Hinh thang');
repeat write('Moi ban chon hinh muon tinh dien tich (1->5): ');readln(n);
until (0<n) and (n<6);
case n of
1:
begin
write('Nhap canh: ');readln(a);
write('Dien tich hinh vuong la: ',a*a);
end;
2:
begin
write('Nhap canh thu nhat: ');readln(a);
write('Nhap canh thu hai: ');readln(b);
write('Dien tich hinh chu nhat: ',a*b);
end;
3:
begin
write('Nhap ban kinh: ');readln(a);
write('Dien tich hinh tron: ',(pi*a*a):0:2);
end;
4:
begin
write('Nhap duong cao: ');readln(a);
write('Nhap canh ung voi duong cao: ');readln(b);
write('Dien tich hinh tam giac: ',((a*b)/2):0:2);
end;
5:
begin
write('Nhap canh day thu nhat: ');readln(a);
write('Nhap canh day thu hai: ');readln(b);
write('Nhap chieu cao: ');readln(c);
write('Dien tich hinh thang: ',(((a+b)/2)*c):0:2);
end;
end;
readln;
end.
Thảo luận
Lời giải 2 :
uses crt;
var n,a,b,c:real;
begin
clrscr;
writeln('MOI BAN CHON HINH CAN TINH DIEN TICH: ');
writeln('1. Hinh vuong.');
writeln('2. Hinh chu nhat.');
writeln('3. Hinh tron.');
writeln('4. Hinh tam giac.');
writeln('5. Hinh thang.');
readln(n);
if n=1 then
begin
write('Canh:');readln(a);
writeln('Dien tich: ',a*a:0:2);
end else
if n=2 then
begin
write('Chieu dai:');readln(a);
write('Chieu rong:');readln(b);
writeln('Dien tich: ',a*b:0:2);
end else
if n=3 then
begin
write('Ban king:');readln(a);
writeln('Dien tich: ',a*a*3.14:0:2);
end else
if n=4 then
begin
write('Duong cao:');readln(a);
write('Day:');readln(b);
writeln('Dien tich: ',a*b/2:0:2);
end else
if n=5 then
begin
write('Day tren:');readln(a);
write('Day duoi:');readln(b);
write('Duong cao:');readln(c);
writeln('Dien tich: ',c/2*(a+b):0:2);
end;
readln
end.
//////////////////////////////////////////////////////////////////////
Test:
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 :))Copyright © 2021 HOCTAP247