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.

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

Answer 2

Звісно, я можу допомогти вам з написанням програми на мові Pascal для обчислення площі поверхні циліндра за формулою S = 2 * pi * r^2 + 2 * pi * r * h. Ось програма:

program ObchyslenniaPloshchiCylindra;

var
  radius, height, surfaceArea: real;

begin
  // Введення ісходних даних
  writeln('Введіть ісходні дані:');
  write('Радіус основи (см) –> ');
  readln(radius);
  write('Висота (см) –> ');
  readln(height);

// Обчислення площі поверхні циліндра
  surfaceArea := 2 * pi * radius * radius + 2 * pi * radius * height;

// Виведення результату
  writeln('Площа поверхні циліндра: ', surfaceArea:0:2, ' кв. см');
end.

У цій програмі:

- Користувач вводить радіус основи і висоту циліндра. - За допомогою введених даних обчислюється площа поверхні циліндра за вказаною формулою. - Результат виводиться на екран з точністю до двох знаків після коми.

Запустіть цю програму в середовищі Pascal, і ви отримаєте результат, аналогічний вашому прикладу.