Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2015, 18:13   #1
Amiak999
Новичок
Джуниор
 
Регистрация: 20.11.2015
Сообщений: 2
По умолчанию написать 2 программы на Delphi по анализу (подсчёту букв) текста в Memo

Препод дал по две темы каждому,но не пояснил как это нужно сделать.Сказал что мы вполне сможем справиться с этим.У меня не получилось,группа у меня состоит в основном из девочек,так что там помощь искать бесполезно.Нужно сделать проект:на форме расположено поле Edit1 и Memo.При нажатии соответствующей кнопки текст с поля добавляется в новую строку Memo.Для каждой строки подсчитать:
1.Количество гласных(Кириллица)
2.Количество букв Латинского алфавита в верхнем реестре
Язык програмирования - Delphi.
Помогите пожалуйста

Последний раз редактировалось Amiak999; 20.11.2015 в 18:26.
Amiak999 вне форума Ответить с цитированием
Старый 20.11.2015, 18:50   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Задание правда очень простое.
что у Вас не получается?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 20.11.2015, 18:53   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
У меня не получилось
Показывай как пытался )
Цитата:
так что там помощь искать бесполезно
Да ладно, затулился бы с ними вместе учить уроки - и веселее и для здравия полезнее.
Цитата:
Количество гласных(Кириллица)
Код:
With Memo.Lines do begin
 for i:=0 to Count-1 do begin
  Tag:=0; 
  for j:=0 to Length(Strings[i])  do  if pos(Strings[i],'уеоаыиюя')<>0 then Tag:=Tag+1;
  ShowMessage(format('У линии %d %d гласных',[i,Tag]));
 end;
end;
Цитата:
Количество букв Латинского алфавита в верхнем реестре
Напишешь:
Код:
if (Strings[i]>='A')and(Strings[i]<='Z') then Tag:=Tag+1;
Вот как-то так...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.12.2015, 19:34   #4
Amiak999
Новичок
Джуниор
 
Регистрация: 20.11.2015
Сообщений: 2
По умолчанию

Спасибо за помощь
Amiak999 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование и удаление текста в Memo - Delphi S_007 Помощь студентам 7 25.06.2015 17:45
РАЗБИЕНИЕ ТЕКСТА НА ДВА ПОЛЯ Memo, Delphi kapiton Помощь студентам 15 06.10.2014 15:20
Задача по подсчёту статистики использования букв. Другая задача - по длинной арифметике Pascal ABC kimberly Паскаль, Turbo Pascal, PascalABC.NET 3 24.12.2012 17:03
Delphi передача текста из memo в memo hauk70 Помощь студентам 27 22.05.2012 18:33
Определите сколько слов заданного текста составлено из букв русского алфавита, а сколько из букв латинского алфавита. Слова, в кот potemos Паскаль, Turbo Pascal, PascalABC.NET 2 18.04.2012 13:14