1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| денис |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
1. Написать подпрограмму-функцию, решающую следующую задачу: пусть дано нату-ральное n и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное. Найдите наибольшее среди отрицательных чисел этой после-довательности.
2. Написать модуль, содержащий две процедуры: 1) пусть даны целое число n, символы . Определите имеется ли среди элементов данной последовательности пара соседних одинаковых символов; 2) в массиве из n элементов подсчитайте количество четверок идущих подряд членов, из которых все члены различны. 3. Пусть дан файл целых чисел. Определите, сколько раз в этом фай \ле повторяется максимальное значение. |
![]() ![]() |
| Altair |
Сообщение
#2
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата У меня паскаль на английском. Он на русском бывает ? Цитата как мне прочитать иероглифы? Не иероглифы, там! Там просто кодировка ДОС. Или сохраните все это в текстовый файл и откройте в паскале, или если у вас IE, то нажмите Цитата Вид дальше пункт меню Цитата Вид кодировки дальше нажмите Цитата дополнительно и выберите Цитата кирилица (DOS) Все иероглифы станут читаемы, а все, что вы сейчас читаете, станет иероглифами Цитата У меня паскаль на английском. Ааа... я понял, у вас нет кирилического драйвера! Если у вас Windows 98 SE или любая ниже, то пропишите в файл AUTOEXEC.BAT драйвер кирилицы, например, cyrilic.com и паскаль станет "русским". -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
денис Модуль, функция, файл 31.05.2004 0:09
Altair Насчет первой -
Как она выглядит?
(массив\в… 31.05.2004 0:51
Altair 3.
var
f:file of integer;
i,summ:longin… 31.05.2004 1:48
APAL Чуть подправлю... оптимизирую.... если можно.... … 31.05.2004 13:38
Altair
Да, я забыл сказать, что оптимизировать мне было… 31.05.2004 13:40
APAL
Это я уже заметил. :( А жаль - хотел как красивее… 31.05.2004 14:03
денис как мне прочитать иероглифы? У меня паскаль на анг… 31.05.2004 15:19
денис Спасибо разобрался! Я просто работаю в "o… 31.05.2004 20:01
Altair Так второе сообщение этой темы прочти :) 31.05.2004 20:03![]() ![]() |
|
Текстовая версия | 23.11.2025 10:10 |