Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Напишите полную формулу расчета 10% скидки https://www.cyberforum.ru/ delphi-beginners/ thread1214969.html Мне нужно сделать 10% скидку, как это в Delphi написать? если можно, то напишите полную формулу расчета скидки	Delphi Динамическое изображение мячика, скачущего по поверхности стола, а затем падающего на пол Напишите программу, которая выводит динамическое изображение мячика, скачущего по поверхности стола, а затем падающего на пол
Delphi Несколько предложений, расположенных в строку, разделить при помощи определителя конца строки https://www.cyberforum.ru/ delphi-beginners/ thread1214927.html Всем Здравия! Помогите пожалуйста решить задачку, а то ничего понять не могу с этими строками. Как ни как 1 курс)) Надо несколько предложений, расположенных в строку, разделить при помощи определителя конца строки, а потом выстроить их в порядке возрастания. Все это мы должны сделать в визуалке. Помогите плизз!((	Delphi Отчет в Rave Reports 5.0. Как в DataSet ввести таблицу, если она находится в DataModule? https://www.cyberforum.ru/ delphi-beginners/ thread1214917.html Компонент RvDataSetConnection1 Как в свойство DataSet ввести таблицу, если она находится в DataModule?
Получите сведения о рефератах, написанных в текущем году с количеством страниц не более 20 Delphi Сведения о рефератах: - тема; - фамилия автора; - количество страниц; - дата написания. Получите сведения о рефератах, написанных в текущем году с количеством страниц не более 20, в порядке дат написания.	Delphi Вертикальное заполнение DBCrossTab в FastReport https://www.cyberforum.ru/ delphi-beginners/ thread1214889.html На форме отчета дб кросс отчет с такими параметрами: Не суть как важно само заполнение, сколь направление. Найденные номера позиций идут одна под другой. Возможно ли чтобы они шли слева направо?
Delphi Проверить, открыт ли файл https://www.cyberforum.ru/ delphi-beginners/ thread1214855.html в одном событии открываю файл через Reset, в OnDestroy формы хочу проверить открыт ли файл и если открыт - закрыть, как это сделать?	Delphi Найдите натуральные числа из промежутка Всем привет, не выходит написать эти задачки, может подскажете чего :) 1 Найдите натуральные числа из промежутка (а; b) такие, чтобы сумма цифр искомого числа, а также сумма цифр следующего за ним числа делились бы на k. 2. Дан массив. Все его элементы, не равные нулю, перепишите, сохраняя их порядок, а нулевые элементы поместите в конец массива. Новый массив заводить нельзя.
Delphi Есть 3 поля Edit. Нажимаем кнопку и в label1 и в label2 находится мин и макс число https://www.cyberforum.ru/ delphi-beginners/ thread1214847.html procedure TForm3.Button1Click(Sender: TObject); begin read(a,b,c); if (a > b) and (a > c) then write(a) else if (b > a) and (b > c) then write(b) else write(c)	Delphi Создать программу, которая находит минимальное и максимальное числа в массиве Создать программу, которая находит минимальное и максимальное числа в массиве заполненный случайными цифрами до 100. На одном сайте нашел похожее, но не понял. разъясните. вот пример как http://www.delphiplus.org/praktikum-po-delphi/prakticheskaya-rabota-23-nahodenie-minimalnogo-i-maksimalnogo-chisla-v-massive.html https://www.cyberforum.ru/ delphi-beginners/ thread1214836.html
Рандомно появляющиеся картинки Delphi Всем привет! Возник вопрос. Каким образом можно реализовать рандомное появление картинок ? при запуске формы установлена одна картинка. при нажатии на кнопку картинки начинают хаотично меняться и через 2-3 секунды картинки прекращают меняться всего 52 картинки (игральные карты) p.s. нужно что чтобы было видно как меняются картинки P.s.s я приложил картинку будущей формы, для наглядности,...	Delphi Как в DBGrid не используя БД отобразить строковые значения? Как в DBGrid отобразить значение не используя БД? Весь день бьюсь над этой задачай. Программа считывает данные из реестра, в которых хранятся пути. Задача, эти пути отобразить в DBGrid. Stringgsrid не подойдет, т.к. визуально это будет смотреться не очень красиво. ПС, знаю что DBGrid не может хранить данные, он только отображает содержимое DataSet'a, нужна просто идея как физически не используя... https://www.cyberforum.ru/ delphi-beginners/ thread1214756.html

PAHASTAR

1 / 1 / 0

Регистрация: 12.05.2014

Сообщений: 27

Посчитать для каждой строки количество гласных - Delphi - Ответ 6353681

23.06.2014, 13:00. Показов 1700. Ответов 8

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Посчитать для каждой строки

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if Key=#13
      then begin
              ListBox1.Items.Add(Edit1.Text);
              Edit1.Clear;
            end;  
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
const
    sogl=['É','Ö','Ê','Í','Ã','Ø','Ù','Ç','Õ','Ú','Ô','Â','Ï','Ð','Ë','Ä','Æ','×','Ñ','Ì','Ò','Ü','Á','é','ö','ê','í','ã','ø','ù','ç','õ','ú','ô','â','ï','ð','ë','ä','æ','÷','ñ','ì','ò','ü','á'];
var
  i:word;
  stroka:string;
  kol:integer;
begin
  stroka:=ListBox1.Items.Text;
  kol:=0;
 for i:=1 to length(stroka) do begin
  if stroka[i] in sogl then inc(kol);
                                  end;
  ListBox2.Items.Add('Êîëè÷åñòâî ñîãëàñíûõ â ñòðîêå= '+IntToStr(kol));
 
end;

Вернуться к обсуждению:
Посчитать для каждой строки количество гласных Delphi

Следующий ответ

Лучшие ответы (1)

Сообщение: #6353742

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

23.06.2014, 13:00

Готовые ответы и решения:

В строке посчитать количество гласных и согласных и записать из количество в конце строки
В строке посчитать количество гласных и согласных и записать из количество в конце строки....

Посчитать количество строк файла, для каждой отдельной строки определить количество символов и слов
В текстовом файле посчитать количество строк, а также для каждой отдельной строки определить...

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

Для каждой строки массива A 6×4 посчитать количество положительных элементов
Для каждой строки массива A 6×4 посчитать количество положительных элементов. Результат записать...

	23.06.2014, 13:00

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

23.06.2014, 13:00

Помогаю со студенческими работами здесь

Посчитать количество таких подстрок, для которых среднее количество гласных больше среднего значения для всей строке
Необходимо реализовать следующую программу: строку мысленно разбивают на последовательности по 5...

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

Удалить из каждой нечетной строки слово, содержащее наибольшее количество гласных букв
Удалить из каждой нечетной строки слово, содержащее наибольшее количество гласных букв.

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

Посчитать в строке количество русских гласных букв. Вывести все русские гласные буквы строки в алфавитном порядке
using System; using System.Collections.Generic; using System.Linq; using System.Text; using...

В тексте подсчитать количество гласных «A», «O», «E», «I», «U», «Y» отдельно для каждой буквы
В тексте из 20 символов латинских букв подсчитать количество глас-ных «A», «O», «E», «I», «U», «Y»...

Наверх