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

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

Войти

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

Другие темы раздела
Delphi где ошибка??( procedure TForm1.ListBox1DblClick(Sender: TObject); var mask,mask1,s:string; begin mask1:='D:\ñêà÷êà\'; mask:=listbox1.Items; s:=mask1+mask; edit1.Text:=s; ShellExecute(Handle, 'open', 'C:\Program Files\The KMPlayer\KMPlayer.exe', s, < BR > nil, https://www.cyberforum.ru/ delphi-beginners/ thread42272.html	Delphi Обращение к ячейкам в БД Здравствуйте, Пипл!! У меня такой вопрос: Как можно обращаться к ячейкам в БД (использовать данные для вычисления и др. функций)?? Напримен в StringGrid - StringGrid1.Cells. База создана через Database Desktop, тип базы - Paradox 7. Используется Delphi7. Осуществляется база в программе посредством BDE (Table), DataAccess(DataSourse), DataControls (DBGrid)...
Delphi Как работать с текстовым файлом? Подскажите пожалуйста, как записать в имеющийся текстовый файл text.txt фрагмент из нескольких строк и как можно было бы его обозначить с тем, чтобы потом можно было бы его найти и вывести скажем в Label или Memo? Заранее спасибо! :) https://www.cyberforum.ru/ delphi-beginners/ thread42216.html	Delphi Нахождение подключенного оборудования Подскажите пожалуйста, каким способом в Delphi можно определить подключенные устройства и оборудование к компьютеру. Вообще задача ставится шире- просканировать сеть с правами администратора и определить какое оборудование стоит на компьютерах (сетевые карты, например). Заранее благодарен https://www.cyberforum.ru/ delphi-beginners/ thread42214.html
Как рисовать в Bitmap. Delphi Класс Bitmap описывает рисунок, хранящийся в оперативной памяти. Подскажите, пожалуйста, как там рисовать, например, функцию или киньте ссылку, где это доходчиво описано? Заранее спасибо.	Delphi Как скопировать содержимое файла в буфер обмена? как скопировать содержимое файла в буфер обмена ?? https://www.cyberforum.ru/ delphi-beginners/ thread42180.html
Delphi написать прогу... https://www.cyberforum.ru/ delphi-beginners/ thread42135.html Задали написать программу движения машины:rtfm:. Вот примерно как это должно выглядеть (в архиве). В среду уже сдавать, а я нифига в этом не шарю(((:-\|Помогите кто может:'(	Делфи(Консоль). Произведение матриц Delphi Найти матрицу C(n,m) как произведение суммы заданных матриц A(n,m), B(n,m), и матрицы Z(n,m). Помогите, вроде надо задать одно значение по строке, другое по столбцу.
Delphi Преобразовать матрицу, чтобы все элементы, расположенные ниже главной диагонали, были уменьшены вдвое https://www.cyberforum.ru/ delphi-beginners/ thread42115.html Преобразовать матрицу A(n,m) так, чтобы все элементы, расположенные ниже главной диагонали, были уменьшены вдвое, а элементы расположенные выше главной диагонали, - увеличены вдвое. const n=6; var a:arrayof integer; i,j:integer; begin Writeln('Ishodnaia matrica:'); for i:= 1 to n do begin For j:=1 to n do	Delphi Функция вставки цветного текста в RichEdit https://www.cyberforum.ru/ delphi-beginners/ thread42093.html Фнкция вставки цветного текста в RichEdit; function AddColorText(Text: String; Color: TColor): String; begin RichEdit1.SelAttributes.Color := Color; RichEdit1.SelText := Text; RichEdit1.SelAttributes.Color := clBlack; end; Пример:
Создание и чтения файла Delphi Помогите с задачей я в DELPHI не очень, пожалуйста. Написать программу создания/чтения файла, содержащего сведения по теме “Склад промтоваров”. Каждая запись файла должна содержать 4-5 полей (названия придумать самостоятельно). Файл должен содержать не менее 8-10 записей.	Delphi Табулирование функции ”Циклоида” Помогите с задачей я в DELPHI не очень, пожалуйста. Составить программу табулирования функции ”Циклоида” заданной параметрически: x = a. t – b . sin ( t), y = (a - b) . cos ( t), где: a>0, b>0, t Î на интервале изменения параметра t0<=t<=tk с заданным шагом h. Все необходимые значения (t0, tk, h, A, B) задаются в диалоге с компьютером по желанию пользователя. На экран... https://www.cyberforum.ru/ delphi-beginners/ thread42088.html

Timecool

0 / 0 / 0

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

Сообщений: 3

29.06.2009, 01:39 [ТС]

Дан текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв. - Delphi - Ответ 204629

29.06.2009, 01:39. Показов 5167. Ответов 4

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

Ответ

Сообщение от VampireKB

Если обнаружин пробел " ",и нужная нам буква попадалась,то сравниваем кол-во найденных букв с кол-вом букв в 3-ей переменной.И ,если больше, проставляем туда.

Код бы а то у самого не выходит чет

Добавлено через 14 минут 50 секунд

Delphi

Var s1,s2,s3,s4:string;
x,y,i:integer;
begin
s1:=Memo1.Lines.Text;
x:=0;
y:=0;
For i:=1 to length(s1) do
  begin
    If s1[i]=' ' then
                    begin s2:=copy(s1,1,i);
                          delete(s1,1,i);
                          If x>y then begin s3:=s2;
                                            y:=x;
                                      end;
                    end
                          else If s1[i]=s4 then x:=x+1;
 
   end;
 
Edit2.Text:=s3;
end;

Вернуться к обсуждению:
Дан текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв. Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

29.06.2009, 01:39

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

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

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

Найти слово, содержащее наибольшее количество указанных букв
program lab81; var c:char; s:string; f:text; begin writeln('--- Ваш текст ---'); ...

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

	29.06.2009, 01:39

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

29.06.2009, 01:39

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

Дан файл, содержащий текст на русском языке и некоторая буква
Дан файл, содержащий текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее...

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

Дана строка и буква. Найти слово, содержащее наибольшее количество этих букв паскаль
Как продолжить ? Program rar; const n=6; var s:string; p, n:integer; begin write('Введите...

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

Наверх