Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Юникод в Хромиум Как программист я полный ноль. Пишу небольшой проект - браузер. Все сайты открываются нормально, но в одном вместо нормальных букв арабские. Находил как исправлять кодировку в Мемо, но как ето сделать в самом браузере?? Нужно как то связать Мемо и Хромиум??Если кто поможет буду очень благодарен. Добавлено через 2 часа 25 минут я даже больший ноль чем я думал, там же в настройках Chromium... https://www.cyberforum.ru/ delphi-beginners/ thread1476816.html Delphi MemoryStream / Image / Загрузка
Есть у меня список с прямыми ссылками на картинки ( www.bla-la.ru/la-la/123.jpg ) Есть Image на форме и кнопка. Ну суть в чем: Нажимаю на кнопку, загружаю картинку из списка и MemoryStream, затем "запихиваю" её в image, вот только проблема в том, что она "не влезает". Ну и по нажатию на другую кнопку я сохраняю картинку. Картинка сохраняется, но вот в image не хочет отображаться. ...
Delphi Открытие файла из ListBox https://www.cyberforum.ru/ delphi-beginners/ thread1476805.html
Вот что я использую, не открывает файл по двойному нажатию, только после добавления в ListBox файла происходит открытие ранее добавленных файлов. Нужна помощь, как открыть файл из ListBox, спасибо. procedure TForm2.ListBox1DblClick(Sender: TObject); begin Shellexecute(Handle,'open', PAnsiChar(ListBox1.Items.Strings) , nil,nil,SW_SHOW); end; 		Delphi Chromium исходный код https://www.cyberforum.ru/ delphi-beginners/ thread1476741.html
D7, компонент Chromium embedded, нужно достать исходный код загруженной страницы, прошу помощи
Delphi Сортировка одномерного массива вставкой
Помогите составить программу, которая осуществляет формирование массива с клавиатуры, сортировку массива вставкой, вывод исходного и отсортированного массива. 		Delphi Задание с массивом Помогите составить Массив по заданным параметрам через консоль:( 1. Составить программу, в которой выполнить: - задание массива с клавиатуры; - задание массива с помощью генератора случайных чисел; - задание массива с помощью формул (каждый элемент равен удвоенному произведению его индекса); - вывод массива после каждого его формирования 2. Ввод и вывод массива оформить процедурами, имена... https://www.cyberforum.ru/ delphi-beginners/ thread1476738.html
Delphi Консольное приложение: вычисление суммы цифр от 6 до 10 Подскажите пожалуйста где я ошиблась и желательно с пояснением))В программе надо было вычислить сумму цифр от 6 до 10. program p92; var x, s: integer; begin s:= 0; x:= 10; repeat x:= 0; s:= s+x; https://www.cyberforum.ru/ delphi-beginners/ thread1476736.html Вывести на экран все чётные двухзначные числа в обратной последовательности Delphi
Составить программу с помощью оператора While, которая выводит на экран все чётные двух-значные числа в обратной последовательности, считает среднее арифмети-ческое этих чисел.
Delphi Как удалить последнюю написанную строку в memo? подскажите как удалить последнюю написанную строку в memo https://www.cyberforum.ru/ delphi-beginners/ thread1476688.html Delphi файлы как правильно написать memo1.Lines.SaveToFile(SaveDialog1.FileName + strTostr(test)+ '.ini'); вот где strTostr(test) как правильно записать если test:string типа текстового https://www.cyberforum.ru/ delphi-beginners/ thread1476676.html
Ошибка "is not a valid floating point value" Delphi
Здравствуйте! Помогите пожалуйста найти ошибку в программе( "is not a valid floating point value" выдает данную ошибку, не могу разобраться что конкретно не нравится компилятору.. Из-за данной ошибки не правильно идет подсчет транспортной задачи..( 		Delphi Сохранить содержимое Memo через SaveDialog в текстовый файл как сохранить содержание memo через savedialog в текстовый файл *.txt https://www.cyberforum.ru/ delphi-beginners/ thread1476658.html
5705 / 2296 / 466
Регистрация: 20.11.2009
Сообщений: 7,720
Записей в блоге: 1
13.06.2015, 11:27 0

В массиве из N чисел определить количество чисел больших их среднего значения - Delphi - Ответ 7755997

13.06.2015, 11:27. Показов 1585. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено er1 как решение

Решение

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

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
function MeanVal(A: Array of Integer): Extended;
var i: Integer;
    k: Integer;
begin
  k := 0;
  for i := 0 to Length(A) - 1 do
    k := k + A[i];
 
  Result := k / Length(A);
end;
 
var i: Integer;
    A: Array[0..10] of Integer;
    k: Integer;
begin
  Randomize;
  k := 0;
  for i := 0 to Length(A) - 1 do
    begin
      A[i] := Random(20);
      Write(A[i], ' ');
      if A[i] > MeanVal(A) then
        k := k + 1;
    end;
 
  Writeln;
 
  Writeln(MeanVal(A));
  Writeln(k);
 
  Readln;
end.
[OFF][/OFF]

Не по теме:

Цитата Сообщение от er1 Посмотреть сообщение
Сессия не могу выполнить задачу
считай не ты ее сдашь :)



Вернуться к обсуждению:
В массиве из N чисел определить количество чисел больших их среднего значения Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 13.06.2015, 11:27
Готовые ответы и решения:

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

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

Определить количество четных и произведение нечетных чисел в массиве
Определить количество четных и произведение нечетных чисел в массиве А(N) еесли можно с кратким...

Определить количество положительных и отрицательных чисел в массиве В1,В2,...,В20
Определить количество положительных и отрицательных чисел в массиве В1,В2..В20, определить...

1
13.06.2015, 11:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 13.06.2015, 11:27
Помогаю со студенческими работами здесь

определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО, вывести в поле компонента Edit.
определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО,...

В последовательности из N чисел определить количество чисел больших их среднего значения
В последовательности из N чисел определить количество чисел больших их среднего значения

Замена чисел, больших среднего арифметического, в массиве
В массиве C все элементы, больше среднего арифметического положительных чисел, заменить на первое...

Найти в массиве чисел количество чисел, больших предыдущих элементов массива
Найти в массиве чисел количество чисел, больших предыдущих элементов массива.

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