Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Двойное и одинарное нажатие клавиш мыши. Описать процедуры, выполняемые при двойном нажатии на левую кнопку мышки - выводится сообщение «Совершено двойное нажатие левой клавиши мышки», при одинарном нажатии - выводится сообщение «Осуществлен одинарное нажатие левой клавиши мышки», при нажатии правой клавиши мыши - выводится сообщение «Осуществлен одинарное нажатия правой клавиши мышки ». https://www.cyberforum.ru/ delphi-beginners/ thread1949242.html Delphi Не имею представления с чего начинать
Информация о сотрудниках фирмы включает: Ф.И.О., табельный номер, количество проработанных часов за месяц, почасовой тариф. Рабочее время свыше 144 часов считается сверхурочным и оплачивается в двойном размере. Вывести размер заработной платы каждого сотрудника фирмы за вычетом подоходного налога, который составляет 12% от суммы заработка. в Delphi. Даже представления не имею, с чего начать ,...
Delphi Animate как остановить на текущем кадре Как сделать чтобы анимация останавливалась на текущем кадре и воспроизводилась с текущего. А не с самого начала? procedure TForm1.ButtonlClick(Sender: TObject); begin if Animate1.Active = False // в данный момент анимация не выводится then begin https://www.cyberforum.ru/ delphi-beginners/ thread1949132.html Delphi Введение компьютера в спящий режим, а затем вывод по сигналу будильника https://www.cyberforum.ru/ delphi-beginners/ thread1949097.html
В общем суть такова, у меня есть будильник, один его функционалов это показ сообщения с сигналом по истечению времени. Необходимо добавить еще один функционал, что бы по нажатию "Завести будильник" происходил переход в спящий режим(перезагрузка через определенное время, выключение и включение через определенное время). В общем чтоб происходило любое выключение и включение, вот код: unit Unit1; ...
Математический маятник в делфи Delphi
Помогите создать программу в делфи на математический маятник с его анимацией и параметрами которые можно изменять типо длина масса время
Delphi Что за шифр? И как реализовать? https://www.cyberforum.ru/ delphi-beginners/ thread1948985.html
Исходная строка: Хотите скидку 10% прямо сейчас? \nСкачайте приложение «Красное&Белое», активируйте промокод с картинки и наслаждайтесь покупками в любимом магазине с максимальной скидкой. Зашифрованная:...
Delphi Поиск по Caption и вывод SubItem https://www.cyberforum.ru/ delphi-beginners/ thread1948963.html
Всем привет ! Подскажите как реализовать поиск в ListView что бы находило нужный мне Caption и если он есть в списке тогда выводить его SubItem , SubItem ListView1.ViewStyle := vsReport;
Преобразование DateTime в строку своими силами Delphi
Как известно для преобразования pDateTime используется готовая функция DateTimeToString. У меня задача сделать это своими силами, то есть взять полученное число с плавающей точкой и по заданному формату разложить в нормальную строку вида d.mm.yy hh:mm я думаю наверное это реально :) пока не понимаю как и что вообще преобразовывать
Delphi DBgridEh Добрый день! Подскажите как в DBGridEH при наведении курсора отображались данные в этой ячейке. Заранее благодарен https://www.cyberforum.ru/ delphi-beginners/ thread1948910.html Delphi Операции с одномерным массивом https://www.cyberforum.ru/ delphi-beginners/ thread1948815.html
2. Дан одномерный целочисленный массив А, состоящий из N элементов. * Выполнить сортировку массива А методом улучшенного Пузырька, располагая элементы в порядке возрастания. * Найти индекс заданного элемента, используя метод бинарного поиска. * Найти в массиве самую длинную возрастающую подпоследовательность. * Удалить из массива А все числа, являющиеся числами Армстронга (натуральное...
Delphi Изменение порядка расположения элементов массива
1. В одномерном массиве Х состоящем из N целых чисел (0<N<100;-10000<X<1000) расположить элементы в следующем порядке: * отрицательные элементы в порядке возрастания их модулей * положительные элементы в порядке убывания их модулей * нулевые элементы
Delphi StringGrid Нужно обработать ввод в ячейки https://www.cyberforum.ru/ delphi-beginners/ thread1948791.html
Вообщем Если мы вводим числа в таблицу, мы считаем сумму всей таблицы, и выводим ответ в другую таблицу(в определенную ячейку). Нужно обработать так - Если мы ввели буквы в ячейку, то нужно что бы посчитало без этой ячейки. Код sum:=0; for i:=0 to stringGrid1.ColCount-1 do for j:=0 to stringGrid1.RowCount-1 do sum := sum+StrToInt(stringGrid1.Cells); stringGrid2.Cells:=IntToStr(sum); Я...
Модератор
9261 / 6039 / 2379
Регистрация: 21.01.2014
Сообщений: 25,803
Записей в блоге: 3
03.04.2017, 13:09 0

Списки. Линейные массивы - Delphi - Ответ 10289477

03.04.2017, 13:09. Показов 1027. Ответов 5
Метки (Все метки)

Лучший ответ Сообщение было отмечено Helen2 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var iMin, Count5, i : integer;
    tmp : String;
begin
 Count5 := 0;
 StringGrid2.Rows[0].CommaText := StringGrid1.Rows[0].CommaText;
 iMin := 0;
 for i := 0 to 14 do
  begin
   if (Odd(i + 1)) and (StrToInt(StringGrid1.Cells[i, 0]) = 5) then inc(Count5);
   if StrToInt(StringGrid2.Cells[i, 0]) < StrToInt(StringGrid2.Cells[iMin, 0]) then iMin := i;
  end;
 tmp := StringGrid2.Cells[14, 0];
 StringGrid2.Cells[14, 0] := StringGrid2.Cells[iMin, 0];
 StringGrid2.Cells[iMin, 0] := tmp;
 Label1.Caption := Format('среди элементов, которые стоят на нечетных местах, число 5 встречается %d раз', [Count5]);
end;


Вернуться к обсуждению:
Списки. Линейные массивы Delphi
Миниатюры
Списки. Линейные массивы  
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2017, 13:09
Готовые ответы и решения:

Линейные списки
Вечер добрый! Видимо не далась мне тема про списки. Прошу помощи: Список вводится через...

Линейные списки
Помогите пожалуйста!!! Дан линейный список, содержащий имена,фамилии и отчества. Отсортировать...

Линейные списки
Имеется линейный список с последовательным хранением , элементами которого являются окружности....

Однонаправленные линейные списки
Помогите с одноправленным линейным списком.Происходит ошибка на этапе выполения.

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

Курсач, тема: линейные списки
Текст помощи для некоторой программы организован как линейный список. Каждая компонента текста...

Линейные списки \ Реализация некоторых функции
Прошу помощи : Имеется линейный список с последовательным хранением , элементами которого являются...

Delphi линейные списки и записи,не могу разобраться
Создать запись &quot;Станция&quot; (хранит номер или название). Создать запись &quot;Поезд&quot; (хранит номер поезда,...

Линейные списки(перевести вроде с Си++ на Delphi [console application])
Здравствуйте, переведите, пожалуйста, программу с вроде Си ++ на Delphi; Си еще не проходили(((.

Линейные массивы
1. Написать программу, которая высчитывает, на какую из цифр больше всего заканчивается чисел в...

Линейные списки. Разработать программу, которая содержит сведения об ассортименте игрушек в магазине
Разработать программу, которая содержит сведения об ассортименте игрушек в магазине. Сведения о...

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