Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 21.04.2012, 19:38   #1 (permalink)
Евгений1240
Новичок
 
Регистрация: 20.04.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Smile PascalABC: File1,16,31,46.

PascalABC.
Помогите решить задачи. А то я в этих 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.
Евгений1240 вне форума   Ответить с цитированием

Старый 21.04.2012, 19:38
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме так же имеются темы у которых схожее содержание

PascalABC. Дано целое число N (> 0) и символ C
PascalABC, графика

Старый 21.04.2012, 19:57   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Евгений1240 Посмотреть сообщение
File16.Дан файл целых чисел. Найти количество содержащихся в нем серий (т. е. наборов последовательно расположенных одинаковых элементов). Например, для файла с элементами 1, 5, 5, 5, 4, 4, 5 результат равен 4.
Это как? Я, например, вижу 2 серии. Откуда 4?
Vladimir_S вне форума   Ответить с цитированием
Старый 21.04.2012, 20:46   #3 (permalink)
Евгений1240
Новичок
 
Регистрация: 20.04.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Это как? Я, например, вижу 2 серии. Откуда 4?
я сам не могу понять почему 4, хотя должно быть 3.
Евгений1240 вне форума   Ответить с цитированием
Старый 21.04.2012, 20:52   #4 (permalink)
Евгений1240
Новичок
 
Регистрация: 20.04.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Это как? Я, например, вижу 2 серии. Откуда 4?
1,5,5,5,4,4,5
1-это серия
5,5,5-это серия
4,4-это серия
5-это серия
вот и получается 4 серии
Евгений1240 вне форума   Ответить с цитированием
Старый 21.04.2012, 21:19   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Ах, вот оно как... то есть одинокая цифра в окружении отличных от нее - тоже "серия"... Странно, ну да ладно.
Теперь по задачам. Я бы мог Вам помочь - но, увы, с одной оговоркой: я пишу программы только на нормальном Паскале (Turbo, Free, Borland) а этого "изделия №2" под названием АВС у меня никогда не было и не будет, а потому не знаю, пойдут ли мои программы на нем. Вот, например:
Цитата:
Сообщение от Евгений1240 Посмотреть сообщение
File1.Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем S создать нельзя, то вывести False.
На Free (да и Turbo) это может быть решено, скажем, так:
Код:
Var
 f:Text;
 S:String;
Begin
 {$I-}
 Writeln('Enter the string:');
 Readln(S);
 Assign(f,S);
 Rewrite(f);
 Writeln(IOResult=0);
 Readln
End.
А вот понимает ли АВС указания типа {$I-} и есть ли у него функция IOResult, или эти придурки-авторы чего-то взамен своё напихали - не знаю.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 22.04.2012, 11:59   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Ну эта вроде должна пройти на АВС:
Цитата:
Сообщение от Евгений1240 Посмотреть сообщение
File16.Дан файл целых чисел. Найти количество содержащихся в нем серий (т. е. наборов последовательно расположенных одинаковых элементов). Например, для файла с элементами 1, 5, 5, 5, 4, 4, 5 результат равен 4.
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Старый 22.04.2012, 14:12   #7 (permalink)
Евгений1240
Новичок
 
Регистрация: 20.04.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо 1 задача в паскале не идет, а 2 идет, осталось только File46 .
Евгений1240 вне форума   Ответить с цитированием
Старый 22.04.2012, 16:18   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Евгений1240 Посмотреть сообщение
Спасибо 1 задача в паскале не идет, а 2 идет, осталось только File46 .
В Паскале (нормальном!!!) как раз идет, иначе я бы не выложил. А вот как в этом дремучем АВС сделать - не ведаю. Подождите, может кто и ответит из знающих это... ладно, молчу.
Что касается File46 - тут, с моей точки зрения, написать универсальное решение невозможно: для каждого типа файла программа будет своя. Так что определитесь с типом (текстовый, числовой) - тогда сделаем.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 15:56.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.