1 / 1 / 2
Регистрация: 10.01.2014
Сообщений: 26
1

Верно ли, что в первой строке, не считая символов второй строки, есть только точки, запятые, пробелы и цифры?

02.10.2014, 12:47. Показов 950. Ответов 6
Метки нет (Все метки)

Задача на множества:

Вводятся две строки. Верно ли, что в первой из них, не считая символов второй строки, есть только точки, запятые, пробелы и цифры?
Может я не верно поняла задачу, но вот код:
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
Program project1;
var s1, s2:string;
  C,D, k: set of char;
Procedure prov(C, D:string);
  begin
    k:=C*D;
    for i:=1 to n do
        begin
    if k in ['0'..'9']+['.',',',' '] then writeln('Верно')
    else writeln('Не верно');
        end;
 
  end;
 
Begin
  writeln('Введите первую строку: ');
  readln (s1);
  for i:1 to lenght (s1) do C:=C+[s1[i]];
  writeln('Введите вторую строку: ');
  readln (s2);
  for L:1 to lenght (s2) do D:=D+[s2[L]];
  prov(s1,s2);
  readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2014, 12:47
Ответы с готовыми решениями:

Строки: уничтожить в строке запятые перед первой точкой, заменить знаком + все цифры 3я после первой точки
Дано строка длиной n символов, среди которых есть хотя бы одна точка. превратить...

Заменить все пробелы на запятые, а запятые на точки. Посчитать количество запятых во введенной строке
Во введенной строке заменить все пробелы на запятые, а запятые на точки. Посчитать количество...

В списке символов заменить все запятые и точки с запятой на пробелы.
Прошу помочь решить задачки!:(очень нужно (Билет №5) В списке символов заменить все запятые и...

Строка: Удалить все запятые до первой точке и заменить символом ‘+’ все цифры ‘3’, встречающиеся после первой точки...
Дана строка символов, которая содержит хотя бы одну точку. Удалить все запятые, предшествующие...

6
Заблокирован
02.10.2014, 16:41 2
Я не понял ни задание ни программу.
Например строка 6: перемножаются две строковые
переменные и присваиваются множеству ???
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5999 / 3573 / 2507
Регистрация: 22.11.2013
Сообщений: 10,175
Записей в блоге: 1
02.10.2014, 16:52 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s1, s2: set of Char;
  s: String;
  i: Integer;
begin
  Write('Введите строку 1: '); ReadLn(s);
  for i:=1 to Length(s) do Include(s1,s[i]);
  Write('Введите строку 2: '); ReadLn(s);
  for i:=1 to Length(s) do Include(s2,s[i]);
  WriteLn(s1-s2-['.',',',' ','0'..'9']=[]);
end.
2
Заблокирован
02.10.2014, 17:31 4
Bormant
У Вас как раз все понятно.
А вот Ваше мнение о процедуре??
Я полагаю, что это бессмыслица??
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5999 / 3573 / 2507
Регистрация: 22.11.2013
Сообщений: 10,175
Записей в блоге: 1
02.10.2014, 17:48 5
Цитата Сообщение от hoch Посмотреть сообщение
мнение о процедуре?
она синтаксически и семантически неверна.
Если бы стояла цель вынести проверку строк в функцию, могла бы иметь смысл функция, возвращающая множество, но не все реализации паскаля такое позволяют, TP не позволяет точно.

Если в функцию вынести проверку строк, почти вся программа переедет туда, количество строк увеличится, а пользы от этого не будет:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function Test(const s1, s2: String): Boolean;
  procedure StringToSet(const s: String; var c: set of Char);
  var i: Integer;
  begin
    c:=[]; for i:=1 to Length(s) do Include(c,s[i]);
  end;
var
  c1, c2: set of Char;
begin
  StringToSet(s1,c1); StringToSet(s2,c2);
  Test:=c1-c2-['.',',',' ','0'..'9']=[];
end;
var
  s1, s2: String;
begin
  Write('Введите строку 1: '); ReadLn(s1);
  Write('Введите строку 2: '); ReadLn(s2);
  WriteLn(Test(s1,s2));
end.
2
1 / 1 / 2
Регистрация: 10.01.2014
Сообщений: 26
06.10.2014, 05:32  [ТС] 6
Цитата Сообщение от hoch Посмотреть сообщение
Я не понял ни задание ни программу.
Например строка 6: перемножаются две строковые
переменные и присваиваются множеству ???
На 6-ой строке я хотела найти пересечение двух множеств(где хранятся символы из введённой строки), а уже потом искать вхождение заданных символов(точки, запятые, пробелы и цифры) во множество, которое получила.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5999 / 3573 / 2507
Регистрация: 22.11.2013
Сообщений: 10,175
Записей в блоге: 1
06.10.2014, 08:20 7
Oleskon,
в строке 6 C, D: string, как следует из заголовка процедуры. Глобальные переменные-множества в этом месте не видны, поскольку перекрыты одноименными параметрами.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.10.2014, 08:20

Добавить к первой строке 5 символов второй строки
Добавить к первой строке 5 символов второй строки.

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

В последовательности символов удалить все запятые до первой точки
Задачка такая Необходимо в последовательности символов удалить все запятые до первой точки, а...

В первой строке символов оставить только те, которых нет во второй (помогите найти ошибку)
Даны две строки символов. В первой строке оставить только те, которых нет во второй. Dim s As...


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

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

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