Код ниже (также можете свериться со скриншотами):
№1:
var x,y: real;
begin
write('x = ');
read(x);
if (x < 5) then
begin
y:= sqrt(x+25);
end;
if (x = 5) then
begin
y:= 500;
end;
if (x > 5) then
begin
y:= (x/4);
end;
writeln('y = ',y:2:2);
end.
№2:
var x,y: real;
begin
write('x = ');
read(x);
if (x < -1) then
begin
y:= x+2;
end;
if ((x >= -1) and (x < 5)) then
begin
y:= sqr(x+2);
end;
writeln('y = ',y:0:0);
end.
Какая бы не была прекрасная и чёткая система автоматизирования - она может ошибаться. Да, в нынешнем мире она делает это всё реже и реже, но, всё же, она ошибается. Человек должен её контролировать, обезопасить, в первую очередь, себя и себе подобных от её неправильных действий, которые могут навредить. В конце концов эту систему создал человек, а человек, как мы знаем, тоже ошибается и никогда не сотворит идеал (хотя, кто знает). Значит его детище - автоматизированная система управления в данном случае - тоже не может быть идеальной и может ошибаться. Поэтому, конечно, её нужно контролировать.
Таков мой ответ. Он очень субъективен, соглашаться с ним или нет - решать Вам :)
Поделитесь своими знаниями, ответьте на вопрос:
Программа паскаль(кто разбирается) .пишет что процесс убит больше 10 секунд) здесь есть ошибки? может пробел забыла где поставить или ; program variable; var a: integer; begin write('сколько будет 2+2'); read(a); if a=4 then writeln ('молодец') else writeln (' иди учись'); readln; end.
program NoName;
var v:integer;
begin
writeln('Сколько будет 2+2?');
readln(v);
if v=4 then
writeln('Молодец')
else
writeln('Иди повторяй')
end.
У меня всё работает, проверь...