1. Написать подпрограмму-функцию, решающую следующую задачу: пусть дано нату-ральное n и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное. Найдите наибольшее среди отрицательных чисел этой после-довательности.
2. Написать модуль, содержащий две процедуры: 1) пусть даны целое число n, символы . Определите имеется ли среди элементов данной последовательности пара соседних одинаковых символов; 2) в массиве из n элементов подсчитайте количество четверок идущих подряд членов, из которых все члены различны.
3. Пусть дан файл целых чисел. Определите, сколько раз в этом фай \ле повторяется максимальное значение.
Полная версия: Модуль, функция, файл
Насчет первой -
Как она выглядит?
(массив\вводится\строка\файл\ )
Это и ко второй относится.
Цитата
последовательность
Как она выглядит?
(массив\вводится\строка\файл\ )
Это и ко второй относится.
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.
Код
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.
Чуть подправлю... оптимизирую.... если можно.... 
Код
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.
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, спасибо за нее (за оптимизацию
)И в теге "код" не работают цвета
Цитата(Oleg_Z @ 31.05.04 10:40)
И в теге "код" не работают цвета
Это я уже заметил.
А жаль - хотел как красивее и нагляднее... указать что добавил, а что можно было удалить..
как мне прочитать иероглифы? У меня паскаль на английском.
Цитата
У меня паскаль на английском.
Он на русском бывает ?
Цитата
как мне прочитать иероглифы?
Не иероглифы, там! Там просто кодировка ДОС.
Или сохраните все это в текстовый файл и откройте в паскале, или если у вас IE, то нажмите
Цитата
Вид
дальше пункт меню Цитата
Вид кодировки
дальше нажмите
Цитата
дополнительно
и выберите Цитата
кирилица (DOS)
Все иероглифы станут читаемы, а все, что вы сейчас читаете, станет иероглифами Цитата
У меня паскаль на английском.
Ааа... я понял, у вас нет кирилического драйвера!
Если у вас Windows 98 SE или любая ниже, то пропишите в файл AUTOEXEC.BAT драйвер кирилицы, например, cyrilic.com и паскаль станет "русским".
Спасибо разобрался! Я просто работаю в "opere" там чуть-чуть не так. Как насчет еще двух задач? Горю!
Так второе сообщение этой темы прочти
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.