Заполнить типизированный файл целыми числами, увеличить вдвое компоненты файла, стоящие после максимального (turbo pascal) - Помощь студентам

Irishka_F · 30.01.2012, 19:14

Помогите пожалуйста
Заполнить типизированный файл целыми числами из интервала [-12000; 12000]. Увеличить вдвое компоненты файла, стоящие после максимального элемента.

whatever · 30.01.2012, 19:29

1)

Цитата:

Сообщение от Irishka_F

Заполнить типизированный файл целыми числами из интервала [-12000; 12000]. Увеличить вдвое компоненты файла, стоящие после максимального элемента.

Сначала заполнить, потом увеличить? Бессмыслица, зачем два раза файл переписывать?
2)

Цитата:

Сообщение от Irishka_F

...стоящие после максимального элемента.

А разве максимальный будет не в конце?

Я так понимаю, числа должны выбираться случайно. Опять же непонятно, сколько их должно быть.

Вообще задача, кажется, не сложная, в плане конечного результата, но предложенная последовательность действий и сама постановка задачи несколько неадекватны. Поэтому не совсем понятно, что нужно сделать то?

Irishka_F · 30.01.2012, 19:38

я не знаю что нужно в этом задании...не понимаю(

Serge_Bliznykov · 30.01.2012, 23:36

я думаю, что авторы задачи предполагают такое решение.

1) программа запускается и предлагает указать N - количество компонент (чисел), которое будет в типизированном файле.
2) в цикле от 1 до N заполняем файл случайными числами.
кстати, это будет так:
for i:=1 to N do
Write(F, Random(12000+12000+1)-12000);
3) закрываем файл. открываем файл и выводим его содержимое на экран.
4) ищем в файле максимальное значение (одновременно ищем номер максимального элемента)
5) позиционируемся на номер максимального элемента через Seek(F...)
6) в цикле до N читаем элемент, умножаем значение на 2 и записываем его в файл (не забывая каждый раз сдвигаться на один элемент назад - чтобы записать туда же, откуда считали)
7) закрываем файл. открываем файл и выводим его содержимое на экран.
8) закрываем файл. выводим сообщение об окончании работы.

всё.

30.01.2012, 19:14	#1
Irishka_F Пользователь Регистрация: 26.01.2012 Сообщений: 10	Заполнить типизированный файл целыми числами, увеличить вдвое компоненты файла, стоящие после максимального (turbo pascal) Помогите пожалуйста Заполнить типизированный файл целыми числами из интервала [-12000; 12000]. Увеличить вдвое компоненты файла, стоящие после максимального элемента.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
заменить элементы одномерного массива, стоящие перед минимальным - на нули, а стоящие после максимального - на единицы (Паскаль)	Женька Good	Помощь студентам	2	01.12.2011 06:22
Дан файл, компоненты которого являются целыми числами. Преобразовать его, исключив повторные вхождения одного и того же	Vikulyaa	Помощь студентам	2	05.10.2011 19:15
QBasic: Массив x(20) заполнить целыми случайными числами (1-100)...	ski11	Помощь студентам	8	14.02.2010 14:08
заполнить файл целыми числами из отрезка [—100; 100] с помощью датчика случайных чисел.	ALEX-7-7-7	Паскаль, Turbo Pascal, PascalABC.NET	4	05.04.2009 14:51

30.01.2012, 19:38	#3
Irishka_F Пользователь Регистрация: 26.01.2012 Сообщений: 10	я не знаю что нужно в этом задании...не понимаю(

30.01.2012, 23:36	#4
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	я думаю, что авторы задачи предполагают такое решение. 1) программа запускается и предлагает указать N - количество компонент (чисел), которое будет в типизированном файле. 2) в цикле от 1 до N заполняем файл случайными числами. кстати, это будет так: for i:=1 to N do Write(F, Random(12000+12000+1)-12000); 3) закрываем файл. открываем файл и выводим его содержимое на экран. 4) ищем в файле максимальное значение (одновременно ищем номер максимального элемента) 5) позиционируемся на номер максимального элемента через Seek(F...) 6) в цикле до N читаем элемент, умножаем значение на 2 и записываем его в файл (не забывая каждый раз сдвигаться на один элемент назад - чтобы записать туда же, откуда считали) 7) закрываем файл. открываем файл и выводим его содержимое на экран. 8) закрываем файл. выводим сообщение об окончании работы. всё.