Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Novichchok
0 / 0 / 1
Регистрация: 04.03.2018
Сообщений: 45
1

Дана строка. Вывести на экран те слова строки, где встречается хотя бы одна цифра

01.06.2018, 15:50. Просмотров 844. Ответов 2
Метки нет (Все метки)

оформить в виде процедуры и функции
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2018, 15:50
Ответы с готовыми решениями:

Найти и вывести все слова текста, в которых есть хотя бы одна цифра
Дана последовательность символов. Найти и вывести все слова текста, в которых есть хотя бы одна...

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D
Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D. Заранее...

Дана строка, состоящая из слов. Удалить из строки все слова, в которых хотя бы одна буква встречается дважды
Delphi 6. Нужно с визуализацией, вывод результата в форму.

Дана строка. Вывести на экран слова, внутри которых имеется хотя бы одна буква, с которой слово начинается. [Turbo prolog][есть решение]
predicates ...

Дана строка. Вывести на экран все слова, которые содержат хотя бы одну букву k
Дана строка. Вывести на экран все слова, которые содержат хотя бы одну букву k.

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4689 / 3361 / 3983
Регистрация: 05.06.2014
Сообщений: 16,774
01.06.2018, 21:10 2
Найти и вывести все слова текста, в которых есть хотя бы одна цифра
Цитата Сообщение от Novichchok Посмотреть сообщение
оформить в виде процедуры и функции
Эту часть работы - самостоятельно.
0
Novichchok
0 / 0 / 1
Регистрация: 04.03.2018
Сообщений: 45
04.06.2018, 17:20  [ТС] 3
Лучший ответ Сообщение было отмечено Novichchok как решение

Решение

ZX Spectrum-128, помогите найти ошибку пожалуйста, не выводится. за ранее спасибо)
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
27
28
29
30
31
32
33
34
35
var
  i, n: integer;
  S, t: string;
  bln: boolean;
  procedure vvod (S:string);
begin
  writeln('Введите строку:');
  readln(S);
end;
procedure vivod (t:string);
begin
    if bln then write(t, ' '); //если нашли цыфру, то выводим слово
    inc(i);
    writeln(t, ' ');
end;
function slovo (t:string):string;
begin
  S := S + ' ';
  n := Length(S); //количество символов в строке (длина строки)
  i := 1; //начальный номер символа
  while i < n do begin
    t := '';
    bln := false; //нет цыфры в слове (по умолчанию)
    while (s[i] <> ' ')and(i < n) do begin
      t := t + s[i];
      if s[i] in ['0'..'9'] then bln := true; //нашли цыфру в слове
      inc(i);
      vivod(t); 
    end;
end;
end;
begin
vvod(S);
slovo(t);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2018, 17:20

Дана строка. В ней есть одна открывающая и одна закрывающая скобка. Вывести на экран все символы, расположенные между ними
Дана строка.В ней есть одна открывающаяся скобка и одна закрывающаяся скобка.Вывести на экран все...

Дана строка. Указать те слова в которых есть хотя бы одна буква "k"
Помогите решить задачу: Дана строка. Указать те слова в которых есть хотя бы одна буква &quot;k&quot;. Я...

Дана строка. Указать те слова в которых есть хотя бы одна буква "k"
Помогите решить задачу: Дана строка. Указать те слова в которых есть хотя бы одна буква &quot;k&quot;. Я...


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

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

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