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

Перевести на мову програмування систему рівнянь під номером 1, 5, 9


Перевести на мову програмування систему рівнянь під номером 1, 5, 9

👇
Открыть все ответы
Ответ:
nikzakora
nikzakora
30.12.2021
1) подход учитывающий не один, а несколько факторов - например  программировать работу светофора так, чтобы были учтены  а) "часы-пик"  б) погодные условия (туман/дождь/гололед) в) централизованные сигналы (проезд кортежа президента) г) сигналы пешеходов на переходе и т.д.;
2) системный эффект - это возникновение новых свойств, которых ранее не было у  элементов по отдельности. Кроме того,  это не очевидное (не сразу заметное) влияние различных факторов друг на друга и на конечный результат - например компьютер состоит из ряда простых электронных деталей, которые сами по себе ничего не представляют, но соединённые особым образом (в структуру) позволяют  хранить  числа и программы, складывать и вычислять и в конечном итоге - моделировать реальность (в играх, например). 
3) турникет в автобусе или метро (никто не знает как он работает, но все пользуются)
4,7(68 оценок)
Ответ:
Задание №1 

var s,v,t,a:real; 
begin 
writeln('Введите скорость, ускорение и время соотвественно'); 
read(v,a,t); 
s:=v*t+(a*sqr(t))/2; 
writeln('Расстояние S = ',s); 
end.

Задание №2

var a,b,c,d,m,n:integer; 
begin 
writeln('Введите ширину и высоту комнаты'); 
read(a,b); 
writeln('Введите размеры окна'); 
read(c,d); 
writeln('Введите размеры двери'); 
read(m,n); 
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n); 
end.

Задание №3

var a,b:real; 
begin 
writeln('Введите два числа'); 
read(a,b); 
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2); 
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b))); 
end.

Задание №4

var x:real; 
begin 
writeln('Введите ребро куба'); 
read(x); 
writeln('Площадь грани = ',sqr(x)); 
writeln('Площадь полной поверхности = ',6*sqr(x)); 
writeln('Объем куба = ',power(x,3)); 
end.

Задание №5

var r1,r2:real; 
begin 
writeln('Введите внешний и внутренний радиус'); 
read(r1,r2); 
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else 
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2)); 
end.
4,8(87 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ