|
|
| Другие темы раздела | |||||||||||||||||||||||
| Delphi дана последовательность чисел Дано - одномерный массив. В массив заполняется числа 123234345456567... Вопрос - на каком месте встретится число Х ?? Входные данные - вводится натуральное число Х(1<=X<=100) Выходные данные - Вывести искомую позицию, на которой в первый раз встретилось число X. Члены последовательности нумеруются с единицы. Мне преподаватель сказал что для составления такой последовательности можно... https://www.cyberforum.ru/ delphi-beginners/ thread1066178.html |
Delphi Дана последовательность чисел; найти симметричные и цифр. корень симметричных В условии задачи сказано: "Дана последовательность натуральных чисел, заканчивающаяся нулем. Для всех симметричных чисел последовательности найти цифровой корень. Алгоритм цифрового корня: сложить все цифры введенного числа, затем его суммы и так повторять столько раз, пока число не станет однозначным - это и будет цифровым корнем исходного числа. Например, N=34697, S1=3+4+6+9+7=29, S2=2+9=11,... | ||||||||||||||||||||||
| Delphi Переставить местами слова. Вывести варианты строки на экран до и после обработки Задан текст, состоящий из слов, записанных через пробелы или запятые. Длина текста не больше 255 символов. В тексте могут быть использованы любые символы. Словом считать последовательность символов, не содержащую пробел. Необходимо введенный текст вывести на экран до и после его преобразования. Переставить местами слова 1-2, 3-4, и так далее. Найти сумму цифровых слов. https://www.cyberforum.ru/ delphi-beginners/ thread1066042.html |
Delphi FTP Создание папки Сохранения файлов в папку
https://www.cyberforum.ru/ delphi-beginners/ thread1066041.html Подскажите пожалуйста, Как Прописать код Чтобы папка Создавалась на FTP сервере Моем папку я создаю по edit1.text . Но как Сделать чтобы на Сервере создавалась папка которую я вел название и в эту папку загружались ScreenShot. Данный код : procedure TForm3.Button3Click(Sender: TObject); var dir:string; begin idFTP1.host := 'screen.ucoz.com'; idFTP1.username := 'dscreen'; idFTP1.password :=... | ||||||||||||||||||||||
|
Не создается ini-файл. Исправить код Delphi Здравствуйте помогите пожалуйста проблема с IniFiles Ну не создается и все и на кнопку пробовал и на OnFormCreate вот весь коD: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, StdCtrls; |
Delphi Найти расстояния между точками
https://www.cyberforum.ru/ delphi-beginners/ thread1065997.html помогите в задании "Четыре точки заданы своими координатами x={x1,x2,x3} ,y={y1,y2,y3} z={z1,z2,z3}, и p={p1,p2,p3} . "Найти расстояния между точками 1 и 2, 1 и 3, 1 и 4, 2 и 3, 2 и 4, 3 и 4 и среди этих величин у самого не получается , я смог сделать фанкшн function Rass12(x1,x2,y1,y2,z1,z2:Double) :Double; begin Rass12:=Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)+(z1-z2)*(z1-z2)); end... | ||||||||||||||||||||||
|
Delphi Сокращение дробей p/q
https://www.cyberforum.ru/ delphi-beginners/ thread1065915.html Помоги пожалуйста, уже не могу никак сообразить как мне их сделать, 2 месяц прошло, а без толку, никак не могу сдать эту лабу((. procedure TForm1.Button1Click(Sender: TObject); begin p:=strtoint(Edit1.Text); q:=strtoint(Edit2.Text); p2:=p; q2:=q; while p<>q do |
Указать путь для сохранения ScreenShot в указанную папку Delphi Не могу указать путь для сохранения ScreenShot в указанную папку который я создаю в программе. Вот пусть сохранению ScreenShot он их сохраняет в папку TEST где exe. SendJPG.SaveToFile('TEST\screenshot'+inttostr(i)+'.jpg'); в программе я сделал чтобы создавались папки с именем который ты водишь в edit1.text , как мне указать пусть сохранению ScreenShot в папку которую я создаю по имени ? Код... | ||||||||||||||||||||||
| Delphi Поиск текстовых файлов в директории, их обработка Достаточными знаниями в среде визуального проектирования не обладаю, поэтому прошу высказать критику, рекомендации в отношении поставленной задачи: -алгоритм такой- 1) поиск в заданной директории и ее поддиректориях текстовых файлов; 2) поиск среди найденных текстовых файлов, содержащих искомый фрагмент текста; 3) Из найденных файлов, содержащих искомый фрагмент текста, сформировать список,... https://www.cyberforum.ru/ delphi-beginners/ thread1065792.html | Delphi Что такое клиентская область? Что такое клиентская область, которую можно получить используя GetClientRect? Заранее спасибо! https://www.cyberforum.ru/ delphi-beginners/ thread1065790.html | ||||||||||||||||||||||
|
Реализовать функцию Pos(a, n) Delphi Реализовать функцию Pos(a, n), возвращающую индекс первого вхождения элемента n в массиве целых чисел a, либо -1. Реализовать нужно НЕ используя, естественно, системную функцию Pos. Помогите пожалуйста, сам не успею выполнить задачу (нагрузили другими предметами), СРОЧНО нужно:( P.S. Если не сложно - к каждой строке кода напишите комментарий |
Delphi Одномерные массивы. Delphi
Помогите решить задачу. Найти произведения чётных и нечётных элементов массива X(n), подсчитать кол-во отрицательных значений чётных элементов и кол-во положительных значений нечётных элементов того же массива.
p.s. заранее спасибо
До
Наверх
| ||||||||||||||||||||||
