Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Задача: В библиотеке последний четверг каждого месяца - санитарный день В библиотеке последний четверг каждого месяца - санитарный день. Дано число, обозначающее номер года. Определить для каждого месяца этого года все числа месяцев, на которые приходится санитарный день. Подскажите как мне обособить високосный год? Например, для 2024г даёт не совсем правильный ответ. Вот мои наработки. program Project1; {$APPTYPE CONSOLE} {$R *.res} https://www.cyberforum.ru/ delphi-beginners/ thread2170922.html Ошибка: There is no overloaded version of 'Synchronize' that can be called with these arguments Delphi
получаю Unit4.pas(71): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments на эту строку Synchronize(UpdateList(jObject.GetValue('name').Value)); полный код: unit Unit4;
Delphi Проиграть звук из ресурса Вообще мне нужно проиграть звук из ресурса exe. Пытался проигрывать так: sndPlaySound('Sound', SND_FILENAME or SND_SYNC) где Sound название (которое писали в текстовике, при добавлении ресурса. Но ничего не проигрывает, даже если указать полный путь. Пытался ещё так: PlaySound('Sound', SND_FILENAME or SND_SYNC) Вообщем решил привергнурь к такой функции: procedure... https://www.cyberforum.ru/ delphi-beginners/ thread2170854.html Delphi Некое подобие маски в Edit https://www.cyberforum.ru/ delphi-beginners/ thread2170837.html
в Edit такой текст 0.00 как сделать так чтобы когда начинаю вводить в него цифры например 12345 то они писались вместо первого нуля вот так 12345.00 а когда нажму точку то цифры можно было вводить уже после точки например вот так (12345 точка 67) и получалось вот так 12345.67 можно как то это реализовать?
Итеративная и рекуррентная схемы Delphi
Подсчитать сумму бесконечного ряда с использованием итеративной и рекуррентной схем. Нужно, чтобы значения Iter и Rec полностью совпадали, у меня почему-то не сходятся, помогите. program Laba4; {$APPTYPE CONSOLE} uses SysUtils, Math;
Delphi Связать ComboBox и "ассоциативный массив" есть "ассоциативный массив" (стринглист) вида names.values := 'Ivan' ; 3 - id иван имя как связать этот "массив" с комбобоксом ? https://www.cyberforum.ru/ delphi-beginners/ thread2170770.html
Delphi Программа для просмотра графических файлов https://www.cyberforum.ru/ delphi-beginners/ thread2170745.html
Необходимо реализовать что-то на подобие Open Dialoga . Слева дерево каталогов сделал, но сообразить, как отображать миниатюры картинок содержащихся в выделенном каталоге не получается, подскажите плз.
Загрузка и парсинг удаленного XML Delphi Android Delphi
Всем привет! Решил немного поиграться, установил Delphi Xe 10 и сделал простенький парсер XML. При отладке Win32, приложение работает нормально, а вот при запуске на Android, ругается, что не может открыть файл. XMLDocument1.LoadFromFile('https://wmeng.exchanger.ru/asp/XMLWMList.asp?exchtype=1'); XMLDocument1.Active := true; Edit1.Text := XMLDocument1.DocumentElement.ChildNodes.Text;...
Delphi Сортировка по возрастанию в StrinGrid https://www.cyberforum.ru/ delphi-beginners/ thread2170625.html
Добрый день. Нужно отсортировать строки в StrinGrid по возрастанию. По убыванию нашел, работает на ура. procedure TForm1.SgDownSort; var I, J, CntRow, Val1, Val2: Integer; begin Grid.RowCount := Grid.RowCount + 1; CntRow := Grid.RowCount;
Delphi 2 цикла в потоке сжирают память Доброе время суток, имеется поток, который каждые 10 сек, читает лог. В нем имеется 2 цикла, которые анализируют последнюю строку лога, и выделяют из нее значения нужных мне параметров (для отображения их в программе). И как показали опыты, эти циклы почему-то сжирают память (если их закоментировать то с память сжираться е будет) procedure TFileReadThread.UpdTemp1; begin ... https://www.cyberforum.ru/ delphi-beginners/ thread2170590.html
Delphi Утечка памяти
Проверил утечку памяти ReportMemoryLeaksOnShutdown , выдало 13 - 20 bytes: UnicodeString x 86 , Unknown x 9 69 - 76 bytes: TstringList x 8 Не понятно где искать, если со stringList немного понятно , то UnicodeString где искать? Может есть программы которые показывают в какой строке? Как понять?
Delphi Количество гласных и согласных букв Очень нужен срочно код этой программы «Количество гласных и согласных букв» , просто как это вычислить . Пожалуйста , очень нужна ваша помощь https://www.cyberforum.ru/ delphi-beginners/ thread2170530.html
0 / 0 / 1
Регистрация: 13.12.2017
Сообщений: 32
08.01.2018, 23:33  [ТС] 0

Дописать 2 функции - Delphi - Ответ 12013431

08.01.2018, 23:33. Показов 564. Ответов 7
Метки (Все метки)

Ответ

Цитата Сообщение от victory12 Посмотреть сообщение
to n do
* * * * *begin
Цитата Сообщение от victory12 Посмотреть сообщение
begin
* * * * * tmp:=x1;
* * * * * x1:=(x1+k[i]) xor x2;
* * * * * x2:=tmp;
* * * * *end;
* * * * tmp:=x1;x1:=x2;x2:=tmp;
* * * * write(fout,x1,x2);
Это вот первая функция, а как добавить дальше еще функцию

Вернуться к обсуждению:
Дописать 2 функции Delphi
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2018, 23:33
Готовые ответы и решения:

Дописать функции в программу
Всем привет,недавно писал программу такую условие:Задается текст на английском языке ,слова...

Как дописать функции для калькулятора?
Как дописать функции для калькулятора? Функция arcsin \frac{x}{a}+c unit Unit1; ...

Дописать 3 функции в коде игры змейка
Здравствуйте, извините, если создал тему, которая уже была поднята. Необходима помощь, в связи с...

Завершить разработку программы (дописать функции)
struct A { int **a; //массив int n; //число строк и столбцов }; int diagonal1 (A...

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

Дописать программу с использованием пользовательской функции
Помогите переписать эту программу, но уже с пользовательской функцией! #include <vcl.h>...

Разбить программу на функции и дописать ввод пути к файлу
uses Crt; var f, g: Text; str1, str2 :string; i, L, Lm, K, Km: integer; begin ...

Класс: Дописать производный класс, дополняющий базовый и содержащий минимум 2 функции-члена...
Составьте программу на языке С#, которая должна содержать: 1) базовый класс в соответствии с...

Дописать
Помогите пожалуйста написать программу. Задание: Моя программа: #include <conio.h> #include...

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