Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.09.2019, 06:44   #1
Eugene_41
 
Регистрация: 06.09.2019
Сообщений: 5
Восклицание [РЕШЕНО][Pascal] в 2 случаях выдает "Wrong Answer" в чем ошибка?

Решение: https://programmersforum.ru/showpost...39&postcount=3

я тут наговнокодил. и в 2 случаях выдает "Wrong Answer" в чем ошибка?
код не меняйте
Код:
var
  st : string;
  c : char;
  i , q : byte;
begin
   Assign (input , 'input.txt');
   Assign (output , 'output.txt');
   ReSet (input);
   ReWrite (output);
   ReadLn (st);
   Readln (c);
   q := length (st);
     for i:=2 to q-1 do
     if (st[i-1] = 'a') and (st[i] = 'b') and (st[i+1] = 'c') and (c = 'a') then
      begin
       Insert(c, st , i+1);
       write(st);
       exit
      end;
      
   for i:=2 to q-1 do
     if (st[i-1] = 'a') and (st[i] = 'b') and (st[i+1] = 'c') then
      begin
       Insert(c, st , i);
       write(st);
       exit
      end;
     
      
   for i:=2 to q do
     if (st[i-1] = 'b') and (st[i] = 'c') then
       begin
       Insert(c, st , 2);
       write(st);
       exit
       end
      else
        begin
        Insert(c, st , 1);
        write(st);
        exit
        end;
      
end.
Изображения
Тип файла: png sds.PNG (47.6 Кб, 102 просмотров)
Тип файла: png qq.PNG (92.7 Кб, 87 просмотров)

Последний раз редактировалось Вадим Мошев; 08.09.2019 в 17:33.
Eugene_41 вне форума Ответить с цитированием
Старый 08.09.2019, 13:37   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Eugene_41 Посмотреть сообщение
я тут наговнокодил. и в 2 случаях выдает "Wrong Answer" в чем ошибка?
Скорее всего какие-то особые исходные данные, на которых ваш код лажает.

[OFFTOP]
а что с вашей прошлой темой (ML в шифре Цезаря. я там написал пост - предложил код программы, а Вы промолчали...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 08.09.2019, 13:48   #3
Eugene_41
 
Регистрация: 06.09.2019
Сообщений: 5
По умолчанию

✔ Этот пост помечен как решение ✔


Решение найдено
Код:
var 
  s : string;
  ch : char;
  n : integer;
begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  ReadLn (s);
  ReadLn (ch);
  n := pos ('abc' , s);
  
  if n > 0 then
    if ch = 'a' then
     Insert(ch, s , n+2)
    else
     Insert(ch, s , n+1); 
   
   
   if n = 0 then
    if ch = 'a' then
     s := s + ch
    else
     s := ch + s;
    
   write (s);
end.

Последний раз редактировалось Вадим Мошев; 08.09.2019 в 17:32.
Eugene_41 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО][Pascal ABC] Ошибка: переменная цикла for должна описываться в том же блоке что и цикл for sudar Помощь студентам 1 17.05.2019 16:49
[РЕШЕНО] Почему JS выдает undefined?? Shvarcengold Помощь студентам 4 27.12.2017 00:07
[РЕШЕНО]: Turbo Pascal. Ошибка 36: Begin expected. qoTIuHr Паскаль, Turbo Pascal, PascalABC.NET 7 24.07.2015 01:10
Java acm.timus 1001 Wrong Answer на первом тесте Izobara Помощь студентам 0 02.10.2013 12:04
C++ Wrong answer - не выводит в "output" Ghost3 Помощь студентам 5 08.12.2012 20:08