Модуль, функция, файл, 3 задачи , пожалуйста помогите решить! Опции

[денис]

1. Написать подпрограмму-функцию, решающую следующую задачу: пусть дано нату-ральное n и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное. Найдите наибольшее среди отрицательных чисел этой после-довательности.
2. Написать модуль, содержащий две процедуры: 1) пусть даны целое число n, символы . Определите имеется ли среди элементов данной последовательности пара соседних одинаковых символов; 2) в массиве из n элементов подсчитайте количество четверок идущих подряд членов, из которых все члены различны.
3. Пусть дан файл целых чисел. Определите, сколько раз в этом фай \ле повторяется максимальное значение.

[Altair]

Насчет первой -

последовательность

Как она выглядит?
(массив\вводится\строка\файл\ )
Это и ко второй относится.

[Altair]

3.

Код

var
f:file of integer;
i,summ:longint;
max,k:integer;
fn:string;

begin
repeat
  readln(fn); {file name}
  assign(f,fn);
  {$I-} reset(f)  {$I+}
until IOResult=0;
{€йҐ¬ ¬ Єб. зЁб«®}
For i:=0 to (filesize(f)-1) do
begin
  seek(f,i);
  read(f,k);
  If k>max then max:=k
end;
For i:=0 to (filesize(f)-1) do
begin
  seek(f,i);
  read(f,k);
  If i=max then INC(summ)
end;
Close(f);
Writeln('Њ ЄбЁ¬ «м­®Ґ зЁб«® ў д ©«Ґ ',fn,' ўбваҐз Ґвбп ',summ,' а §.');
end.

[APAL]

Чуть подправлю... оптимизирую.... если можно....

Код

var
f:file of integer;
i,summ:longint;
max,k:integer;
fn:string;

begin
repeat
readln(fn); {file name}
assign(f,fn);
{$I-} reset(f)  {$I+}
until IOResult=0;
{?饬 ¬ Єб. зЁб«®}
max:=-30000;
summ:=0;
For i:=0 to (filesize(f)-1) do
begin
seek(f,i);
read(f,k);
If k=max then Inc(summ);
If k>max then
Begin
  max:=k;
  summ:=0;
End;
end;
Close(f);
Writeln('Њ ЄбЁ¬ «м­®Ґ зЁб«® ў д ©«Ґ ',fn,' ўбваҐз Ґвбп ',summ,' а §.');
end.

Сообщение отредактировано: APAL - 31.05.2004 13:38

[Altair]

Чуть подправлю... оптимизирую.... если можно....

Да, я забыл сказать, что оптимизировать мне было лень.
APAL, спасибо за нее (за оптимизацию )
И в теге "код" не работают цвета

[APAL]

И в теге "код" не работают цвета 

Это я уже заметил. А жаль - хотел как красивее и нагляднее... указать что добавил, а что можно было удалить..

[денис]

как мне прочитать иероглифы? У меня паскаль на английском.

Сообщение отредактировано: volvo - 22.01.2005 17:47

[Altair]

У меня паскаль на английском.

Он на русском бывает ?

как мне прочитать иероглифы?

Не иероглифы, там! Там просто кодировка ДОС.
Или сохраните все это в текстовый файл и откройте в паскале, или если у вас IE, то нажмите

Вид

дальше пункт меню

Вид кодировки

дальше нажмите

дополнительно

и выберите

кирилица (DOS)

Все иероглифы станут читаемы, а все, что вы сейчас читаете, станет иероглифами

У меня паскаль на английском.

Ааа... я понял, у вас нет кирилического драйвера!
Если у вас Windows 98 SE или любая ниже, то пропишите в файл AUTOEXEC.BAT драйвер кирилицы, например, cyrilic.com и паскаль станет "русским".

[денис]

Спасибо разобрался! Я просто работаю в "opere" там чуть-чуть не так. Как насчет еще двух задач? Горю!

[Altair]

Так второе сообщение этой темы прочти