Question

ДАЮ 40 БАЛІВ ДОПОМОЖІТЬ ТЕРМІНОВО Складіть в паскалі програму обчислення площі поверхні циліндру S=2*pi*r^2+2*pi*r*h. Екран, повинен мати вигляд:

Введіть ісходні дані:

Радіус основи (см) –> 5.5

Висота (см) –> 7

Площа поверхні цилиндра 431.97 кв. см

Answer 1

program ploshad;

var

r, h, S: real;

const pi = 3.14159;

begin

writeln ('Введіть ісходні дані:');

write('Радіус основи (см) –> ');

readln (r);

write('Висота (см) –> ');

readln (h);

writeln('Площа поверхні цилиндра ', 2*pi*sqr(r)+2*pi*r*h:3:2,' кв. см');

end.

или

program ploshad;

var

r, h, S: real;

const pi = 3.14159;

begin

writeln ('Введіть ісходні дані:');

write('Радіус основи (см) –> ');

readln (r);

write('Висота (см) –> ');

readln (h);

S := 2*pi*sqr(r)+2*pi*r*h;

writeln('Площа поверхні цилиндра ', S:3:2,' кв. см');

end.

Результат работы программы представлен на скриншоте.