IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

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. Пусть дан файл целых чисел. Определите, сколько раз в этом фай \ле повторяется максимальное значение.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Насчет первой -
Цитата
последовательность

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


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

Код
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 -


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


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

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

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


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 3

Репутация: -  0  +


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

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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

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

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

дальше нажмите
Цитата
дополнительно
и выберите
Цитата
кирилица (DOS)
Все иероглифы станут читаемы, а все, что вы сейчас читаете, станет иероглифами smile.gif
Цитата
У меня паскаль на английском.

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9





Группа: Пользователи
Сообщений: 3

Репутация: -  0  +


Спасибо разобрался! Я просто работаю в "opere" там чуть-чуть не так. Как насчет еще двух задач? Горю!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.11.2020 0:05
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name