Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 17.09.2016
Сообщений: 12
1

Дана строка, состоящая из групп нулей и единиц

09.11.2016, 16:43. Показов 1909. Ответов 5
Метки нет (Все метки)

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найдите и выведите на экран группы с четным количеством символов. Если можно, в консольном варианте. Спасибо
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.11.2016, 16:43
Ответы с готовыми решениями:

Дана строка,состоящая из групп нулей и единиц.Найти количество групп с пятью символами.
Помогите пожалуйста,очень срочно. Дана строка,состоящая из групп нулей и единиц.Каждая группа...

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

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

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти количество групп с пятью сим
Приветик, ребятки) У меня вот такое задание: Дана строка, состоящая из групп нулей и единиц....

5
botsik
262 / 262 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
09.11.2016, 18:31 2
maryonepear, пожалуйста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var    i:integer;
s,stroka:string;
begin
stroka:='  11  00    11   0000  111111   0 0     '; //строка для примера
s:=''; stroka:=stroka+' ';
for i:=1 to length(stroka) do
begin
if stroka[i]=' ' then
begin
if (length(s) mod 2 = 0) and (length(s)<>0) then writeln(s);
s:='';
end else s:=s+stroka[i];
end;
readln;
end.
1
Модератор
7481 / 4895 / 2047
Регистрация: 21.01.2014
Сообщений: 20,822
Записей в блоге: 3
09.11.2016, 19:17 3
Или так...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils, Classes;
const Stroka = '111  11  00    11   0000  111111   0 0   1 0001';
var L : TStringList;
    i : integer;
begin
 Writeln(Stroka);
 Writeln('');
 L := TStringList.Create;
 L.CommaText := Stroka;
 for i := 0 to L.Count - 1 do
  if Length(L.Strings[i]) mod 2 = 0 then Writeln(L.Strings[i]);
 Readln;
end.
1
0 / 0 / 0
Регистрация: 17.09.2016
Сообщений: 12
18.11.2016, 17:27  [ТС] 4
А можете также помочь со считыванием этой строки из текстового файла?
0
Модератор
7481 / 4895 / 2047
Регистрация: 21.01.2014
Сообщений: 20,822
Записей в блоге: 3
18.11.2016, 17:50 5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project2;
{$APPTYPE CONSOLE}
 
uses SysUtils, Classes;
 
var L1, L2 : TStringList;
    i : integer;
begin
 L1 := TStringList.Create;
 L2 := TStringList.Create;
 L1.LoadFromFile('C:\TMP\111.txt');
 L2.CommaText := L1.Text;
 for i := 0 to L2.Count - 1 do
  if Length(L2.Strings[i]) mod 2 = 0 then Writeln(L2.Strings[i]);
 Readln;
end.
0
0 / 0 / 0
Регистрация: 17.09.2016
Сообщений: 12
18.11.2016, 17:56  [ТС] 6
Всё отлично работает, спасибо большое.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2016, 17:56

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной...

Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов
Посмотрите плиз задачу, что я неправильно написал, выдаёт всё время &quot;четное&quot; даже если символов...

Есть строка, состоящая из групп нулей и единиц. Каждая группа отделяется друг от друга одним или несколькими пробелами. Найти и вывести на экран (.)
Ребят, есть строка, состоящая из групп нулей и единиц. Каждая группа отделяется друг от друга одним...

Cтрока, состоящая из групп нулей и единиц
Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru