С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > 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
имеется многопоточная программа, потоки в ней задаются пользовательски, т.е. количество потоков может быть любое. кроме главной формы, есть еще дополнительная. в процессе выполнения потоками своей работы, вызывается дополнительная форма для ввода туда информации, после чего поток продолжает свою работу, потом другой поток открывает дополнительную форму и вводим снова туда информацию. так вот...
660 / 530 / 137
Регистрация: 07.07.2011
Сообщений: 1,232
Записей в блоге: 6
03.02.2012, 17:16 0

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

03.02.2012, 17:16. Показов 3029. Ответов 16
Метки (Все метки)

Ответ

Сейчас скачаю delphi и попробую помочь.

Добавлено через 35 минут
Вот посмотри, писал в слепую так как нет Delphi, а скачать пока не могу, за работоспособность не отвечаю.
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
38
39
40
41
42
43
44

program name;
 
const
  ind = 100;
Var
  s : string;
  i, j, temp, temp_a, max_a, indmax_a  : integer;
  Word : array[0..ind] of string;
 
begin
  temp := 0;
  i := 0;
  Write('In your text: ');
  Read(s);
 
  for i := 0 to Length(s) do
  begin
    if (s[i] = ' ') then
    begin
      Word[i] := Copy(s,0,i-1);
      s := Copy(s,i-1,Length(s));
      Dec(temp);
    end;
  end;
 
  for i := 0 to temp do
    Begin
      for j := 0 to Length(word[i]) do
        begin
          if (Word[i][j] = 'a') then
            Dec(temp_a);
        end;
 
      if temp_a > max_a then
        Begin
          max_a := temp_a;
          indmax_a := j;
          temp_a := 0;
        end;
    end;
 
  Writeln('Max kol-Bo 6ykB "a" B cJIoBe: ', word[i]);
  Readln;
end.
Добавлено через 1 минуту
Ребят если у кого стоит Delphi попробуйте скомпилить будет работать?
Просто интересно ).

Вернуться к обсуждению:
В заданном предложении указать слово, в котором доля буквы «а» максимальна. Delphi
0
Заказать работу у эксперта
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Блог
 03.02.2012, 17:16
Готовые ответы и решения:

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

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

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

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

16
03.02.2012, 17:16
BasicMan
Эксперт
19315 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
Блог
 03.02.2012, 17:16
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru