Помогите составить программы на языке Паскаль,пожалуйста
1. Дано вещественное число x. Для функции, представленной графиком, вычислить y = f (x).
2. Найти максимальное (минимальное значение).
3. Выяснить, принадлежит ли точка Р(х, у) заштрихованной области.
Каждая картинка соответствует номеру задачи
Приложения:
Ответы
Ответ дал:
0
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var x:=ReadReal('x=');
var y:real;
if x<1 then y:=0.5**x
else
if x<4 then y:=4
else y:=5;
Writeln(y)
end.
№2
begin
var(x,y,z):=ReadReal3('Введите x,y,z:');
Writeln('min=',Min(Sin(x+y),Min(5-6*y,Tan(Abs(z)))))
end.
№3
begin
var(x,y):=ReadReal2('Введите x,y:');
if (y<2.5*x+2) and (y<-2.5*x+2) and (y>-3) then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.
Внимание! Если программа не работает, обновите версию!
№1
begin
var x:=ReadReal('x=');
var y:real;
if x<1 then y:=0.5**x
else
if x<4 then y:=4
else y:=5;
Writeln(y)
end.
№2
begin
var(x,y,z):=ReadReal3('Введите x,y,z:');
Writeln('min=',Min(Sin(x+y),Min(5-6*y,Tan(Abs(z)))))
end.
№3
begin
var(x,y):=ReadReal2('Введите x,y:');
if (y<2.5*x+2) and (y<-2.5*x+2) and (y>-3) then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.
Ответ дал:
0
Буду благодарен
Ответ дал:
0
По Лазарусу страдают на Украине, а у нас в России им не пользуются практически, так что у меня его нет. И еще - этот код несовместим с Free Pascal, который используется в Лазарус. Так что надо сразу в вопросе указывать необходимый диалект языка/систему программирования.
Ответ дал:
0
А что значит 0,5**x?
Ответ дал:
0
0.5 в степени х
Ответ дал:
0
В PascalABC.NET так можно писать
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад