|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.01.2012, 19:14 | #1 |
Пользователь
Регистрация: 26.01.2012
Сообщений: 10
|
Заполнить типизированный файл целыми числами, увеличить вдвое компоненты файла, стоящие после максимального (turbo pascal)
Помогите пожалуйста
Заполнить типизированный файл целыми числами из интервала [-12000; 12000]. Увеличить вдвое компоненты файла, стоящие после максимального элемента. |
30.01.2012, 19:29 | #2 | ||
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
1)
Цитата:
2) Цитата:
Я так понимаю, числа должны выбираться случайно. Опять же непонятно, сколько их должно быть. Вообще задача, кажется, не сложная, в плане конечного результата, но предложенная последовательность действий и сама постановка задачи несколько неадекватны. Поэтому не совсем понятно, что нужно сделать то?
Все тривиальное просто
|
||
30.01.2012, 19:38 | #3 |
Пользователь
Регистрация: 26.01.2012
Сообщений: 10
|
я не знаю что нужно в этом задании...не понимаю(
|
30.01.2012, 23:36 | #4 |
Старожил
Регистрация: 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) закрываем файл. выводим сообщение об окончании работы. всё. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
заменить элементы одномерного массива, стоящие перед минимальным - на нули, а стоящие после максимального - на единицы (Паскаль) | Женька 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 |