М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Написать программу вычисления объёма шара, при процедуры и функции v=4*pi*(r*r*r)/3

👇
Ответ:
ziniakovarenatzinca
ziniakovarenatzinca
22.06.2021
Program ob;
procedure GetVolume();
var
r: real;
begin
write('r = ');
readln(r);
writeln('Объём: ', V(r));
end;
function V(r: real): real;
begin
V := 4 * 3.14 * (r * r * r) / 3;
end;
begin
GetVolume();
end.
4,5(72 оценок)
Открыть все ответы
Ответ:
VaSa4547
VaSa4547
22.06.2021
1) из повседневной жизни школьника
каждую неделю, по будним дня, нужно идти в школу. (цикл на каждый день с исключением выходных)
По литературе задали выучить стих. На уроке проходятся циклом по всем ученикам и говорят рассказывать этот стих и потом оценивают

2) И днем и ночью кот ученый все ходит по цепи кругом
Колобок. Я от бабушки ушел, я от дедушки ушел, я от зайца ушел.. (цикл по обьектам)

3) физика. лабораторная, поставить некий эксперемент несколько раз с разными параметрами. Параметры меняются, действия одни и те же
Нахождение корней уравнения путем половинного деления (цикл повторяется пока не достигается определенная точность ответа)
4,4(23 оценок)
Ответ:
topovychuvak
topovychuvak
22.06.2021

Program yravnenie;

Var
 a,b,c,D,x1,x2,p,q:Real;
Begin
 Repeat
  Write('a= ');
  Readln(a);
  if a=0 then writeln('Error: a=0. Enter another value');
 Until a<>0;
 Write('b= ');
 Readln(b);
 Write('c= ');
 Readln(c);
 p:=b/a;
 q:=c/a;
 D:=Sqr(p/2)-q;
 If D>0 then
  begin
   Writeln('x1 = ',-p/2-Sqrt(D):0:5);
   Writeln('x2 = ',-p/2+Sqrt(D):0:5);
  end
 else
 If D=0 then
  Writeln('x1 = x2 = ',-p/2:0:5)
 else
  begin
   Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
   Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
  end;
 Readln;
End.

4,6(1 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ