Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / 3
.txt r y,x:Real; mist:Boolean;
BEGIN
Writeln('введите х');
Readln(x);
Mist:=False;
If(x<=2) and (x>=1)
Then y:=x-1
else if(-1<=x) and (x<=1)
Then y:=sqr(x)+1
else if x<-1
Then y:=0
Else mist:=TRUE;
If mist
Then writeln('нет решений')
Else writeln('y=', y:8:6)
END.
BEGIN
Writeln('введите х');
Readln(x);
Mist:=False;
If(x<=2) and (x>=1)
Then y:=x-1
else if(-1<=x) and (x<=1)
Then y:=sqr(x)+1
else if x<-1
Then y:=0
Else mist:=TRUE;
If mist
Then writeln('нет решений')
Else writeln('y=', y:8:6)
END.
Соседние файлы в папке Лабораторные по информатике