1) Viết Chương Trình Tính Diện Tích Hình Tròn Với Bán Kính R Nhập Từ ...

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

dangtanphong
Chưa có nhóm

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

Tin Học
Lớp 11
40 điểm
dangtanphong - 19:35:34 27/10/2020

1) Viết chương trình tính diện tích hình tròn với bán kính R nhập từ bàn phím 2) Viết chương trình tính diện tích hình tam giác với độ dài cạnh đáy a và chiều cao h nhập từ bàn phím. 3) Viết chương trình tìm số lớn nhất giữa 3 số a,b,c nhập từ bàn phím 4) Viết chương trình tìm số bé nhất giữa 3 số a,b,c nhập từ bàn phím 5). Viết chương trình bằng ngôn ngữ lập trình Pascal giải phương trình ax+b=0 6). Viết chương trình bằng ngôn ngữ lập trình Pascal giải phương trình: 〖ax〗^2+bx+c=0 (a≠0)

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

thobong_20
Chưa có nhóm

Trả lời
260
Điểm
9733
Cảm ơn
294

thobong_20

27/10/2020

Câu 1:

uses crt;

var r:real;

begin

clrscr;

readln(r);

write('S= ',r*r*3.14:10:2);

readln

end.

Câu 2:

uses crt;

var a,b:real;

begin

clrscr;

readln(a,h);

write('S= ',a*h);

readln

end.

Câu 3:

uses crt;

var a,b,c:longint;

begin

clrscr;

write('So lon nhat: ');

if (a<c) and (b<c) then write(c);

if (b>a) and (b>c) then write(b);

if (a>b) and (a>c) then write(a);

readln

end.

Câu 4:

uses crt;

var a,b,c:longint;

begin

clrscr;

write('So nho nhat: ');

if (a>c) and (b>c) then write(c);

if (b<a) and (b<c) then write(b);

if (a<b) and (a<c) then write(a);

readln

end.

Câu 5:

uses crt;var a,b:longint;beginclrscr;readln(a,b);if (a=0) and (b=0) then write('Pt co vo so No');if (a=0) and (b<>0) then write('Pt vo No');if (a<>0) and (b<>0) then write('Pt co nghiem x= ',-b/a:10:2);readlnend.

Câu 6:

uses crt;

var a,b,c:longint;

beginclrscr;

repeat readln(a,b,c);untila<>0;d:=sqr(b)-4*a*c;IF d<0 THEN write('Phuong trinh vo nghiem!') ELSE BEGIN x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); IF d=0 THEN writeln('Phuong trinh co nghiem kep x = ',x1:0:2) ELSE writeln('Phuong trinh co 2 nghiem phan biet: ',x1:0:2,' ',x2:0:2); END; readln;END.

Chú ý: các bài đều có thể khai báo bằng các kiểu dữ liệu khác nhau như longint,real, integer,...Nếu khai báo là real thì cần phải viết :0:2 hoặc :0:..(tùy theo bản thân) ở phần kết quả riêng bài 6 thì kết quả luôn phải viết dạng :0:2 hoặc :=0:..(tùy theo ý của bản thân))

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy

Cảm ơn 1
Báo vi phạm

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

tuongtaylor
Hội code dạo

Trả lời
2376
Điểm
46183
Cảm ơn
1806

tuongtaylor

28/10/2020

1)Program Tuongtaylor;uses crt;var r:real;beginclrscr; write('R=');readln(r); writeln('Dien tich: ',r*r*pi:0:2);readlnend.

2)Program Tuongtaylor;uses crt;var a,h:longint;beginclrscr; write('a,h= ');readln(a,h); writeln('Dien tich: ',(a*h)/2:0:2);readlnend.

3)Program Tuongtaylor;uses crt;var a,b,c:longint;beginclrscr; write('a,b,c= ');readln(a,b,c); write('So lon nhat: '); if(a>b)and(a>c)then write(a) else if(b>a)and(b>c)then write(b) else write(c);readlnend.

4)Program Tuongtaylor;uses crt;var a,b,c:longint;beginclrscr; write('a,b,c= ');readln(a,b,c); write('So be nhat: '); if(a<b)and(a<c)then write(a) else if(b<a)and(b<c)then write(b) else write(c);readlnend.

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