Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Модуль, функция, файл

Автор: денис 31.05.2004 0:09

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

Автор: Altair 31.05.2004 0:51

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

Цитата

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

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

Автор: Altair 31.05.2004 1:48

Код

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 31.05.2004 13:38

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

Код

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.

Автор: Altair 31.05.2004 13:40

Цитата

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

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

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

Автор: APAL 31.05.2004 14:03

Цитата(Oleg_Z @ 31.05.04 10:40)

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

Это я уже заметил.

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

Автор: денис 31.05.2004 15:19

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

Автор: Altair 31.05.2004 19:33

Цитата

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

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

Цитата

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

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

Цитата

Вид

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

Цитата

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

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

Цитата

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

и выберите

Цитата

кирилица (DOS)

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

Цитата

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

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

Автор: денис 31.05.2004 20:01

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

Автор: Altair 31.05.2004 20:03

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