Модуль, функция, файл, 3 задачи , пожалуйста помогите решить! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Модуль, функция, файл, 3 задачи , пожалуйста помогите решить! |
денис |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
1. Написать подпрограмму-функцию, решающую следующую задачу: пусть дано нату-ральное n и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное. Найдите наибольшее среди отрицательных чисел этой после-довательности.
2. Написать модуль, содержащий две процедуры: 1) пусть даны целое число n, символы . Определите имеется ли среди элементов данной последовательности пара соседних одинаковых символов; 2) в массиве из n элементов подсчитайте количество четверок идущих подряд членов, из которых все члены различны. 3. Пусть дан файл целых чисел. Определите, сколько раз в этом фай \ле повторяется максимальное значение. |
Altair |
Сообщение
#2
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Насчет первой -
Цитата последовательность Как она выглядит? (массив\вводится\строка\файл\ ) Это и ко второй относится. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Altair |
Сообщение
#3
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
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 |
Сообщение
#4
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Чуть подправлю... оптимизирую.... если можно....
Код 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 - -------------------- |
Altair |
Сообщение
#5
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата Чуть подправлю... оптимизирую.... если можно.... Да, я забыл сказать, что оптимизировать мне было лень. APAL, спасибо за нее (за оптимизацию ) И в теге "код" не работают цвета -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
APAL |
Сообщение
#6
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цитата(Oleg_Z @ 31.05.04 10:40) И в теге "код" не работают цвета Это я уже заметил. А жаль - хотел как красивее и нагляднее... указать что добавил, а что можно было удалить.. -------------------- |
денис |
Сообщение
#7
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
как мне прочитать иероглифы? У меня паскаль на английском.
Сообщение отредактировано: volvo - |
Altair |
Сообщение
#8
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата У меня паскаль на английском. Он на русском бывает ? Цитата как мне прочитать иероглифы? Не иероглифы, там! Там просто кодировка ДОС. Или сохраните все это в текстовый файл и откройте в паскале, или если у вас IE, то нажмите Цитата Вид дальше пункт меню Цитата Вид кодировки дальше нажмите Цитата дополнительно и выберите Цитата кирилица (DOS) Все иероглифы станут читаемы, а все, что вы сейчас читаете, станет иероглифами Цитата У меня паскаль на английском. Ааа... я понял, у вас нет кирилического драйвера! Если у вас Windows 98 SE или любая ниже, то пропишите в файл AUTOEXEC.BAT драйвер кирилицы, например, cyrilic.com и паскаль станет "русским". -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
денис |
Сообщение
#9
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
Спасибо разобрался! Я просто работаю в "opere" там чуть-чуть не так. Как насчет еще двух задач? Горю!
|
Altair |
Сообщение
#10
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Так второе сообщение этой темы прочти
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 27.09.2024 17:56 |