Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Delphi XE2 курсор вне строки Сабж. После висуал студио, php designer'а ужасно неудобно и непривычно, что курсор вылезает за пределы. Что поставить в настройках чтобы он всегда автоматически пристыковывался к концу строки? https://www.cyberforum.ru/ delphi-beginners/ thread440034.html Подправить показ Hint для названий колонок в DbGrid Delphi
Показываю таблицу, в ней есть поля, титулы которых показаны одним символом, то есть довольно укие в целях экономии места (например, для чекбоксов). Для удобства юзера делаю hint с показом названия ЭТОЙ колонки при наведении курсора на название колонки. Вроде, работает, но как-то коряво и с задержкой. Помогите, пожалуйста, подправить и улучшить код. private { Private declarations }...
Delphi Избитое Memo и поиск внем https://www.cyberforum.ru/ delphi-beginners/ thread440003.html
Здравствуйте! Такой вот вопрос: Есть 3 поля Memo - В первом поле исходный текст, второе и третье пустые. По нажатию на кнопку в Memo1 выполняется поиск первого символа "(" далее копируется весь текст до первого ")" и вставляется в Memo2, при этом найденный в Memo1 текст со скобками включительно из Memo1 удаляется, в Memo2 проводятся некоторые манипуляции со вставленным текстом после...
Delphi Случайное распределение https://www.cyberforum.ru/ delphi-beginners/ thread439997.html
Если несколько имен(или ников,неважно) возможно ли написать программу которая я бы расспределяла их по парам случайным образом? а то я что-то даж не знаю с чего начать(
Delphi Таймер проверка условия
Создал три кнопки и в таймер задал код btn2.Left:=btn2.Left+random(50) Т.е эти три кнопки двигаются вправую сторону экрана, но не могу их остановить, условие не работает, ниодно, что только не пробовал... begin lbl1.Caption:=IntToStr(btn1.left); d:=0; g:=Random(20); Randomize; btn1.Left:=btn1.Left+g; if lbl1.Caption=IntToStr(100) then
Delphi Построение графика Нужно нарисовать график вот по этой формуле: w=A*cos(ipx/L-(1+(-1)^i)p/4)*cos(jpy/C-(1+(-1)^j)p/4) В делфи я очень начинающий, поэтому предполагаю, что на форме это будет выполнятся через Timage (?) Прошу помощи, как связать формулу и форму. Спасибо. https://www.cyberforum.ru/ delphi-beginners/ thread439948.html
Delphi Сдвиг и масштабирование графика функции Привет!) Написал программу, которая рисует график функции. Как сделать масштабирование( допустим увеличение на 10% или уменьшение) и сдвиг (например на 15 пикселей) по нажатию какой либо клавиши? Если надо будет, то покажу код программы. https://www.cyberforum.ru/ delphi-beginners/ thread439940.html Delphi Реализация стрельбы в Delphi
Кто нибудь может помочь? К примеру у меня есть корабль, который стреляет лазером. Мне нужно чтобы в топе корабля, постоянно создавался новый image с лазером. При этом я не хочу использовать для этого кучу image'ов. Можно как-то постоянно отрисовывать с определённым интервалом лазер возле корабля, который посылается вверх, пока я держу кнопку выстрела?
Delphi Из формы в форму. Как получить текст из переменной одной формы, в Lable другой формы? (Form1 form2) https://www.cyberforum.ru/ delphi-beginners/ thread439928.html Delphi распознать цветность https://www.cyberforum.ru/ delphi-beginners/ thread439925.html
Здравствуйте! подскажите как можно распознать какая картинка ч/б или цветная.
Форматированный вывод Delphi
Как реализовать форматированный вывод (предпоследняя строка)? procedure TForm1.Button1Click(Sender: TObject); var x,a,r:Extended; begin x := StrToFloat(Edit1.Text); Memo1.Lines.Add('x = '+Edit1.Text); a := StrToFloat(Edit2.Text); Memo1.Lines.Add('a ='+Edit2.Text); r:=sqrt((sqr(sin((x*x*x)+(a*a*a)))))/((x*x*x)+a)+(exp(3*ln(sin(a*x)/cos(a*x)))); Memo1.Lines.Add('R = '+ FloatToStr(r));
Delphi Многопоточность. Вызов дополнительной формы https://www.cyberforum.ru/ delphi-beginners/ thread439791.html
имеется многопоточная программа, потоки в ней задаются пользовательски, т.е. количество потоков может быть любое. кроме главной формы, есть еще дополнительная. в процессе выполнения потоками своей работы, вызывается дополнительная форма для ввода туда информации, после чего поток продолжает свою работу, потом другой поток открывает дополнительную форму и вводим снова туда информацию. так вот...
0 / 0 / 0
Регистрация: 16.10.2010
Сообщений: 38
08.02.2012, 12:12  [ТС] 0

В заданном предложении указать слово, в котором доля буквы «а» максимальна. - Delphi - Ответ 2470426

08.02.2012, 12:12. Показов 3034. Ответов 16
Метки (Все метки)

Ответ

Mawrat,спасибо ,буду знать=)))

Вернуться к обсуждению:
В заданном предложении указать слово, в котором доля буквы «а» максимальна. Delphi
0
Заказать работу у эксперта
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.02.2012, 12:12
Готовые ответы и решения:

В заданном предложении указать слово, в котором доля буквы «а» максимальна
Разработать программу решения задачи с использованием процедур и функций над строками и операций...

В заданном предложении указать слово, в котором доля гласных (A,E,I,O,U) максимальна
В заданном предложении указать слово, в котором доля гласных (A,E,I,O,U) максимальна. (Решить ...

В заданном предложении указать слово, в котором есть гласные буквы а, и, о.
В заданном предложении указать слово, в котором есть гласные буквы а, и, о.

Определить слово, в котором доля согласных максимальна
Для каждого слова в предложении указать долю согласных. Определить слово, в котором доля согласных...

16
08.02.2012, 12:12
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.02.2012, 12:12
Помогаю со студенческими работами здесь

В заданном предложении поменять местами первое слово и самое длинное слово
Кто-нибудь, помогите решить задачи на Lazarus или Delphi! 1. В заданном предложении поменять...

В заданном предложении удалите каждое второе слово
type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure...

Найти самое длинное симметричное слово в заданном предложении
Как в программе определяется симметричное слово или нет? sW2 := S + sW2; //Слово в обратном...

Найти самое длинное симметричное слово в заданном предложении
Помогите, ввожу симметричные слова, а мне постоянно выдаёт симметричных слов нет! unit Unit1; ...

0
Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле
InfoMaster 20.01.2025
В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .
Как откатить изменения в исходниках, не внесенные в Git
InfoMaster 20.01.2025
При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .
В чем разница между px, in, mm, pt, dip, dp, sp
InfoMaster 20.01.2025
В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .
Как изменить адрес удалённого репозитория (origin) в Git
InfoMaster 20.01.2025
В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
Как переместить последние коммиты в новую ветку (branch) в Git
InfoMaster 20.01.2025
При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript
InfoMaster 20.01.2025
Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать
InfoMaster 19.01.2025
В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .
Почему планшеты и iPad уже не так популярны, как раньше
InfoMaster 19.01.2025
Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .
Как самому прошить BIOS ноутбука
InfoMaster 19.01.2025
BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .
Какой Linux выбрать для домашнего компьютера
InfoMaster 19.01.2025
Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .
Как объединить два словаря одним выражением в Python
InfoMaster 19.01.2025
В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .
Как без исключения проверить существование файла в Python
InfoMaster 19.01.2025
При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru