1. Використовуючи дані таблиці

Блюдо Ціни
борщ 35
котлета 40
каша 20
чай 3
Визначити загальну вартість обіду в їдальні. Визначити, у скільки разів зросте вартість обіду, якщо ціна котлети
збільшиться вдвоє ?
2. Задана вага в грамах. Визначити вагу в тоннах і кілограмах.
Вхідні данні: 1200645 г
Вихідні данні: 1200 кг 645 г
1 т 200 кг 645 г
3. Відомий обсяг інформації в байтах. Перевести в кілобайти,
мегабайти.(Використати функцію pow() та round(a,2)- функція
округлення числа а з двома числами після коми)
Вхідні данні: 12345
Вихідні данні: 12.06 кілобайт
0.01 мегабайт
4. Визначити значення функції z = 1 / (x*y) при x і y, що не
дорівнюють нулю.(Використати функцію round(a,2)- функція
округлення числа а з двома числами після коми)
Вхідні данні: х=12
у= - 5
Вихідні данні: 0, 02

Вычислительная техника широко используется в современных системах обработки информации, для быстрого и точного определения координат судов, самолётов, космических объектов и т.п. Особенной областью применения вычислительной техники являются информационные поисковые системы, обеспечивающие механизацию библиотечных и библиографических работ и ликвидации больших справочных картотек. Быстро развивающейся сферой использования вычислительной техники является также работа банков, сберегательных касс и других финансовых учреждений, где применение ЦВМ позволяет централизованно реализовывать все расчётные операции.

Современный научно-технический прогресс характеризуется прежде всего не только высокой производительностью и научной организацией труда, но и широкой механизацией и автоматизацией умственной деятельности человека. Алгоритмизация умственной деятельности человека потребовала интенсивной разработки новых разделов математики, особенно математического моделирования, логики, лингвистики и психологии, создания специальных математических методов анализа, физических, биологических и социальных процессов, математическое исследование которых было ранее невозможно.

На opt-hardware.ru Вы найдете много полезной и исчерпывающей информации о закупках, торгах и тендерах на средства вычислительной техники!

Средства связи

Средства связи – это технические и иные средства, с которых решаются задачи передачи, приема, обработки и хранения информации. Средства связи, в зависимости от принципов и сфер деятельности, бывают радиорелейные, тропосферные, проводные, космические, оптические, лазерные и гидроакустические. Так же средства связи разделяют по характеру передаваемой информации на телефонные, телеграфные, телекодовые, телевизионные факсимальные, видеотелефонные, сигнальные и фельдъегерско-почтовые.

Связь играет немаловажную роль в производственно-хозяйственной деятельности общества и управлении государством, вооружёнными силами и всеми видами транспорта, а также в удовлетворении культурно-бытовых надобностей населения. Недостаточный уровень развития средств связи ведёт к уменьшению темпов экономического развития, роста национального дохода и уровня жизни населения.

На b2b-connection.ru Вы найдете много полезной и исчерпывающей информации о закупках, торгах и тендерах на средства связи!

Автоматизация

Автоматизация – применение машин, машинной техники и технологии в производстве с полным или частичным устранением человеческого труда. Автоматизация производства предполагает устранение тяжелого физического труда рабочих, перекладывая задачи на автоматизированное оборудование, функционирующего по принципу саморегуляции. Автоматизация управления – применение компьютерных средств для обработки и передачи информации в управлении производственными процессами. Автоматизация повышает производительность.

Sub Z()
Dim k As Integer
Dim m As Integer
Dim p As Single
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim x As Integer
k = InputBox("Количество округов")
m = InputBox("Количество партий")
p = InputBox("Порог явки изберателей (в %)")
s = "Выборы состоялись в округах: "
For i = 1 To k
    For j = 1 To m
        x = InputBox("Округ " & i & ". Голосов за партию №" & j)
        n = n + x
    Next j
    x = InputBox("Округ " & i & ". Не голосовало")
    If (n / (n + x) * 100) > p Then s = s & i & "; "
    n = 0
Next i
MsgBox (s)
End Sub