HELP PASCAL 11
Chia sẻ bởi Tống Tất Hùng |
Ngày 26/04/2019 |
58
Chia sẻ tài liệu: HELP PASCAL 11 thuộc Tin học 11
Nội dung tài liệu:
Mong mọi người giúp em.Đề bài: Lập trình tính chu vi,diện tích,của các hình chữ nhật,hình vuông, tam giác 3 cạnh a,b,c.Chú ý là phải trên cùng 1 chương trình.Khó wa. Mấy thầy,mấy cô giúp mình được không ?HuHu có j viết thư wa địa chỉ [email protected]. và chúc những bạn giải dc bài tập này may mắn ,hạnh phúc..
Tại sao mình viết như này không đúng và sửa lại như thế nào ?.
program tinh;
uses crt;
var a,b,c: real;
x:byte;
begin
clrscr;
writeln(`nhap hinh muon tinh,neu hinh chu nhat an phim 1,hinh vuong an phim 2,hinh tam giac an phim 3 `);
readln(x);
if x=1 then writeln(`nhap do dai canh thu 1`);
readln(a);
writeln(`nhap do dai canh thu 2 `);
readln(b);
writeln(`chu vi hinh chu nhat =`,(a+b)*2:5:5);
writeln(`dien tich hinh chu nhat =`,a*b:5:10);
readln;
if x=2 then writeln(`nhap do dai `);
readln(a);
writeln(`chu vi hinh vuong =`,a*4:5:5);
writeln(`dien tich hinh vuong=`,a*a:5:5);
readln;
if x=3 then writeln(`nhap do dai canh thu 1`);
readln(a);
writeln(`nhap do dai canh thu 2`);
readln(b);
writeln(`nhap do dai canh thu 3`);
readln(c);
writeln(`chu vi hinh tam giac =`,a+b+c:5:5);
writeln(`dien tich hinh tam giac =`,sqrt((a+b+c)*(a+b)*(a+c)*(b+c)):5:5);
readln;
end.
Tại sao mình viết như này không đúng và sửa lại như thế nào ?.
program tinh;
uses crt;
var a,b,c: real;
x:byte;
begin
clrscr;
writeln(`nhap hinh muon tinh,neu hinh chu nhat an phim 1,hinh vuong an phim 2,hinh tam giac an phim 3 `);
readln(x);
if x=1 then writeln(`nhap do dai canh thu 1`);
readln(a);
writeln(`nhap do dai canh thu 2 `);
readln(b);
writeln(`chu vi hinh chu nhat =`,(a+b)*2:5:5);
writeln(`dien tich hinh chu nhat =`,a*b:5:10);
readln;
if x=2 then writeln(`nhap do dai `);
readln(a);
writeln(`chu vi hinh vuong =`,a*4:5:5);
writeln(`dien tich hinh vuong=`,a*a:5:5);
readln;
if x=3 then writeln(`nhap do dai canh thu 1`);
readln(a);
writeln(`nhap do dai canh thu 2`);
readln(b);
writeln(`nhap do dai canh thu 3`);
readln(c);
writeln(`chu vi hinh tam giac =`,a+b+c:5:5);
writeln(`dien tich hinh tam giac =`,sqrt((a+b+c)*(a+b)*(a+c)*(b+c)):5:5);
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Tống Tất Hùng
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)