Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/39: Рейтинг темы: голосов - 39, средняя оценка - 4.56
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
1

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

28.05.2010, 20:37. Показов 7390. Ответов 15
Метки нет (Все метки)

Посмотрите плиз задачу, что я неправильно написал, выдаёт всё время "четное" даже если символов нечетное колличество.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2010, 20:37
Ответы с готовыми решениями:

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

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

Дана строка: Вывести на экран группы с четным количеством символов
Каждая группа отделяется пробелами

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

15
10 / 9 / 1
Регистрация: 26.08.2009
Сообщений: 68
28.05.2010, 20:38 2
Неплохо бы код увидеть)
0
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
28.05.2010, 20:40  [ТС] 3
вот задача
Вложения
Тип файла: rar 111.rar (169.8 Кб, 400 просмотров)
0
10 / 9 / 1
Регистрация: 26.08.2009
Сообщений: 68
28.05.2010, 20:58 4
еще бы узнать внятное задание)
0
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
28.05.2010, 21:09  [ТС] 5
решение всё равно от задания отличается, как задание выполнить я вообще хз, но звучит оно так Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов.
0
148 / 148 / 3
Регистрация: 05.05.2010
Сообщений: 569
28.05.2010, 23:01 6
110001111100111
11|000|11111|00|111
Две группы: 11 и 00
0
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
28.05.2010, 23:15  [ТС] 7
спс кэп.... ты мне лучше скажи как это в делфи написать хД
0
16 / 14 / 0
Регистрация: 03.05.2010
Сообщений: 189
28.05.2010, 23:20 8
11|000|11111|00|111
считываешь до "|" подсчитываешь кол-во элементов и проверяешь на четность(div 2 на сколько я помню)
0
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
28.05.2010, 23:29  [ТС] 9
да и это я понял, для меня это самому написать сложновато, поэтому сюда и скинул мот кто поможет
0
148 / 148 / 3
Регистрация: 05.05.2010
Сообщений: 569
29.05.2010, 10:00 10
"|" - это я для наглядности поставил.
Сейчас напишу код...

Добавлено через 20 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  CPos: word;
  SPos: word;
begin
  SPos := 1;
  with Edit1 do
    for CPos := 1 to Length(Text)-1 do
      if Text[CPos] <> Text[CPos+1]
        then
          begin
            if ((CPos-SPos+1) mod 2) = 0
              then
                ListBox1.Items.Add(Copy(Text, SPos, CPos-SPos+1));
            SPos := CPos+1;
          end;
end;
Возможно и качественнее можно сделать...

Добавлено через 16 минут
Delphi
1
for CPos := 1 to Length(Text)-1 do
заменить на
Delphi
1
for CPos := 1 to Length(Text) do
1
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
29.05.2010, 12:04  [ТС] 11
ничего не получается( у меня был комбобокс,а у тебя тут другие компоненты появились переделываю ошибку вылезают какие-то мне неизвестные, но если оставляю комбо, то вроде запускается, токо напиши плиз ещё если нетрудно,чтоб выводило мне эти группы в мемо1.
0
148 / 148 / 3
Регистрация: 05.05.2010
Сообщений: 569
29.05.2010, 12:09 12
У меня на форме Edit1 - вводим строку исходную. ListBox1 - список четных последовательностей, Button1 - собственно по нажатию всё и происходит.
1
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
29.05.2010, 12:29  [ТС] 13
переделал, всё работает спс, но одна проблема если у меня четное колличество нулей, то их невыводит, только единицы.
0
148 / 148 / 3
Регистрация: 05.05.2010
Сообщений: 569
29.05.2010, 12:31 14
Странно - у меня все выводит...
0
36 / 36 / 3
Регистрация: 26.09.2009
Сообщений: 298
29.05.2010, 12:31  [ТС] 15
сори всё норм, спс за помощ
0
1 / 1 / 0
Регистрация: 13.09.2015
Сообщений: 124
03.11.2015, 23:24 16
necro, Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов
Где ошибка?
Delphi
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//Обработка события активизации формы
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.SetFocus; //передача фокуса в ComboBox1
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
//Обработка события нажатия левой кнопки мыши
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin //если нажата клавиша Enter
ComboBox1.Items.Add(ComboBox1.Text); //строка из окна редактирования заносится в      // список выбора
ComboBox1.Text:=' '; //очистка окна редактирования
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
var
 CPos: word;
  SPos: word;
begin
  SPos := 1;
  with Edit1 do
    for CPos := 1 to Length(Text) do
      if Text[CPos] <> Text[CPos+1]
        then
          begin
            if ((CPos-SPos+1) mod 2) = 0
              then
                ListBox1.Items.Add(Copy(Text, SPos, CPos-SPos+1));
            SPos := CPos+1;
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
var
st:string;
n,i,nst,ind:integer;  a:array [1..3] of char;  b:boolean; s:real;
begin
n:=0;    //n-число слов в строке
ind:=0;
nst:= ComboBox1.ItemIndex; // определение номера выбранной строки
st:= ComboBox1.Items[nst]; //занесение выделенной строки в переменную st
for i:=1 to Length(st) do
begin
n:=length('st');
end;
If (n MOD 2) =0 then
 
memo1.Lines.add('Четное')
else
memo1.Lines.add('Нечетное');
end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2015, 23:24

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

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

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

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


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

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

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