Написать программу, которая по введенному значению вычисляет значение функции

@Mathcore · Регистрация: 22.10.2012

написать программу которая по введенному значению вычисляет значение функции
[IMG]http://s018.***********/i501/1211/b5/8a71ef3ceba5.jpg[/IMG]
и

@Puporev · 26.11.2012, 11:47

1.

Pascal

uses crt;
var r,x,y:real;
begin
clrscr;
repeat
write('Введите R=');
readln(r);
until r>0;
write('x=');
readln(x);
if x<=-r then y:=x/4+r/4
else if(x>-r)and(x<=0) then y:=-sqrt(r*r-sqr(x+r))+r
else if(x>0)and(x<=r) then y:=sqrt(r*r-x*x)
else y:=-x+r;
write('y=',y:0:3);
readln
end.

2.

Pascal

uses crt;
var r,x,y:real;
begin
clrscr;
repeat
write('Введите R=');
readln(r);
until r>0;
write('x=');
readln(x);
if x<=-r then y:=x+r
else if(x>-r)and(x<=0) then y:=sqrt(r*r-x*x)
else if(x>0)and(x<=2*r) then y:=-x/2+r
else y:=x-2*r;
write('y=',y:0:3);
readln
end.

@Mathcore · 26.11.2012, 11:59 **[ТС]**

Спасибо, снова выручили

@Mathcore 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 23
		1
	Написать программу, которая по введенному значению вычисляет значение функции 24.11.2012, 11:05. Показов 1785. Ответов 2 Метки нет (Все метки) написать программу которая по введенному значению вычисляет значение функции [IMG]http://s018.***********/i501/1211/b5/8a71ef3ceba5.jpg[/IMG] и __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Mathcore 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 23
	26.11.2012, 11:59 [ТС]	3
	Спасибо, снова выручили 0

Опции темы

Написать программу, которая по введенному значению вычисляет значение функции

Решение