С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
volfing
0 / 0 / 1
Регистрация: 12.11.2013
Сообщений: 10
1

Дана непустая последовательность символов

16.11.2013, 15:45. Просмотров 367. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста написать программу,не могу полностью осмыслить поставленную задачу

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности: цифры и знаки арифметических операций.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2013, 15:45
Ответы с готовыми решениями:

Дана непустая последовательность символов
Дана непустая последовательность символов. Требуется построить и напечатать...

Дана непустая последовательность вещественных чисел
Дана непустая последовательность вещественных чисел, оканчиваю¬щаяся числом...

Дано непустая последовательность символов
Нужно построить и напечатать множество в состав которой входят элементы с...

Дана непустая последовательность целых чисел, оканчивающихся 0. Найти:
Дана непустая последовательность целых чисел, оканчивающихся 0. Найти: 1....

Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти:
Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти: а)...

4
ildwine
Супер-модератор
3060 / 1932 / 1244
Регистрация: 04.03.2013
Сообщений: 4,736
Записей в блоге: 1
16.11.2013, 15:51 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  s : string;
  a : set of char;
  i : byte;
begin
  a := [];
  write('введите последовательность символов: ');
  readln(s);
  for i := 1 to length(s) do
    a := a + [s[i]];
  writeln('множество символов из последовательности: ', a);
  readln
end.
1
Cyborg Drone
Модератор
5480 / 3297 / 2483
Регистрация: 17.08.2012
Сообщений: 10,595
17.11.2013, 03:36 3
ildwine, неверно. Не соответствует заданию. Должно быть
Pascal
1
2
  for i := 1 to length(s) do
    if s[i] in ['0'..'9', '+', '-', '*', '/'] then a := a + [s[i]];
1
ildwine
Супер-модератор
3060 / 1932 / 1244
Регистрация: 04.03.2013
Сообщений: 4,736
Записей в блоге: 1
17.11.2013, 12:39 4
Cyborg Drone, согласен.
0
volfing
0 / 0 / 1
Регистрация: 12.11.2013
Сообщений: 10
17.11.2013, 12:51  [ТС] 5
Большое спасибо
0
17.11.2013, 12:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2013, 12:51

Дана непустая последовательность положительных целых чисел av а2, ..., оканчивающаяся нулем.
30. Дана непустая последовательность положительных целых чисел av а2, ...,...

Дана непустая последовательность неотрицательных целых чисел, оканчивающаяся отрицательным числом
Дана непустая последовательность неотрицательных целых чисел, оканчивающаяся...

Дана последовательность символов. Подсчитать число вхождений символов «+», «-» , «*»
Дана последовательность из п символов. Подсчитать: а) сколько раз среди данных...


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

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

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