Вычислить значение функции

@nakeda · Регистрация: 05.10.2010

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

Здравствуйте люди добрые, задачка у меня такая
Вычислить и напечатать значение функции при заданых с клавиатуры значениях a,b,c,d (причем a<b<c<d)
........|0, x<a
........|x², a<=x<b
F(x)= |(x-2)³, b<=x<c
........|(x³+2x)², c<=x<d
........|0, x>=d
где xЄ(g,h), g и h задаются с клавиатуры,x изменяется с шагом 0,1.

@nakeda · 06.10.2010, 20:03 **[ТС]**

Up. Вверх.

@nakeda · 08.10.2010, 23:02 **[ТС]**

Никто не может?

@nakeda · 10.10.2010, 08:49 **[ТС]**

вверх

@Puporev · 10.10.2010, 09:24

Pascal

uses crt;
var a,b,c,d,g,h,x,f:real;
    k:integer;
begin
clrscr;
write('Начало интервалa g=');
readln(g);
repeat
write('a>',g:0:1,' a=');readln(a);
until a>g;
repeat
write('b>',a:0:1,' b=');readln(b);
until b>a;
repeat
write('c>',b:0:1,' c=');readln(c);
until c>b;
repeat
write('d>',c:0:1,' d=');readln(d);
until d>c;
repeat
write('Конец интервала, h>',d:0:1,' h=');
readln(h);
until h>d;
x:=g; k:=0;
while x<=h do
 begin
  if x<a then f:=0
  else if(x>=a)and(x<b) then f:=x*x
  else if(x>=b)and(x<c) then f:=sqr(x-2)
  else if(x>=c)and(x<d) then f:=sqr(x*x+2*x)
  else f:=0;
  writeln('x=',x:4:1,'   F(x)=',f:8:2);
  k:=k+1;
  if k mod 20=0 then
   begin
    write('Press Enter...');
    readln
   end;
  x:=x+0.1;
 end;
readln
end.

@nakeda 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 7
		1
	Вычислить значение функции 05.10.2010, 19:44. Показов 565. Ответов 4 Метки нет (Все метки) Здравствуйте люди добрые, задачка у меня такая Вычислить и напечатать значение функции при заданых с клавиатуры значениях a,b,c,d (причем a<b<c<d) ........\|0, x<a ........\|x², a<=x<b F(x)= \|(x-2)³, b<=x<c ........\|(x³+2x)², c<=x<d ........\|0, x>=d где xЄ(g,h), g и h задаются с клавиатуры,x изменяется с шагом 0,1. 0

@nakeda 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 7
	06.10.2010, 20:03 [ТС]	2
	Up. Вверх. 0

@nakeda 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 7
	08.10.2010, 23:02 [ТС]	3
	Никто не может? 0

@nakeda 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 7
	10.10.2010, 08:49 [ТС]	4
	вверх 0

	10.10.2010, 09:24