Привет Всем!!!!! )
Нужна помощь......... отчислят, если не сдам программу по паскаль!!!!!!
ЗАДАНИЕ: Разработать алгоритм решения задачи, составить блок-схему и запрограммировать решение на языке Pascal, используя подпрограмму-функцию.
Посчитать значение функции
f(x)={(-x-1 при x<-1,
0 при-1≤x<0,
x^2 при 0≤x<1,
1/x в других случаях)
В интервале x∈[-3;3] с шагом 0,25.
Заранее спасибо! ^_^
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.
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.
я уже такую приносила, вот только здесь нет подпрограммы - функции
Извини. . . . . Но я учусь на 4 курсе. Инженер технолог! :-) а с первого курса уже ничего не помню. . . . . А теперь экзамены заключительные всех прижали. Извини меня ещё раз. . . Спасибо!