Ребята, нужна помощь! Решить задачу и составить блок-схему! Опции

[OlyaRudyak]

Привет Всем!!!!! )
Нужна помощь......... отчислят, если не сдам программу по паскаль!!!!!!

ЗАДАНИЕ: Разработать алгоритм решения задачи, составить блок-схему и запрограммировать решение на языке Pascal, используя подпрограмму-функцию.

Посчитать значение функции
f(x)={(-x-1 при x<-1,
0 при-1≤x<0,
x^2 при 0≤x<1,
1/x в других случаях)

В интервале x∈[-3;3] с шагом 0,25.

Заранее спасибо! ^_^

[OlyaRudyak]

Program aaa;
Var x, y, A: real;
begin
if x<-1 then y:=-x-1
else
begin
if (x>=-1) and (x<0) then y:=0 else
begin
if (x>=0) and (x <1) then y:= sqr(x) else
y:= 1/x
end;
end;
end.
begin
x:=-3
while x>3
begin
A:=Fx(x, y)
x:=x+0.25
Writeln(`Fx=`, A)
end;
end.

Вот программа, но в ней что-то не так..... это делал мой друг, а преподователь забраковал, сказал искать ошибку!

[DarkWishmaster]

Привет Всем!!!!! )
Нужна помощь......... отчислят, если не сдам программу по паскаль!!!!!!

ЗАДАНИЕ: Разработать алгоритм решения задачи, составить блок-схему и запрограммировать решение на языке Pascal, используя подпрограмму-функцию.

Посчитать значение функции
f(x)={(-x-1 при x<-1,
0 при-1≤x<0,
x^2 при 0≤x<1,
1/x в других случаях)

В интервале x∈[-3;3] с шагом 0,25.

Заранее спасибо! ^_^

Uses Crt;
var x,y:real;
function F(x:real):real;
var y:real;
begin
if x<-1 then 
  y:=-x-1 
  else if x<0 then y:=0
     else if x<1 then y:=sqr(x)
       else y:=1/x;
F:=y;
end;
Begin ClrScr;
x:=-3;
while x<=3 do begin
    y:=F(x) 
    writeln('f(',x:1:2,')=',y:5:2); 
    x:=x+0.25;
end;   
readln;
end.

Сообщение отредактировано: DarkWishmaster - 6.06.2011 19:12

[OlyaRudyak]

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

[DarkWishmaster]

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

отредактировал. И вообще, так сложно кусок програмы поставить в функцию? или что вы весь год учили?

Сообщение отредактировано: DarkWishmaster - 6.06.2011 19:06

[OlyaRudyak]

Извини. . . . . Но я учусь на 4 курсе. Инженер технолог! :-) а с первого курса уже ничего не помню. . . . . А теперь экзамены заключительные всех прижали. Извини меня ещё раз. . . Спасибо!