Спасите скоро сессия !!!

[PavelSS]

Задачка №1.
Заполнить в массиве А отрицательные значения функции Y при изменении X от 0 до 10 с шагом 0,1. Вывести на экран полученный массив.
A (a,b,c – веществ. Числа)

Y= -x3+a*x2+b*x+с

P.S. Решить нужно тремя способами FOR, WHILE, REPEAT

[PavelSS]

Задачка №2.
В символьном массиве латинских слов, состоящем из 255 элементов, организовать линейный поиск с барьером и найти индекс элемента,равному заданному слову.Если такой элемент отсутствует, выдать соответствующее сообщение.

[PavelSS]

Задачка №3.
Непонятно что сделать нужно но походу продолжить.
задача.png

[Rusl92]

x:=0;chet:=1;
for i:=0 to 100 do
 begin
  y:=-x*x*x+a*x*x+b*x+c;
  if y<0 
   then 
     begin    
      a[chet]:=y;
      chet:=chet+1;
     end;
    x:=x+0,1;
  end;
  for i:=1 to chet do
   write(a[chet],' ');
  readln
end.

x:=0;chet:=1;
    while x<=10 do
      begin
       y:=-x*x*x+a*x*x+b*x+c;
       if y<0 
        then 
         begin    
          a[chet]:=y;
          chet:=chet+1;
         end;
       x:=x+0,1;
      end;
      for i:=1 to chet do
       write(a[chet],' ');

 x:=0;chet:=1;
     repeat
       y:=-x*x*x+a*x*x+b*x+c;
       if y<0 
        then 
         begin    
          a[chet]:=y;
          chet:=chet+1;
         end;
       x:=x+0,1;
until x>10;

[PavelSS]

Rusl92 огромное спасибо.

[Rusl92]

2 задача: символьный массив слов, как это понятЬ?

[PavelSS]

я незнаю условие задачи такое

[PavelSS]

а Задачу 3 сможешь решить ???

[alex_fcsm]

Задача3

Вводится два значения собственно x и eps - точность вычисления;

var x,eps,sum:real;
    i:integer;

function Fact(x:integer):real;
var j:integer;
    s:real;
begin
s:=1;
for j:=1 to x do
   s:=s*j;
Fact:=s;
end;

function Step(x:real;y:integer):real;
var s:real;
    j:integer;
begin
s:=1;
for j:=1 to y do
   s:=s*x;
Step:=s;
end;

function Fun(x:real;n:integer):real;
begin
if n mod 2= 0 then fun:=Step(x,2*n)/n
   else fun:=-Step(x,2*n)/n;
end;


begin
writeln('Input data');
readln(x,eps);
i:=0;
sum:=0;
repeat
inc(i);
sum:=sum+Fun(1+x,i);
until abs(Fun(x,i))<abs(eps);
writeln(sum:12:6);
end.

[PavelSS]

это какая задача ???