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

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

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
  Ответить  Открыть новую тему 
> Помогите пожалуйста с задачкой!, Максимальный элемент на четных позициях файла
Arel
сообщение 28.03.2007 0:16
Сообщение #1


Гость
Здравствуйте! Помогите пожалуйста с задачкой!
Создать числовой файл F, найти максимальный элемент, среди компонент на чётных позициях файла.
Все нулевые заменить на максимальный. Преобразованный файл распечатать.
Заранее спасибо!!!!!!!!!!!
 К началу страницы 
+ Ответить 
mamont001
сообщение 28.03.2007 0:20
Сообщение #2


Вожак стада
***

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

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

А что тебе непонятно:

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

Сообщение отредактировано: mamont001 - 28.03.2007 0:21


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 28.03.2007 0:23
Сообщение #3


Гость
Цитата(mamont001 @ 28.03.2007 0:20) *

А что тебе непонятно:

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

Мне не понятно как найти максимум
 К началу страницы 
+ Ответить 
mamont001
сообщение 28.03.2007 0:27
Сообщение #4


Вожак стада
***

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

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

делается таким способом: берётся масив, загоняються парные элементы и ищется максимум.
Как искать максимум в масиве ты можеш узнать через поиск.


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Arel
сообщение 28.03.2007 0:31
Сообщение #5


Гость
В смысле парные элементы? И как из них сделать массив?
 К началу страницы 
+ Ответить 
mamont001
сообщение 28.03.2007 0:31
Сообщение #6


Вожак стада
***

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

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

решения: МАТРИЦЫ, МАССИВЫ. задачи
вот отсюда можна выковырять макс.

Добавлено через 6 мин.
Извиняюсь, перепутал, не парные а чётные ,хоть разницы особой нету.

считывать из файла умеешь?
так вот, береш каждый парный елемент и суешь его в масив.
С масивами работала?

 ! 
 mamont001,
будешь менять содержимое того, что тебе менять не полагается - придется принимать меры...
Все ясно, или уточнить?



Сообщение отредактировано: volvo - 28.03.2007 0:44


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Arel
сообщение 28.03.2007 0:39
Сообщение #7


Гость
Как мне взять из файла каждый второй элемент и засунуть в массив? Всё остальное я знаю как делать.
 К началу страницы 
+ Ответить 
mamont001
сообщение 28.03.2007 0:42
Сообщение #8


Вожак стада
***

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

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

Цитата(Arel @ 28.03.2007 0:39) *

Как мне взять из файла каждый второй элемент и засунуть в массив? Всё остальное я знаю как делать.


{••••••••••••}
i:=0;
while not eof(f) do
begin
 inc(i);
 read (f,chislo1,chislo2); masiv[i]:=chislo2
end;
{••••••••••••}



способ не самый удачный,но зато лёгкий для понимания yes2.gif

Сообщение отредактировано: mamont001 - 28.03.2007 0:44


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Arel
сообщение 28.03.2007 0:45
Сообщение #9


Гость
Объясни пожалуйста:
inc(i);
read (f,chislo1,chislo2); masiv[i]:=chislo2
 К началу страницы 
+ Ответить 
mamont001
сообщение 28.03.2007 0:47
Сообщение #10


Вожак стада
***

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

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

i-переменная для номера масива.
read(f,chislo1,chislo2)- мы считываем 2 числа из файла f. Первое нам не надо,а второе мы записываем в масив


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 28.03.2007 0:48
Сообщение #11


Гость
Цитата
Как мне взять из файла каждый второй элемент и засунуть в массив?
Seek еще никто не отменял. У тебя все-таки по заданию файл типизированный (иначе понятие "четная позиция" лишено смысла)...

i := 2;
while i < filesize(f) do begin
  seek(f, i);
  read(f, massiv[i div 2]);
  inc(i, 2);
end;
 К началу страницы 
+ Ответить 
mamont001
сообщение 28.03.2007 0:52
Сообщение #12


Вожак стада
***

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

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

Я и не собирался отменять seek,просто человек скорее всего с ним лишний раз не работал:
Цитата
Как мне взять из файла каждый второй элемент

Поэтому я пользовался доступными всем процедурами....


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 28.03.2007 0:55
Сообщение #13


Гость
Цитата
Поэтому я пользовался доступными всем процедурами....
Пользоваться надо не доступными, а правильными процедурами. Ты же не жаришь яичницу на камнях, хотя тебе это и доступно... Однако, сковородка справится с этим гораздо лучше, не так ли?
 К началу страницы 
+ Ответить 
Arel
сообщение 28.03.2007 8:31
Сообщение #14


Гость
Через массив у меня не вышло, я сделала через фай. Как теперь мне нулевые компоненты первого файла заменить на максимум второго?
 К началу страницы 
+ Ответить 
« Предыдущая тема · Задачи · Следующая тема »
 

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

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 20.07.2025 2:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"