Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 08.09.2019, 07:44   #1
Eugene_41
Новичок
Джуниор
 
Регистрация: 06.09.2019
Сообщений: 5
Репутация: 10
Восклицание [РЕШЕНО][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.
Миниатюры
Нажмите на изображение для увеличения
Название: sds.PNG
Просмотров: 56
Размер:	47.6 Кб
ID:	97606   Нажмите на изображение для увеличения
Название: qq.PNG
Просмотров: 43
Размер:	92.7 Кб
ID:	97607  

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

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

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

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


Решение найдено
Код:
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 в 18:32.
Eugene_41 вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО][Pascal ABC] Ошибка: переменная цикла for должна описываться в том же блоке что и цикл for sudar Помощь студентам 1 17.05.2019 17:49
[РЕШЕНО] Почему JS выдает undefined?? Shvarcengold Помощь студентам 4 27.12.2017 01:07
[РЕШЕНО]: Turbo Pascal. Ошибка 36: Begin expected. qoTIuHr Паскаль 7 24.07.2015 02: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


10:05.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.