|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.08.2014, 09:55 | #1 (permalink) |
Новичок
Регистрация: 08.08.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Delphi. Сформировать файл, в котором не менее 20 целых чисел
Сформировать файл, в котором не менее 20 целых чисел. Переписать положительные числа в один файл, а отрицательные числа в другой (ноль считать положительным числом). Заранее СПАСИБО! |
08.08.2014, 09:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные топики без полезной информации не бывают Объединить два массива 8-битных целых чисел. Assembler Объединить два массива 8-битных целых чисел со знаком Assembler В типизированный файл F с помощью генератора случайных чисел Дан квадратный массив целых положительных чисел 10 х 10 |
08.08.2014, 10:27 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Получите:
Код:
Var f1,f2,f3:Text; i:Byte; m:Integer; Begin Assign(f1,'file1.txt'); Rewrite(f1); Assign(f2,'file2.txt'); Rewrite(f2); Assign(f3,'file3.txt'); Rewrite(f3); Randomize; for i:=1 to 20 do Write(f1, -20+Random(40),' '); Close(f1); Reset(f1); for i:=1 to 20 do begin Read(f1,m); if m<0 then Write(f3, m,' ') else Write(f2, m,' '); end; Close(f1); Close(f2); Close(f3); End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.08.2014, 10:37 | #9 (permalink) |
Новичок
Регистрация: 08.08.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте. Нужно Сформировать файл, в котором не менее 20 целых чисел. Переписать положительные числа в один файл, а отрицательные числа в другой (ноль считать положительным числом).
Нужно memo1 через который будут вводиться числа и записываться в файл1, а в memo2 и memo3 будут записываться отсортерованные числа и соответственно еще в файл2 и файл3. Заранее благодарен. |
12.08.2014, 10:39 | #10 (permalink) | |
Новичок
Регистрация: 08.08.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|