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

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

Войти

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

Другие темы раздела
Работа с указателями Delphi Здравствуйте! Помогите пожалуйста,не могу разобраться с указателями. Как сделать так,что бы при в воде в edit какого-то текста, а с друого edit'а нужного символа, можно было подсчитать,сколько в... может что-то вроде этого var shortStr : shortstring; i:integer; begin shortStr:=edit1.text; i:=Length(shortStr);	Как создать заказной диалог (Да, Нет)? Delphi Все привет. Код, представленный ниже, создает диалог с кнопками Yes и No. Как создать диалог, чтобы можно было задать имя кнопок самостоятельно? procedure TForm1.Button1Click(Sender: TObject); var... Создаешь форму и кидаешь на неё 2 кнопки в чем проблема?
Delphi Замена в массиве https://www.cyberforum.ru/ delphi-beginners/ thread576176.html В массиве целых чисел третьей положительной элемент заменить максимальным. я полагаю, задание звучит так В массиве целых чисел третий положительный элемент заменить максимальным. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...	*Delphi Файл содержит количество столбцов матрицы. Создать файл той же структуры, содержащий произведение АВ** Задача: Даны два файла вещественных чисел с именами NameA и NameB, содержащие элементы прямоугольных матриц А и В (по строкам), причем начальный элемент каждого файла содержит количество столбцов... VetN81, q не может принадлежать типу integer, потому что вычисляется через деление. Замени integer на real. Пути к файлам лучше делать относительные, чтобы работало на любой машине, а не только на... https://www.cyberforum.ru/ delphi-beginners/ thread576219.html
Delphi Замена иконки в программе. https://www.cyberforum.ru/ delphi-beginners/ thread576262.html Решил поменять иконку в программе. зашел в project/ options и там поменял. Иконка в папке с прогой. Иконка поменялась только на 2 формах из 4. Как сделать так, чтобы на всех поменялась? Заранее... У формы есть сво-во Icon там посмотри, что стоит у тех форм, у которых иконка не поменялась.	Delphi Массив: вычислить элементы матрицы С по формуле сij=(aij+bij)/2 Заданы матрицы А и В размером 4х5. вычислить элементы матрицы С по формуле сij=(aij+bij)/2 , где ij- индексы. матрицы АВ и С вывести на экран. при решении использовать подпрограмму используйте следующую конструкцию: var A,B,C: array of integer; i,j: integer; begin for i:=1 to 4 do for j:=1 to 5 do c := (A+B)/2; end.
Delphi Проблема после установки нового компонента https://www.cyberforum.ru/ delphi-beginners/ thread576270.html Здраствуйте! Помогите решить проблему: установил в Delphi 7 новый компонент zeos для работы с MySQL, и использую его в своей программе. проблема в том,что программа теперь не запускается на других...	Delphi В массиве целых чисел третий положительный элемент заменить максимальным https://www.cyberforum.ru/ delphi-beginners/ thread576189.html В массиве целых чисел третьей положительной элемент заменить максимальным. Помогите зарание спасибо! На втором цыкле выкидавает ошибку.
Delphi Шмуданские значки в строке Заранее прошу прощения у модераторов, если увидят нарушения правил, но честное слово, если разбивать на мелкие вопросы, мне тяжело будет описать правильно проблемму Есть лента новостей (RSS)... Но абракадабра "#$D#$A" мешает дальнейшей работе, так как не понятно что это такое и самое главное не нашёл ни чего о ней. #$D#$A - это два знака, коды которых представлены в шестнадцатеричном виде.... https://www.cyberforum.ru/ delphi-beginners/ thread576182.html	Создайте программу по готовому коду Delphi Здравствуйте. Пробовал сделать программу по готовому коду, но получается не то, что ожидалось, может, что то не так делаю, код не большой 962 строки. Ссылка на пакет компонентов DynamicSkinForm ... spSkinData1: TspSkinData; spDynamicSkinForm1: TspDynamicSkinForm; spSkinPanel1: TspSkinPanel; WebBrowser1: TWebBrowser; spSkinPanel2: TspSkinPanel; Label1: TLabel; btnOglavlenie:...
Delphi Найти среднее арифметическое чисел Помогите найти среднее арифметическое средних чисел каждой тройки. Если даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти большее, найти меньшее, и те числа оставшиеся скласть, потом разделить на количество. Ну это же легко вроде как...	Delphi Асимметричное шифрование и CryptoApi(wcrypt2) Может конечно я что-то не так делаю. Проблема такая, создаю контейнер, генерирую ключ делаю его экспорт потом импортируем и при импорте ключом ничего нельзя расшифровать. Создаю контейнер вот так...

zuxa-zuxa

Мишка Косолапый :)

285 / 255 / 86

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

Сообщений: 1,511

16.05.2012, 15:40

В массиве целых чисел найти сумму третьего и шестого положительных элементов - Delphi - Ответ 3039574

16.05.2012, 15:40. Показов 1249. Ответов 1

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

Сообщение было отмечено Duda-1 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
var
u,i,h:integer;
mass:array[1..10] of integer;
begin
h:=mass[3]+mass[6];  //cумма 3 и 6 элемента массива
for i:=1 to 9 do
  begin
    if mass[i]<mass[i+1] then u:=mass[i];  // найдем меньший 
  end;
mass[2]:=u; // массив 2 будет самый маленький
end;

Вернуться к обсуждению:
В массиве целых чисел найти сумму третьего и шестого положительных элементов Delphi

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

16.05.2012, 15:40

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

Найти сумму третьего и шестого положительных элементов массива
3. Найти сумму третьего и шестого положительных элементов.

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

В двумерном массиве, сложится из n целых чисел, найти сумму положительных элементов в каждой строке
В двумерном массиве, сложится из n целых чисел, найти сумму положительных элементов в каждой строке

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

16.05.2012, 15:40

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

В массиве целых чисел вычислить сумму второго положительного и третьего отрицательного элементов
В массиве целых чисел вычислить сумму второго положительного и третьего отрицательного элементов

В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов
2.В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов. Элементы массива вводить с...

Сумма третьего и шестого положительных элементов одномерного массива.
Найти сумму третьего и шестого положительных элементов одномерного массива.

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

Вычислить произведение первого, третьего и шестого положительных элементов массива
Срочно нужно решить задачу через стринг Рид Вычислить произведение первого, третьего и шестого положительных элементов массива

Новые блоги и статьи Все статьи Все блоги /
Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .	Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .
Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .	Async/await в C#: Асинхронное программирование в действии UnmanagedCoder 19.03.2025 Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .	Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .

Наверх