Значение функции для любых значений х

@VeldreN · Регистрация: 08.02.2017

Author24 — интернет-сервис помощи студентам

Требуется разработать приложение, которое бы вычисляло значение функции для любых х по желанию

пользователя.Сам пример: cos2x+3,x<1 и √(2+х)+√(х-3),x>=1
Вот что получилось у меня,но программа вылетает,прошу помогите.

Pascal

 var
 x,y:real;
begin
  Write('Введите значение х: ');
  Readln(x);
  if x<1 then
  y:=sqr(cos(x))+3
  else
  y:=sqrt(2+x)+sqrt(x-3);
  Writeln('Число y при х= ',x,'равно: ',y);
  Readln;
end.

@Zwelenewskiy · 27.06.2017, 19:50

Не знаю,что именно не работает - у меня все нормально. Работает и через консоль. Но попробуйте добавить строчку:

Pascal

uses crt;
var
x,y:real;
begin
Write('Введите значение х: ');
Readln(x);
if x<1 then
y:=sqr(cos(x))+3
else
y:=sqrt(2+x)+sqrt(x-3);
Writeln('Число y при х= ',x,'равно: ',y);
Readln;
end.

@VeldreN · 27.06.2017, 19:55 **[ТС]**

Zwelenewskiy, у меня вылетает программа при вводе чисел 1 и 2

Добавлено через 2 минуты
Zwelenewskiy, все проблему решил.

@Zwelenewskiy · 27.06.2017, 20:04

VeldreN, скиньте Ваш исправленный код

@VeldreN 0 / 0 / 0 Регистрация: 08.02.2017 Сообщений: 32
	27.06.2017, 19:55 [ТС]	3
	Zwelenewskiy, у меня вылетает программа при вводе чисел 1 и 2 Добавлено через 2 минуты Zwelenewskiy, все проблему решил. 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	27.06.2017, 20:04	4
	VeldreN, скиньте Ваш исправленный код 0