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

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

Войти

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

Другие темы раздела
Delphi Класс Матрица, метод Гаусса с использованием ООП https://www.cyberforum.ru/ delphi-beginners/ thread1387987.html Написал метод Гауса , но преподаватель требует что бы код был написан в ооп , тоесть создать главный класс ( создание и выввода матрицы ) подкласс из главного класса ( массив ) , и сам метод Гауса . У меня совсем не получается работать с этими классами , напишите пожалуйста код как создать класс с матрицами , и какие нибудь простые действия с ними , что бы я мог разобраться. Заранее спасибо. ...	Delphi Вычисление площади произвольного многоугольника по координатам его вершин Вычисление площади произвольного многоугольника по координатам его вершин.Кто смотжет сделать буду премного благодарен
Delphi Убрать лишнее из программы Помогите убрать из этой программы все лишнее, мне нужен на форме только чтобы остался один компонент gauge1, и показывал процент загруженности процессора. Или может кто то предложит свою программу. Всем спасибо за внимание https://www.cyberforum.ru/ delphi-beginners/ thread1387970.html	Delphi Ошибка "is not a valid floating point vaiue" https://www.cyberforum.ru/ delphi-beginners/ thread1387945.html При запуске пишет is not a valid floating point vaiue Задание const n =…; m = …; {m>n} type matr = array of real; Описать и проверить процедуру swap(A,B), меняющую местами максимальные элементы матриц А и В (считать, что таких элементов в каждой матрице не более одного). procedure TForm1.Button1Click(Sender: TObject); const n=3; m=4; type matr=array of real;
Delphi Repeat --> Until Здравствуйте, интересует, возможно, глупый вопрос : можно ли в цикле (repeat) использовать "=" в Until? Если нельзя, как можно заменить цикл, необходимо использовать равенство в решении. Заранее спасибо.	Delphi Задача на массив и сортировку https://www.cyberforum.ru/ delphi-beginners/ thread1387897.html В матрице M x N переставить столбцы таким образом, чтобы получилась последовательность G1≥G2≥…≥Gn, где Gj – произведение всех элементов j – ого столбца.
Delphi Все возможные комбинации символов Помогите пожалуйста с програмой) Суть в том, что пользователь вводит 3 символа(например A, B, C) и программа должна вывести все возможные их комбинации(например AxBxC; AxCxB; и т.д.) Символы могут повторятся. https://www.cyberforum.ru/ delphi-beginners/ thread1387868.html	Не открывается окно формы с компонентами Delphi при очередном открытии созданного проекта (файл .dpr) открывается только окно кода , а форма с компонентами на ней не открывается, причем программа запускается как обычно нажатием run Как вернуть форму с компонентами на экран при открытии проекта
Delphi Ввести массив в форму и проверка правильности формулы https://www.cyberforum.ru/ delphi-beginners/ thread1387847.html Задание.2. Вас просят дать в долг Р грн. и обещают вернуть Р1 грн. через год, Р2 грн. – через два года и т.д., наконец, Рn грн. – через n лет. При какой годовой процентной ставке эта сделка имеет смысл? Написать программу. Не знаю как ввести массив a в форму, может какой то бокс вызвать для ввода массива порядка n?	Delphi Игра аквариум Добрый день. Помогите написать простую игру в образовательных целях. Правила игры: Экран представляет собой аквариум, заполненный водой. В аквариуме живут карпы. Каждый карп умеет перемещаться внутри аквариума, разворачиваться возле стенок аквариума, и сканировать пространство перед собой в некотором секторе. Карпов в аквариуме много, и они плавают стаями. Также в аквариуме живет щука.... https://www.cyberforum.ru/ delphi-beginners/ thread1387828.html
Delphi Работа с MainMenu. Как обратиться к программно созданному элементу меню? Привет всем. задача следующая. на стартовой форме есть MainMenu с уже кое-каким меню(скажем Файл, Настройки, Выход). обработку каждого пункта меню можно начать по событию OnClick. так же к каждому пункту можно обратиться напрямую, примеру N1.Caption:= ...... В процессе работы программы, добавляются новые пункты меню, вот так... type bd = record n1, n2, n3, n4, n5, n6: ShortString;	Delphi Дана строка. Зашифровать ее, изменив код каждого символа на число N Дана строка. Зашифровать ее, изменив код каждого символа на число N. Ввод строки и числа n сделать через компоненты Edit. Заранее спасибо. https://www.cyberforum.ru/ delphi-beginners/ thread1387796.html

gosha 15 RUS

народный герой

6668 / 4606 / 787

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

Сообщений: 14,910

06.03.2015, 23:51

Массивы: сумма, произведение, сумма квадратов, среднее арифметическое всех элементов, сумму шести первых - Delphi - Ответ 7309722

06.03.2015, 23:51. Показов 2466. Ответов 1

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

Ответ

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

а)сумму всех элементов массива;

я не специалист но приблизительно так:

Delphi

var rezultat,n:integer; 
a:array[1..n] of integer; // n - количество элементов массива
begin
for i:=1 to n do
if a[i]=1 then  rezultat:=a[1] 
else
rezultat := rezultat+a[i] // в задании с произведением + меняешь на умножить
 
ShowMessage intTostr(rezultat)
end;

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

Блог

06.03.2015, 23:51

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

Массивы: найти сумму, произведение, среднее арифметическое всех чисел массива
1.Задано число X.Сформировать массив, состоящий из Х элементов по правилу Ai=x/i. Найти сумму,...

Массивы: сумма отрицательных элементов; произведение всех элементов, начиная с нулевого
В одномерном массиве, состоящем из n элементов найти: 1) Сумму отрицательных элементов. ...

Найти сумму, среднее арифметическое и произведение всех элементов массива
1.Имеется вещественный массив, состоящий из 9 элементов. Найти сумму, среднее арифметическое и...

Вычислить сумму элементов с индексами кратными 2, среднее арифметическое всех четных элементов, произведение отрицательных элементов
привет ..ребят помогите пожалуйста Дан двумерный массив Х размером n*m, заполненный случайными...

	06.03.2015, 23:51

BasicMan

Эксперт

19315 / 2622 / 84

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

Сообщений: 10,364

Блог

06.03.2015, 23:51

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

Сумма квадратов отрицательных элементов и их среднее значение
Дано 2 одномерных массива, найти сумму квадратов отрицательных элементов каждого одномерного...

Сумма и среднее арифметическое элементов массива
Массив: W = {−2; 0; 2; 3; 4; 7; −3; 6; 12; 4; 24; 5; 0; 2; 6} Условие: Wk парные и имеют непарные...

Вычислить среднее арифметическое квадратов всех элементов не превосходящих по модулю 3,6
Ребята помогите пожалуйста с программой. Вычислить среднее арифметическое квадратов всех элементов...

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

Блоги программистов
Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(шестибитный асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .	Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .
Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .	Angular vs React vs Vue.js BasicMan 03.01.2025 О, друзья-разработчики и просто любопытные читатели! Сегодня мы отправимся в увлекательное путешествие по миру фронтенд-разработки, и первой остановкой станет Angular – этакий строгий немецкий. . .

Наверх