Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Наталия12345
0 / 0 / 0
Регистрация: 09.12.2017
Сообщений: 1
#1

Напечатать первое вхождение букв в тексте , сохраняя их порядок - Turbo Pascal

09.12.2017, 15:24. Просмотров 72. Ответов 1
Метки нет (Все метки)

Дан текст из строчных латинских букв, цифр и знаков ""+"", за которыми следует точка. Напечатать первое вхождение букв в тексте , сохраняя их порядок
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2017, 15:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Напечатать первое вхождение букв в тексте , сохраняя их порядок (Turbo Pascal):

Напечатать первые вхождения букв в текст, сохраняя их взаимный порядок - Turbo Pascal
дан текст из строчных латинских букв,за которыми,следует точка.напечатать первые вхождения букв в текст (без повторений),сохраняя их...

Напечатать первые вхождения букв в текст, сохраняя их взаимный исходный порядок - Turbo Pascal
Дан текст из строчных латинских букв, за которым следует точка. напечатать первые вхождения букв в текст, сохраняя их взаимный исходный...

Сформировать множество, состоящее из первых вхождений букв в последовательность, сохраняя их исходный порядок - Turbo Pascal
Дана последовательность из строчных латинских букв. Сформировать множество, состоящее из первых вхождений букв в данную...

Напечатать строку, предварительно удалив первое вхождение ‘w’, - Pascal
1)Дана строка латинских символов. Напечатать эту строку, предварительно удалив первое вхождение ‘w’, если такое есть (образовавшуюся «дыру»...

Дан текст. Распечатать: Первые вхождения букв в текст, сохраняя их взаимный начальный порядок - Turbo Pascal
Данный текст из строчных латинских букв, за которым следует точка. Распечатать: - Первые вхождения букв в текст, сохраняя их взаимный...

Поменять порядок букв в тексте на обратный - Pascal
поменять порядок букв в тексте на обратный. помогите пожалуйста

1
Cyborg Drone
Модератор
5491 / 3100 / 1287
Регистрация: 17.08.2012
Сообщений: 10,020
09.12.2017, 21:20 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var s: string;
    i: integer;
 
begin
  writeln('Enter string:');
  readln(s);
  i := pos('.', s);
  if i > 0 then delete(s, i, length(s) - i + 1);
  i := 1;
  while (i <= length(s)) and not (s[i] in ['a'..'z']) do inc(i);
  if i <= length(s)
    then begin
      writeln('First ocurrence of latin letters:');
      while (i <= length(s)) and (s[i] in ['a'..'z']) do
        begin
          write(s[i]);
          inc(i)
        end;
      writeln
    end
    else writeln('Latin letters are not found');
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2017, 21:20
Привет! Вот еще темы с ответами:

Напечатать все слова, отличные от последнего слова, которые состоят из тех же букв, что и первое - Turbo Pascal
п.1. - Напечатать все слова, отличные от последнего слова, которые со-стоят из тех же букв, что и первое слово. п.2. - Напечатать все...

Перенести лишние знаки в начало,сохраняя порядок - Turbo Pascal
Помогите, пожалуйста!!!! Надо обязательно использовать функцию или процедуру. Дано предложение. В нем ошибочно набраны лишние знаки...

Все элементы последовательности, не равные нулю, перенести, сохраняя их порядок - Turbo Pascal
Пусть дана последовательность чисел. Все ее элементы не равные нулю перенесите сохраняя их порядок, а нулевые в конец. 10 чисел ...

Первое вхождение подстроки - Pascal
написать функцию или процедуру нахождения первого вхождения подстроки без использования стандартных функций


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

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

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