|
|
Другие темы раздела | |
Delphi Директивы {$B+} и {$B-}
https://www.cyberforum.ru/ delphi-beginners/ thread1836585.html Добрый день. function TComTenso_M.CRCMaker(InputData: array of byte; BytesNumber, Offset: byte): byte; var i, j, Data, CrcCode, Polinom: byte; begin CrcCode:=0; Polinom:=$69; for i:= Offset to BytesNumber + Offset-1 do begin |
SevenZIP: как указать папку, которую нужно архивировать? Delphi Всем доброго времени суток, разбираюсь с SevenZIP библиотекой. для архивации я делаю так: arhives:=TStringList.create; arhives.add('C:\WRPS\WRandPS.exe'); arhives.add('C:\WRPS\libeay32.dll'); arhives.add('C:\WRPS\libmysql.dll'); arhives.add('C:\WRPS\ssleay32.dll'); arhives.add('C:\WRPS\zlib1.dll'); Arch := CreateOutArchive(CLSID_CFormat7z); for i:=0 to arhives.count-1 do |
Delphi Разработать программу, которая строит логический вектор по заданному правилу Заданная матрица x (n, n), n <= 15. Разработать программу, которая строит логический вектор L (n) по правилу: L (i) = true, если в i-той строке этой матрицы количество отрицательных элементов больше количества положительных, иначе - L (i) = false. https://www.cyberforum.ru/ delphi-beginners/ thread1836484.html | Delphi Перемещение иконок по форме, изменение отображения курсора Добрый день! Такая проблема... выглядит она так в папке лежит набор (заранее неизвестное количество) разных по расширению (doc. jpeg. ppt) файлов. необходимо отразить содержимое в виде иконок с подписью и по двойному клику открывать. дополнительно нужно реализовать свободное перемещение иконок по части формы (используя pagecontol например или что то еще). и изменить курсор пробовала на... https://www.cyberforum.ru/ delphi-beginners/ thread1836470.html |
Ошибка в программе "Undeclared identifier: 'Init'" Delphi Доброе утро! Написал программу для следующей задачи: создать список сотрудников некоторой организации и найти среди них однофамильцев. Компилятор выдает следующую ошибку: Project1.dpr(141): Undeclared identifier: 'Init'. Подскажите, пожалуйста, в чем дело. Ошибка в 137-ой строке. Вот сама программа: |
Delphi Gridpanel + splitter?
https://www.cyberforum.ru/ delphi-beginners/ thread1836415.html здравствуйте подскажите пожалуйста есть компонента gridpanel на ней у меня куча grid как мне сделать чтобы в самой программе можно было раздвигать окна гридов. пробовал вставлять splitter , тогда он занимает целую ячейку в сетки, и ячейка сетки ничего туда не пускает. пробовал делать узкие полоски в сетки gridpanel чтобы туда splitter вставлять каккаято получается ерунда. заранее... |
Delphi Мерцает image
https://www.cyberforum.ru/ delphi-beginners/ thread1836381.html У меня таймер скриншотит экран рабочего стола и выводит картинки в image. Проблема в том что image не красиво мерцает. Как можно убрать мерцание? |
Значение корня n-ой степени Delphi Вычислить значение корня n-ой степени y=√(n&x) с точностью EPS c использованием итерационной формулы Ньютона: Y0=1 Y_i=1/n*((n-1)*Y_(i-1)+X/Y_(i-1)^(n-1)) (i=1, 2, 3,..) Вычисления производить пока abs(Y_(i)-Y_(i-1)) не станет меньше EPS. Определите количество итераций, за которое достигается эта точность. Выполнить через while и repeat. |
Delphi Вычислить силу тока в электрической цепи из двух параллельно соединенных сопротивлений
https://www.cyberforum.ru/ delphi-beginners/ thread1836279.html 8. Написать программу, которая вычисляет силу тока в электри-ческой цепи. Цепь состоит из двух параллельно соединенных сопротивлений. На форме должен быть 1 Edit для напряжения 2 edit для сопротивления и кнопка доя запуска |
Delphi Удаление числа из диапазона random Доброго времени суток! Есть таймер с рандом, у которого диапазон от 0 до 5. Каждое из этих чисел должно выбраться заданное количество раз. Например выбралось 15 раз число 2, затем оно удаляется из диапазона рандома, т.е. теперь рандом выбирает из: 0,1,3,4,5. И так далее пока каждое число не будет выбрано заданное кол-во раз. Прикладываю проект. https://www.cyberforum.ru/ delphi-beginners/ thread1836274.html |
Delphi "Змейка" в StringGrid Доброго времени суток. Нужна помощь в интересной задаче: На рисунке стрелочками показано как программа должна считывать элементы. А в нижнем углу как числа выводятся на самом деле. Вот мой код: procedure TForm1.Button10Click(Sender: TObject); begin begin Memo1.Clear; With StringGrid1 do |
Delphi Не правильное отоброжение символов и парсинг if not HttpGetText(s, Memo1.Lines) then ShowMessage('Не получилось парсить страничку'); Хочу спарсить https страничку, но выходит такой результат :... https://www.cyberforum.ru/ delphi-beginners/ thread1836194.html |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
28.10.2016, 16:06 | 0 |
Вычислить среднее арифметическое чисел - Delphi - Ответ 969958728.10.2016, 16:06. Показов 1210. Ответов 5
Метки (Все метки)
Ответ
Это если вели отрицательное число то и ответ будет отрицательный, например a=-125 выведет -2
Вернуться к обсуждению: Вычислить среднее арифметическое чисел Delphi
0
|
28.10.2016, 16:06 | |
Готовые ответы и решения:
5
Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел последовательности Вычислить среднее арифметическое последовательности дробных чисел Вычислить среднее арифметическое чисел массива с четными индексами Вычислить среднее арифметическое четырех угловых чисел массива |
28.10.2016, 16:06 | |
28.10.2016, 16:06 | |
Помогаю со студенческими работами здесь
0
Вычислить среднее арифметическое чисел, находящихся в типизированном файле Вычислить сумму и среднее арифметическое вводимой последовательности чисел Ввести с клавиатуры 5 дробных чисел и вычислить их среднее арифметическое Вычислить среднее арифметическое трех введенных пользователем положительных чисел |