Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / Лб 2.2 / Соловаров ИС-148 Лб 2.2вар. 10
.pas Program LB3;
Var y,x:Real;
Begin writeln('Введите f(x)');Readln(x);
If (x<=-2)
then y:=-3-x
else if (x>=-2) and (x<=0)
Then y:=x+1
Else if (x>=0) and (x<=2)
Then y:=-x+1
Else y:=x-3;
writeln('y=', y:8:6)
End.
Var y,x:Real;
Begin writeln('Введите f(x)');Readln(x);
If (x<=-2)
then y:=-3-x
else if (x>=-2) and (x<=0)
Then y:=x+1
Else if (x>=0) and (x<=2)
Then y:=-x+1
Else y:=x-3;
writeln('y=', y:8:6)
End.
Соседние файлы в папке Лб 2.2