Вывести значение логического выражения, заданного в виде строки

[Alex11223]

Фриланс — это раздел, где решают задания за денежное вознаграждение.

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

Напишу за 100-150р. Вебмани или ЯД (за срочность). Контакты в подписи.

[Алиночка Климова]

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

Это вот тут

легко- за денюжку)
контакты :

какие же вы корыстные...

[Jaguar83]

Сообщение от Алиночка Климова

какие же вы корыстные...

Ага... Мы такие...
Но ты должна понимать, что любая работа должна быть оплачена. Хотя бы чисто символически.

Кстати, по-моему тут паскалем и не пахнет, или я настолько плохо его знаю ...

PS. Если что, обращайся ICQ 426871384.

[Sparkman]

Сообщение от Алиночка Климова

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

ввод вещественных цифр в файл "in.dat"

var fr:file of real;
    n,i:integer;
    a:real;
begin
     assign(fr,'in.dat');
     rewrite(fr);
     write('Enter n: ');
     readln(n);
     for i:=1 to n do
     begin
          write('enter ',i,' number: ');
          readln(a);
          write(fr,a);
     end;
     close(fr);
end.

нахождение локальных максимумов

uses crt;
const n=100;
var fr:file of real;
    fi:file of integer;
    i,j,k,l:integer;
    mr:array[1..n] of real;
    mi:array[1..n] of integer;
    direction:boolean;{true - up, false - down}
begin
     assign(fr,'in.dat');
     assign(fi,'out.dat');
     reset(fr);
     rewrite(fi);
     while (not eof(fr))and(i<=n) do
     begin
          inc(k);
          read(fr,mr[k]);
          write(mr[k]:3:1);
     end;
     writeln;
     l:=1;
     while (mr[l]=mr[l+1])and(l<k) do
     begin
          if mr[l]<mr[l+1] then direction:=true
          else direction:=false;
          break;
     end;

     l:=0;
     for i:=2 to k do
     if direction and (mr[i-1]>mr[i]) then
     begin
          direction:=false;
          inc(l);
          mi[l]:=i-1;
     end else
     if not direction and (mr[i-1]<mr[i]) then direction:=true;

     for i:=1 to l-1 do
     for j:=i+1 to l do
     if mi[j]<mi[i] then
     begin
          k:=mi[j];
          mi[j]:=mi[i];
          mi[i]:=k;
     end;
     for i:=1 to l do
     write(fi,mi[i]);
     close(fr);
     close(fi);
     writeln('finished');
     readln;
end.

вывод результата

uses crt;
var fi:file of integer;
    a:integer;
begin
     clrscr;
     assign(fi,'out.dat');
     reset(fi);
     while not eof(fi) do
     begin
          read(fi,a);
          write(a:3);
     end;
     close(fi);
     readln;
end.