Нарисовать Блок-схему и написать программу на Паскале решения следующих задач.
задание 1.
нацелите объем шара, имеющегося радиус R, по формуле V=4/3пR^3
Задание2.
найдите S квадратной пластины с круглым отверстием, где R-радиус окружности, a-сторона квадрата
Var
A,R:real;
Begin
WriteLn('Введи сторону квадрата.');
ReadLn(A);
WriteLn('Введи радиус окружности.');
ReadLn(R);
WriteLn('Площадь квадрата с вырезаной окружности равна:',Sqr(A)-(Pi*sqr(R)));
ReadLn
End.
A,R:real;
Begin
WriteLn('Введи сторону квадрата.');
ReadLn(A);
WriteLn('Введи радиус окружности.');
ReadLn(R);
WriteLn('Площадь квадрата с вырезаной окружности равна:',Sqr(A)-(Pi*sqr(R)));
ReadLn
End.
Ответы
Ответ дал:
1
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
R:real;
Begin
WriteLn('Введи радиус раша.');
ReadLn(R);
WriteLn('Объём шара равен: ',(4/3)*Pi*Sqr(R)*R);
ReadLn
End.