помогите решить задачку иначе недопуск до сессии!!!!!

[student2008]

Дана строка-предложение на русском языке. Вывести самое длинное слово в пред-ложении. Если таких слов несколько, то вывести первое из них. Словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/концом строки.

[alex_fcsm]

uses crt;
const delim=[',','.',';','!','?',':',' '];
var s,s1,sub:string;
    i,n,max:integer;
    a:array[1..100] of string;
    flag:boolean;
procedure Form(s:string);
begin
i:=0;n:=0;
flag:=false;
repeat
inc(i);
if flag and(s[i]in delim) then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   flag:=false;
                   end;
if not(s[i]in delim) then begin
      sub:=sub+s[i];
      flag:=true;
     end;
until i=length(s);
if flag then begin
              inc(n);
              a[n]:=sub;
             end;
end;


begin
clrscr;
writeln('Input str');
readln(s);
Form(s);
max:=1;
for i:=2 to n do
 if length(a[i])>length(a[max]) then max:=i;
 writeln(a[max]);

end.

[student2008]

спасибо огромное!!!!!!!

[Xardass]

Народ помагите, срочно мне до завтра решить нада

F(x) = 2 cos - 1
Составить программу для вычисленя значений функции F(x) а отрезке [a,b] с шагом h. Релуьтат предоставить в виде таблицы, первый столбец которой - значения оргумента, второй - соответствующие значения.

[Xardass]

И ещё одну задачу.

Дано простое число. Составить программу которая будет выводить следующие за ним простое число

[alex_fcsm]

Сообщение от Xardass

Народ помагите, срочно мне до завтра решить нада

F(x) = 2 cos - 1
Составить программу для вычисленя значений функции F(x) а отрезке [a,b] с шагом h. Релуьтат предоставить в виде таблицы, первый столбец которой - значения оргумента, второй - соответствующие значения.

uses crt;
var a,b,h,x:real;
begin
clrscr;
writeln('Input a b');
readln(a,b);
writeln('Input h');
readln(h);
x:=a;
while x<=b do
 begin
  writeln(x:8:6,' ',(2*cos(x)-1):8:6);
  x:=x+h;
 end;
readln;
end.

[student2008]

Ещё 2 задачи:
2)Дан целочисленный массив A размера N. Переписать в новый целочисленный мас-сив B того же размера вначале все элементы массива с четными номерами, а затем — с нечетными:A2, A4, A6, ..., A1, A3, A5, ... .Условный оператор не использовать.

3)Дан массив размера N и целые числа K и L (1 < K < L < N).Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно.

[alex_fcsm]

Сообщение от Xardass

И ещё одну задачу.

Дано простое число. Составить программу которая будет выводить следующие за ним простое число

uses crt;
var i:integer;

function IsSimple(n:integer):boolean;
var flag:boolean;
    j:integer;
begin
  flag:=false;
  for j:=2 to n-1 do
   if n mod j=0 then flag:=true;
  IsSimple:=flag;
end;


begin
clrscr;
readln(i);
inc(i);
while IsSimple(i) do
  inc(i);
writeln(i);
end.

[student2008]

Вот ещё:
Даны целые числа N (>2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.

[Gongled]

Почти Фибоначи...

program pr;
uses CRT;
const
n = 10;
var
e : array[1..n] of integer;
a,b,i : integer;
begin

write('Введите два числа: ');
read(a,b);
e[1] := a;
e[2] := b;

write(e[1]:4,e[2]:4);
for i:=3 to n do
begin
     e[i] := e[i-1] + e[i-2];
     write(e[i]:4);
end;

end.