Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

АвторСообщение



Не зарегистрирован
Зарегистрирован: 15.03.19
Репутация: 0
ссылка на сообщение  Отправлено: 15.03.19 15:03. Заголовок: Задача А и B из он-лайн задачника к учебнику


Здравствуйте, уважаемый Константин Юрьевич!

Посмотрите, пожалуйста, задачи A и B к теме Символьные строки из параграфа 66. Решение на Free Pascal проходит на 100 баллов. Там я сделал тип строчки s: Ansistring. С детьми я работаю на ABC.Pascal. Один тест не проходит. Насколько я поняла, в этой задаче никто не смог на ABCPascal сдать на 100 баллов.
Может я где-то ошибаюсь.
Во второй задаче такая же проблема.

Условие:
Напишите программу, которая заменяет в символьной строке все буквы a на буквы b (латинские, строчные).

Входные данные
Входная строка содержит символы латинского алфавита, как строчные, так и заглавные.

Выходные данные
Программа должна заменить во всей строке строчные буквы a на буквы b и вывести в первой строке получившуюся символьную строку, а во второй – количество выполненных замен.

Решение:

Var s:string;
k,i:integer;
Begin
Readln(s);
For i:= 1 to Length(s) do
if s='a' then
begin
s:='b';
inc(k);
end;
writeln(s);
writeln(k);
End.

С уважением,
Сохова Зарема

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 2 [только новые]


администратор




Сообщение: 216
Зарегистрирован: 28.11.09
Откуда: Россия, Санкт-Петербург
Репутация: 0
ссылка на сообщение  Отправлено: 15.03.19 15:10. Заголовок: Zarema_s пишет: С де..


Zarema_s пишет:
 цитата:
С детьми я работаю на ABC.Pascal. Один тест не проходит.

Здравствуйте! Дело в том, что у Паскаля ABC не хватает быстродействия на последнем тесте, где очень длинная строка. Если вы не используете какие-то особенности именно Паскаля ABC, при отправке решения просто выбирайте FreePascal.

__________________________________________________________________
«Во всем мне хочется дойти до самой сути...» (Борис Пастернак)
Спасибо: 0 
ПрофильЦитата Ответить



Не зарегистрирован
Зарегистрирован: 01.01.70
ссылка на сообщение  Отправлено: 21.03.19 22:14. Заголовок: Добрый вечер! Спаси..


Добрый вечер!

Спасибо за ответ. Я так и сделала, просто хотела убедиться, вдруг я ошибаюсь, и какое-то еще решение есть.

С уважением,
Сохова Зарема

Спасибо: 0 
Цитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 5
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет