|
|
Другие темы раздела | ||||||||||||||||||
Delphi Нужно составить блок-схему в Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1995293.html procedure TForm1.Button1Click(Sender: TObject); var i, mini, maxi, mini1, maxi1, k: Integer; a: array of Integer; begin randomize;//генератор случайных чисел mmo1.Clear;//очистка поля Memo1 for i:=1 to StrToInt(edt1.Text) do //цикл от значения первого до значение введенного в Edit begin //начало подпрограммы a:=-100+random(201); //элементу массива присвоить значение наугад от -100 до... |
После каждого простого числа в одномерном массиве внести "0" Delphi Прошу помощи, массивы тяжело идут. Внести рандомные числа в массив и вывести его могу, а произвести действие в задание не могу понять как. Задание: Дан динамический массив, после каждого простого числа(Число которое делится на себя и на 1) вставить "0". Часть кода с заданием procedure TForm2.Button2Click(Sender: TObject); var c: integer; begin c:=0; Edit3.Text:=' '; // Очистить окно... | |||||||||||||||||
Delphi Создание файла по нажатию на кнопку и добавление этого файла в компонент Listbox, для дальнейшего просмотра
https://www.cyberforum.ru/ delphi-beginners/ thread1995249.html Есть компонент листбокс. Если нажимаю на одну из строк открывается форма с выводом файла. В зависимости от строки, выводит разный файл. т. е. если нажимаю на строку 1, то выводит файл 1.txt, строку 2, то 2.txt. но, если я хочу по нажатию на кнопку создать новый пункт 3, соответственно он мне должен создать новый файл 3, открыть его и я бы в нем уже что либо записал. а потом так же мог нажать на... |
Delphi Не проходит инициализация переменной Всем привет! Есть небольшая проблемка с инициализацией переменной Counts, не могу понять как ее решить... Компилятор выдает ошибку: Unit4.pas(57): Variable 'Counts' might not have been initialized procedure TForm_Author.btn1Click(Sender: TObject); var LogPass: array of string; I,H,Counts:integer; ResultLogPass:string; https://www.cyberforum.ru/ delphi-beginners/ thread1995224.html | |||||||||||||||||
Перебор всех подстрок, которые надо найти в строке Delphi Проблема вот в чем нужно заменить цикл делфи на паскаля но я не знаю как правильно ето сделать вот код делфи: procedure TForm1.Button3Click(Sender: TObject); var S : String; i, j : Integer; begin Memo3.Clear; S := Memo1.text; //Текст, в котором будем выполнять поиск. for i := 0 to Memo2.Lines.Count - 1 do //Перебор всех подстрок, которые надо найти в S. |
Delphi Перевод программы с С++ на Pascal! Помогите, пожалуйста, срочно нужно перевести код, у меня не получается постоянно выдает разные ошибки. Вместо вектора можно использовать обычные массивы или динамические, код рабочий, писался в RAD Studio 10.1. table - StringGrid1 done - StringGrid2 Заранее спасибо! bool fl=false; bool first=false; bool ff=true; __fastcall TForm1::TForm1(TComponent* Owner) https://www.cyberforum.ru/ delphi-beginners/ thread1995142.html | |||||||||||||||||
Delphi Решение задач вычислительного характера в Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1995105.html Составить программу определения решения уравнения x2+4x-5=0. Диапазон и шаг изменения аргумента определить в виде переменных таким образом, чтобы получить адекватные заданной функции значения. Исследовать варианты получения решения в зависимости от выбранных значений и шага аргумента. Подтвердить решение путем построения графика функции. |
Delphi Решение задач вычислительного характера в Delphi Составить программу определения решения уравнения x2+4x-5=0. Диапазон и шаг изменения аргумента определить в виде переменных таким образом, чтобы получить адекватные заданной функции значения. Исследовать варианты получения решения в зависимости от выбранных значений и шага аргумента. Подтвердить решение путем построения графика функции. | |||||||||||||||||
Delphi Найти количество чётных элементов и сумму элементов, меньших 20 для каждого столбца матрицы (StringGrid) Помогите пожалуйста сделать эту задачу с помощью StringGrid. И проверьте пожалуйста её правильность. Условие : Дан двумерный массив целых чисел, размеры которого задаёт пользователь. Найти количество чётных чисел и сумму элементов, меньших 20 для каждого столбца. Var A:array of integer; i,m,d,s:integer; Begin https://www.cyberforum.ru/ delphi-beginners/ thread1995046.html |
Delphi Найти сумму элементов нижнего треугольника
https://www.cyberforum.ru/ delphi-beginners/ thread1995039.html В программе необходимо найти сумму элементов нижнего треугольника массива 8х8. Вот код. В ответе выдает неправильное значение. Подскажите пожалуйста. unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; | |||||||||||||||||
Delphi Curl реализовать стандартными компонентами в Delphi Это возможно? Уважаемые форумачане подозреваю что так делать нельзя однако другого способа привлечь внимание к теме не вижу, кто хоть немного в теме взгляните и постарайтесь помочь, очень прошу(( https://www.cyberforum.ru/delphi-networks/thread1994792.html Заранее спасибо) PS Админы и модераторы не гневайтесь сильно, я больше не буду) |
Delphi Нужно составить блок-схему
Наверх
|