|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.04.2012, 19:38 | #1 (permalink) |
Новичок
Регистрация: 20.04.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
PascalABC: File1,16,31,46.
Помогите решить задачи. А то я в этих File не очень соображаю File1.Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем S создать нельзя, то вывести False. File16.Дан файл целых чисел. Найти количество содержащихся в нем серий (т. е. наборов последовательно расположенных одинаковых элементов). Например, для файла с элементами 1, 5, 5, 5, 4, 4, 5 результат равен 4. File31.Дан файл целых чисел, содержащий более 50 элементов. Уменьшить его размер до 50 элементов, удалив из файла необходимое количество начальных элементов. File46.Дана строка S0, целое число N (≤ 4) и N файлов одного и того же типа с именами S1, …, SN. Объединить содержимое этих файлов (в указанном порядке) в новом файле с именем S0. |
21.04.2012, 19:38 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме так же имеются темы у которых схожее содержание PascalABC. Дано целое число N (> 0) и символ C PascalABC, графика |
21.04.2012, 21:19 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ах, вот оно как... то есть одинокая цифра в окружении отличных от нее - тоже "серия"... Странно, ну да ладно.
Теперь по задачам. Я бы мог Вам помочь - но, увы, с одной оговоркой: я пишу программы только на нормальном Паскале (Turbo, Free, Borland) а этого "изделия №2" под названием АВС у меня никогда не было и не будет, а потому не знаю, пойдут ли мои программы на нем. Вот, например: Цитата:
Код:
Var f:Text; S:String; Begin {$I-} Writeln('Enter the string:'); Readln(S); Assign(f,S); Rewrite(f); Writeln(IOResult=0); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
22.04.2012, 11:59 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну эта вроде должна пройти на АВС:
Цитата:
Код:
Var f:file of Byte; i,a1,a2,Num_of_Ser:Byte; Begin Randomize; Num_of_Ser:=0; Assign(f,'D:\fff'); Rewrite(f); For i:=1 to 20 do begin a1:=Random(8); write(f,a1); write(a1,' '); end; Close(f); Writeln; Writeln; a1:=9; Reset(f); Repeat read(f,a2); if a2<>a1 then Inc(Num_of_Ser); a1:=a2; Until EoF(f); Close(f); Writeln('Number of series is ',Num_of_Ser); Readln End. |
|
22.04.2012, 16:18 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Что касается File46 - тут, с моей точки зрения, написать универсальное решение невозможно: для каждого типа файла программа будет своя. Так что определитесь с типом (текстовый, числовой) - тогда сделаем. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|