как выполнить програму?

@Bagdosy · Регистрация: 02.04.2013

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

помогите решить

@Puporev · 05.06.2013, 11:17

Кому здесь нужны твои задания, текст которых на картинке и написан на непонятном языке? У нас разрешены руский и английский.

Новичок · 05.06.2013, 15:57

В первом нужно вычислить значение функции,при заданном аргументе.
Так?

Pascal

var x,y:Real;
begin
Write('Значение аргумента,x=');
Readln(x);
if x<0 then y:=-0.5*x-3 else
if x<3 then y:=-sqrt(9-x*x) else
if x<6 then y:=sqrt((x-3)*(9-x));
Writeln('Значение функции,y=',y:0:2);
Readln;
end.

@Bagdosy 1 / 1 / 3 Регистрация: 02.04.2013 Сообщений: 9
		1
	как выполнить програму? 05.06.2013, 09:59. Показов 1027. Ответов 2 Метки нет (Все метки) помогите решить Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.06.2013, 11:17	2
	Кому здесь нужны твои задания, текст которых на картинке и написан на непонятном языке? У нас разрешены руский и английский. 1

	05.06.2013, 15:57

как выполнить програму?

Решение