Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Ytar
0 / 0 / 1
Регистрация: 07.10.2017
Сообщений: 1
#1

Нужно модифицировать программу - PascalABC.NET

21.03.2018, 23:34. Просмотров 104. Ответов 1

Не могу разобраться... Как тут задать условие, чтобы проверялась первая или последняя буква в слове?

Модифицируйте программу так, чтобы печатались только:
а) слова, начинающиеся на букву «л»;
http://www.cyberforum.ru/pascalabc-net/thread1491823.html
б) слова, заканчивающиеся на букву «ь»;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  stroka, slovo : string;
  i             : integer;
begin
  var b:=['a'..'z','A'..'Z','а'..'я','А'..'Я'];
  WriteLn('Введите строку из русских слов с любыми разделителями ');
  ReadLn(stroka);
  stroka:=trim(stroka);
  stroka:=stroka + '.';  // В конец строки поставим точку для того,
                           // чтоб гарантировать обязательное завершение программы
  i:= 1;                 // рассматривать строку будем с первой буквы
  while Length(stroka) <> 0 do     
     begin
       if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then 
         {если i-ый символ из строки stroka содержится в строке ' ,.?!-:;', то}
          begin  
           slovo := copy(stroka,1,i-1);         // копируем слово
           writeln(slovo);                      //печатаем его
           delete(stroka,1,i-1);                // Удаляем его из текста
           while (length(stroka)>0)and (not(stroka[1] in b)) do 
                   delete(stroka,1,1);          // удаляем все разделители до следующего слова
           i := 1;                              // снова рассматриваем слово с первого символа
         end
       else  i := i+1;                        // определяем следующий символ
     end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2018, 23:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужно модифицировать программу (PascalABC.NET):

Модифицировать программу используя оператор цикла REPEAT . UNTIL
Помогите пожалуйста модифицировать программу через оператор цикла REPEAT ... ...

Седловая точка - модифицировать код
Что нужно изменить в программе чтоб 2 ответа не выводилось: Сформированный...

Модифицировать число по заданному условию
Разветвляющиеся вычислительные процессы Ввести целые числа X и Y и...

Нужно составить программу
Пожалуйста, помогите сделать контрольную. Очень срочно. Тема работы:...

Нужно написать программу
Добрый день! Нужно написать программу для составления кроссворда.

1
Hitoku
Модератор
1694 / 1293 / 1398
Регистрация: 28.10.2016
Сообщений: 4,231
Завершенные тесты: 4
22.03.2018, 00:46 #2
В PascalABC.Net всё куда проще
Pascal
1
2
3
4
5
function EndsWith(s: string; c: char) := s.ToWords.Where(w -> w.EndsWith(c)).JoinIntoString;
begin
  var s := ReadlnString;
  writelnformat('а){0}{2}б){1}', EndsWith(s, 'л'), EndsWith(s, 'ь'), NewLine);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2018, 00:46
Привет! Вот еще темы с решениями:

Нужно переделать программу
Нужно переделать. Условие задачи : Сделайте, какой можете 1-С массивами ...

Нужно отладить программу
Вот сама программа - &quot;Дана прямоугольная матрица A.В строках с максимальной...

нужно прописать программу!
задачка Pascal, нужно прописать программу! Дано c, d, x. Вычислить функцию...

Нужно составить программу!
Помогите составить программу! Тип данных строка. Составить программу -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru