Вычислить площадь полной поверхности и объем прямого кругового цилиндра, заданного высотой и диаметром основания.

моё решение

Код Pascal

1

2

3

4

5

6

7

8

9

10

11

12

13

14 program qwe;

uses crt;

var h, r:integer;

S, V:real;

begin

clrscr;

h:=10;

r:=5;

S:=2pir*h;

writeln ('ploshad = ', s:2:0);

V:=pisqr (r) h;

writeln ('ob'iem = ', v:2:0);

end.

верно ли мое решение?

Question

Информатика

Таля

22 сентября, 22:15

Вычислить площадь полной поверхности и объем прямого кругового цилиндра, заданного высотой и диаметром основания.

моё решение

Код Pascal

1

2

3

4

5

6

7

8

9

10

11

12

13

14 program qwe;

uses crt;

var h, r:integer;

S, V:real;

begin

clrscr;

h:=10;

r:=5;

S:=2pir*h;

writeln ('ploshad = ', s:2:0);

V:=pisqr (r) h;

writeln ('ob'iem = ', v:2:0);

end.

верно ли мое решение?

+1

Ответы (1)

Знаешь ответ?

Антонидка · Answer 1

Про синтаксис сказать ничего не могу, вроде правильно

объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т. е. S:=2*pi*r*h+2*pi*r*r