Pascal ABC пожалуйста, а то я:-|

[Родион123321]

1)Даны положительные действительные числа А, X, Е. В последовательности y1, у2, .... образованной по закону y1=A, у2=Х,
уi=уi-2 + уi-1, i=1, 2, 3, .... найти первый элемент уn, для которого выполнено неравенство уn>Е.
2)Описать процедуру, выполняющую поиск в одномерном массиве отрицательной последовательности максимальной длины, вычислить её среднее арифметическое. Результатом работы процедуры является найденная последовательность. С помощью этой процедуры обработать 3 случайным образом сформированных массива на отрезке [-30,30].
3)Описать функцию Compress(S) строкового типа, выполняющую сжатие строки S по следующему правилу: каждая подстрока строки S, состоящая из более чем четырех одинаковых символов C, заменяется текстом вида «С{K}», где K — количество символов C (предполагается, что строка S не содержит фигурных скобок «{» и «}»). Например, для строки S = «bbbccccce» функция вернет строку «bbbc{5}e». С помощью функции CompressStr сжать пять данных строк. Строки считываются из текстового файла input.txt. Ответ размещается в файле output.txt.
4)С клавиатуры вводится некоторый промежуток на множестве действительных чисел. С шагом 0,1 проверить значения из данного промежутка на принадлежность указанной области. Ответ оформить в табличном виде. При решении задачи пользоваться процедурой (функцией)(график к 4 заданию). s.png

[digitalis]

Ошибся в выборе - куда пойти учиться ?

[Serge_Bliznykov]

задача 1) - тут решение - http://programmersforum.ru/showthread.php?t=302197

[Aleksandr H.]

function Compress(s:string):string;
var
   stmp,tmp,h:string;
   i:byte;
begin
     i   := 2;
     stmp:= '';
     tmp := s[1];
     s:=s+' ';
     while(i<=length(s)) do
      begin
           if(tmp[length(tmp)] <> s[i]) then
             begin
               if(length(tmp)>=4) then
                begin
                 str(length(tmp),h);
                 stmp := stmp + tmp[1]+'{'+ h + '}'
                end
               else
                stmp:=stmp+tmp;
               tmp := s[i];
             end
           else
            tmp:=tmp+s[i];
           inc(i);
      end;
     Compress:=stmp;
end;