// PascalABC.Net 3.0, сборка 1052 var s1, s2: string; a, b: real; err: integer;
begin Writeln('Введи первый катет: ');Readln(s1); Val(s1, a, err); if err <> 0 then Writeln('Ошибка при попытке получить числовое значение') else begin Writeln('Введи второй катет: ');Readln(s2); Val(s2, b, err); if err <> 0 then Writeln('Ошибка при попытке получить числовое значение') else begin Writeln('Гипотенуза равна ', sqrt(a * a + b * b)); Writeln('Площадь равна ', 0.5 * a * b) end end end.
Ты слушаешь музыку и эта информация обрабатывается с органов слуха. Печатаешь на клавиатуре текст и он обрабатывается, а затем выводится на экран. Прикоснулся к горячему чайнику, по телу пошёл сигнал в мозг (обработалась информация), что этот предмет слишком горячий, и мозг дал сигнал отдёрнуть руку.
Везде одни и те же правила: Есть исходная(предварительная) инфа (музыка, текст, чайник) -> Техническое устройство или человек (т.е. кому эта инфа идёт и где она обрабатывается) -> воздействует на объект управления.(т.к. уже идёт реакция на обработанную инфу. Текст выводится на монитор компа, а мозг даёт ответный сигнал убрать руку от горячего чайника.)
Диспетчер принимает заказ на такси. Принимает звуковую информацию, содержащую адрес подачи такси Время и Адрес назначения. Правило: В соответствии с полученной информацией производит поиск по базе свободных таксистов и производит расчет стоимость по заданной формуле. Затем передает адреса и время таксисту а стоимость и номер машины клиенту.
Бабушка просит внучку включить на телевизоре какую-нибудь передачу про здоровье.
Получена звуковая информация, содержащая сообщение с задачей - переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.
Правило: переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.
var
s1, s2: string;
a, b: real;
err: integer;
begin
Writeln('Введи первый катет: ');Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Введи второй катет: ');Readln(s2);
Val(s2, b, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
Writeln('Площадь равна ', 0.5 * a * b)
end
end
end.