Viết Chương Trình Pascal Tính Chu Vi, Diện Tích Hình Thang Và Chu Vi ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

vuchithanh
Chưa có nhóm

Trả lời
3
Điểm
14
Cảm ơn
1

Tin Học
Lớp 8
10 điểm
vuchithanh - 21:11:39 01/11/2019

Viết chương trình pascal tính chu vi, diện tích hình thang và chu vi diện tích hình tròn giúp. Mink vs các bạn ơi

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

keyy
Annihilators

Trả lời
1742
Điểm
28058
Cảm ơn
1312

keyy

Câu trả lời hay nhất!
02/11/2019

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Program CVDT;Uses crt;Var a,b,c,d,e: real; k:byte;Begin Clrscr; Write('Nhap k (1-2): '); Readln(k); If k=1 then Begin Write('Nhap do dai 2 day: '); Readln(a,b); Write('Nhap do dai 2 canh ben: '); Readln(c,d); Write('Nhap chieu cao: '); Readln(e); Write('Chu vi la: ',a+b+c+d:5:2); Writeln; Write('Dien tich la: ',(a+b)*e/2:5:2); End Else Begin Write('Nhap do dai ban kinh: '); Readln(a); Write('Chu vi la: ',a*2*3.14:5:2); Writeln; Write('Dien tich la: ',a*a*3.14:5:2); End; ReadlnEnd.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4.3starstarstarstarstar3 voteGửiHủy

Cảm ơn 1

- phamphucthinh
- Chưa có nhóm
- Trả lời
  1204
- Điểm
  12729
- Cảm ơn
  1218
bạn ơi mình nghỉ bạn nên chuyển từ byte sang real cho đúng
- keyy
- Annihilators
- Trả lời
  1742
- Điểm
  28058
- Cảm ơn
  1312
Nếu chuyển từ k sang real thì thời gian chương trình chạy sẽ lâu hơn vì k ở đây nhập chỉ 1 hoặc 2 thôi
- kieuthanhphat
- Chưa có nhóm
- Trả lời
  0
- Điểm
  70
- Cảm ơn
  0
Cho em hỏi biến k là gì trong bài vậy ạ
- keyy
- Annihilators
- Trả lời
  1742
- Điểm
  28058
- Cảm ơn
  1312
Biến k là để chọn tính diện tích hình thang hoặc hình tròn
- tungthanhnguyen4
- Chưa có nhóm
- Trả lời
  0
- Điểm
  35
- Cảm ơn
  0
giúp mình với ạ. unit interface uses crt; function diện tích hình vuông(hv), hình tròn(ht) hình thang(HTH) hình chữ nhật(HCN) chu vi các hình trên; imple... xem thêm

Đăng nhập để hỏi chi tiết avatar

phamphucthinh
Chưa có nhóm

Trả lời
1204
Điểm
12729
Cảm ơn
1218

phamphucthinh

02/11/2019

a/Program Chu_vi_dien_tich_hinh_thang

Var a, b, c, d, h, S, P : Real;

Begin

writeln ('nhap a');

readln (a);

writeln ('nhap b');

readln (b);

writeln ('nhap c');

readln (c);

writeln ('nhap d');

readln (d);

writeln ('nhap h');

readln (h);

P = a + b + c + d

S = (a + b ) * h / 2

writeln ( 'Chu vi cua hinh thang la, P : 3 : 2);

writeln ( 'Dien tich cua hình thang la, S : 3 : 2);

readln;

readln

End.

Program CHU_VI_Hinh_Tron;Uses Crt;Var r,dt,cv:real;BeginClrscr;Writeln (‘Nhap ban kinh R=’);readln(r);dt:=pi*r*r;cv:=2*pi*r;Writeln(‘Dien tich hinh tron la:’,dt:6:2);

Writeln(‘Chu vi hinh tron la:’,cv:6:2);Readln;End.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar1 voteGửiHủy