ДАЮ 40 БАЛІВ ДОПОМОЖІТЬ ТЕРМІНОВО Складіть в паскалі програму обчислення площі поверхні циліндру S=2*pi*r^2+2*pi*r*h. Екран, повинен мати вигляд:
Введіть ісходні дані:
Радіус основи (см) –> 5.5
Висота (см) –> 7
Площа поверхні цилиндра 431.97 кв. см
Введіть ісходні дані:
Радіус основи (см) –> 5.5
Висота (см) –> 7
Площа поверхні цилиндра 431.97 кв. см
More Questions From This User See All
Answers & Comments
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.
Результат работы программы представлен на скриншоте.