Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Как описать в обработчике onkeypres проверку на правильность ввода даты https://www.cyberforum.ru/ delphi-beginners/ thread608473.html
Мну интересует как описать в обработчике onkeypres проверку на правильность ввода даты и запретить ввод всего остального?формат даты дд\мм\гг.Заранее огромное спасибо!
Строка: автоматизировать ввод текста с текстового документа в программу Delphi
Добрый день всем. Столкнулся с проблемой: надо автоматизировать ввод текста с текстового документа в программу, сложность как оказалося в том, что не работает функция Copy, так как стоит запрет на копипаст. Как ещё можна реализовать ввод?? Буду очень благодарен за ответы.
Delphi [Error] Unit1.pas(43): Undeclared identifier: 'te' https://www.cyberforum.ru/ delphi-beginners/ thread608445.html
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)
Delphi составить функцию для определения макс элемента матрицы https://www.cyberforum.ru/ delphi-beginners/ thread608399.html
Составить функцию в delphi 7 для определения максимального элемента матрицы NхN. Используя эту функцию, определить значение максимального элемента заданной матрицы и, если оно больше 104, извлечь корень третьей степени из значения каждого элемента первой строки матрицы и вывести полученную матрицу на экран. В противном случае отпечатать сообщение "Значение не предельно". помогите...
Программа расчета поля температур на языке DELPHI Delphi
Привет всем, у меня проблема не могу написать программу т.к. плохо разбираюсь в языке DELPHI, а точнее у меня большие проблемы с ним, форумчане кому не сложно помогите набрать программу, очень прошу.Спасибо) Код: unit rasp_dann; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)
Delphi игра Пятнашки https://www.cyberforum.ru/ delphi-beginners/ thread608379.html
Здравствуйте!Подскажите пожалуйста как сделать игру 'Пятнашки' с помощью stringgrid.Заранее спасибо)
Delphi кодирование/декодирование https://www.cyberforum.ru/ delphi-beginners/ thread608349.html
надо написать программу в Делфи.... вот работа программы.... Ввод текста(последовательность символов). программа определяет относительные частоты появления знаков с разделителем. Вывод (1) таблица кодов. (2) закодированная фраза. (3) средняя информация на знак; избыточность
Delphi Несколько визуальных задач
Здравствуйте, очередной раз обращаюсь с целью найти помощь в решении визуальных заданий в дельфи. И сегодня такие задания: Прямоугольные таблицы: 1.Получить целочисленный массив А, для которого aij=i+2j. 2.Дан действительный массив размерностью n*m, в которой не все элементы равны нулю. Получить новый массив путем деления всех элементов данного массива на ее больший по модулю элемент....
Delphi Массив: Упорядочить ее строки по возрастанию их первых элементов. где ошибка? https://www.cyberforum.ru/ delphi-beginners/ thread608339.html
Дана матрица размером NxM. Упорядочить ее строки по возрастанию их первых элементов. Компонент stringgrid unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel;
Delphi Подскажите, пожалуйста, в чем ошибка https://www.cyberforum.ru/ delphi-beginners/ thread608279.html
Здравствуйте уважаемое сообщество. Всегда считал, что со своими ошибками и проблемами нужно, в первую очередь разбираться самому, но уж если никак... Собственно вопрос. Написал свой быдлокодик (Извиняюсь за имена переменных и матриц знаю, что уродливо и непонятно) но на 227й строке выскакивает вот такая, не очень веселая, ошибка... (Не знаю куда здесь принято вывешивать картинки и в каком...
подскажите, где ошибка Delphi
я очень плохо понимаю массивы, помогите решить пожалуйста. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel;
Delphi найти локальный экстремум целевой функции https://www.cyberforum.ru/ delphi-beginners/ thread608247.html
Методом наискорейшего спуска (метод градиента) найти локальный экстремум целевой функции с учётом ограничений. Точку начального приближения решения задачи выбрать самостоятельно. Целевая функция f(x1,x2,x3)=(x1-2)^2+(x2-4)^2+4(x3+5)^2 Ограничения: Xэ(0;2); Yэ(2;4); Zэ(0;-10)
103 / 103 / 74
Регистрация: 27.05.2009
Сообщений: 201
18.06.2012, 16:39 0

Строка: Все слова с нечетным количеством символов удалить... - Delphi - Ответ 3180678

18.06.2012, 16:39. Показов 1536. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

на форме edit1,edit2,button1
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
procedure TForm1.Button1Click(Sender: TObject);
var
s,st:ansistring;
i:integer;
begin
s:=edit1.Text+' ';//читаем строку из edit
st:=''; i:=1;
//   основной цикл
while i<=length(s) do begin
              // если симвор не пробел, то собираем в слово
              if not(s[i] in [' ']) then  st:=st+s[i] else
                     begin
                    if not(s[i-1] in [' ']) then begin // =====
                    // если слово с нечетным количеством символов
                     if length(st) mod 2<>0 then
                      // удаляем
                     begin
                     delete(s,pos(st,s),length(st));
                     // вернулись назад
                     i:=i-length(st);
                     end else
                     // если с нечетным количеством символов
                     // добавляем
                     begin
                       insert('А',s,i-length(st));
                       insert('А',s,i+1);
                      i:=i+2;
                     end;
                      st:='';
                     end;
                     end; //======
 
                       inc(i);
                      end;
 // вывод результата
 edit2.Text:=s;
end;


Вернуться к обсуждению:
Строка: Все слова с нечетным количеством символов удалить... Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2012, 16:39
Готовые ответы и решения:

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

Строка: вывести на экран слова с четным количеством символов.
помогите где ошибка Дана строка, состоящая из слов, отделенных друг от друга одним или...

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

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

1
18.06.2012, 16:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2012, 16:39
Помогаю со студенческими работами здесь

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

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

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

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

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