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

Определи,что выполняет эта программа ​


Определи,что выполняет эта программа ​

👇
Ответ:
Лиана1574
Лиана1574
13.10.2022

Создание графического окна размером 200х200 пикселей и зеленую кнопку с названием 'Решить', помещенную в центре окна

4,6(40 оценок)
Открыть все ответы
Ответ:
Крекир
Крекир
13.10.2022

Begin

 var fi_min:=ReadlnReal('fi_min=');

 var fi_:=ReadlnReal('fi_=');

 var fi_max:=ReadlnReal('fi_max=');

 var S_min:=ReadlnReal('S_min=');

 var S_max:=ReadlnReal('S_max=');

 var L:=ReadlnReal('L=');

 var W:=ReadlnReal('W=');

 var alpha:=ReadlnReal('alpha=');

 var betta:=ReadlnReal('betta=');

 var a, b:real;

 var x,y:real;

 var T_max:real;

 var S:real;

 y:=(S_max**2-S_min**2)/(cos(alpha+betta+fi_min)-cos(alpha+betta+fi_max));

 x:=S_min**2+y*cos(alpha+betta+fi_min);

 a:=((x+y)**(1/2)+(x-y)**(1/2))/2;

 b:=((x+y)**(1/2)-(x-y)**(1/2))/2;

 S:=(a**2+b**2-2*a*b*cos(alpha+betta+fi_))**(1/2);

 T_max:=(W*L*S)/(a*b*sin(alpha+betta));

 Println(a, b);

 Println(T_max);

end.

4,4(98 оценок)
Ответ:
fma060429
fma060429
13.10.2022

var

 L, A, R, rho, m: real;

begin

 write('Длина трубы, м = ');

 read(L);

 L := L * 100; // в см

 write('Толщина стенок трубы, мм = ');

 read(A);

 A := A / 10; // в см

 write('Внутренний радиус трубы, мм = ');

 read(R);

 R := R / 10; // в см

 rho := 11.4; // плотность

 m := pi * L * rho * (R * R + sqr(R + A));

 write('Масса свинцовой трубы, г: ', m:0:1);

end.

Пример диалога с программой

Длина трубы, м = 2.5

Толщина стенок трубы, мм = 3

Внутренний радиус трубы, мм = 12

Масса свинцовой трубы, г: 33038.6

Объяснение:

Масса  трубы может быть найдена, по формуле m = ρV, где ρ - плотность материала трубы, V - объем, канимаемый материалом.

Объем трубы находится по формуле V = L×S, где L - длина трубы, S - площадь поперечного сечения трубы.

Поперечное сечение трубы - это кольцо, у которого задан внутренний радиус r и толщина стенок A. Внешний радиус трубы вычисляется по формуле R = r+A. Тогда площадь кольца можно найти по формуле

S = πR² - πr² = π[(r+A)²+r²].

Окончательно m = πρL[r²+(r+A)²], где m - масса в граммах, ρ - плотность в г/см³, L, r, A - размеры в сантиметрах.

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