|
|
Другие темы раздела | |
Delphi Сортировка чисел выбором и простейшими перестановками
https://www.cyberforum.ru/ delphi-beginners/ thread549959.html Ребят, помогите плииз написать проги! 1. Найти элемент массива, имеющий наименьшее значение, переставить его с первым элементом, затем продолжить то же самое, начав со второго элемента и т.д. (сортировка выбором) 2. Последовательным просмотром чисел а1….аn и каждый новый элемент аi вставлять на подходящее место в уже упорядоченную совокупность а1…..аi-1. Это место определяется... |
Как программу заставить прервать процедуру. Delphi Необходимое условие a<e Иначе в f:=Sqrt(Sqr(e)-Sqr(a)); получается деление на 0 и вылетает ошибка "invalid floating point operation" Указал условие, если a>e он выводт сообщение, но продолжает выполнение процедуры и все равно выдает ошибку "invalid floating point operation" на f:=Sqrt(Sqr(e)-Sqr(a)); begin a:=StrToFloat(abt.Text); b:=StrToFloat(bbt.Text); c:=StrToFloat(cbt.Text); ... |
Delphi Вычисление значения функции, заданной графически
https://www.cyberforum.ru/ delphi-beginners/ thread549919.html Написать программу, которая вычисляет значения функции, заданной графически используя, оператор if. код: writeln('vvedite x='); readln(x); if (x>=(-3)) and (x<=(-1)) then y:=(x+2) else if (x>=(-1)) and (x<=1) then y:=x*x+y*y else if (x>=1) and (x<=3) then y:=x*x-2+y*y-1 else if x>=3 then y:=(x-2); writeln('y=',y:3:2); |
Delphi Численные методы решения нелинейных уравнений:метод половинного деления(График) Дали делать курсач по методу половинного деления. Все написал а график не знаю как. Помогите пожалуйста https://www.cyberforum.ru/ delphi-beginners/ thread549906.html |
Delphi Radiobutton и База данных Access Здравствуйте! Пишу программу тестирования. Имеется 5 radiobutton-ов в каждый из которых рандомно выводятся значения из базы данных (варианты ответов). Как можно сравнить значения нажатых radiоbutton-ов со столбцом где содержатся правильные ответы. Начала писать так...но ответы не засчитываются if ((radiobutton1.Caption=ADOQuery1.Fields.AsString) and (radiobutton1.Checked=true)) or... |
Delphi Постоянный массив указателей на постоянный массив Delphi Здравствуйте! Столкнулся с проблемой. Мне нужно объявить постояннный массив указателей на постоянный массив данных типа int. Это нужно чтобы в каждом элементе массива хранить статическую переменную (чтобы она жила по ходу всей программы). Не подскажете как это сделать? Начало кода приведено, мне нужно только объявление этого массива укаателей. const next_quest: integer = 0;... https://www.cyberforum.ru/ delphi-beginners/ thread549732.html |
Delphi Передача данных из одного потока в другой Всем привет, у меня такой вопрос, как можно передать данные из одного потока в другой, поясню: пишу программу для работы с СОМ портами, программа одним потоком считывает данные из одного порта производит необходимые преобразования со считанными данными, а другим записывает записывает в другой порт. Как я понимаю метод Synchronize позволяет передать данные только в главный поток. https://www.cyberforum.ru/ delphi-beginners/ thread549690.html |
Матрицы в Delphi Delphi Получить ; i=1,...,10; j=1,...,12 целочисленную матрицу для которой Аij=i+2j. |
Delphi Узнать нажата ли кнопка Доброго времени суток.. Подскажите, пожалуйста, как узнать нажал ли пользователь кнопку btn6 или нет? Ниже часть кода.. if кнопка btn6 была нажата then begin // Дейстие end else begin ShowMessage('Вы не нажали кнопку'); end; https://www.cyberforum.ru/ delphi-beginners/ thread549658.html |
Delphi Вычислить значение полинома степени
https://www.cyberforum.ru/ delphi-beginners/ thread549615.html Здравствуйте , подскажите пожалуйста в чем ошибка nit recursia; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids,Math; type |
Delphi Как выполнить сценарий изложенный в текстовом формате? господа пожалуйста помогите в вопросе который в данный момент не дает мне покоя. есть ли возможность выполнить в делфи определенную последовательность команд, если они записанны как текст??? пример:for i:=1 to 30 do begin s:='Form1.Label'+inttostr(i)+'.Caption'; s1:=Form1.Label35.Caption+'ÓÄ'+inttostr(i)+': '+Form1.Label35.Caption; s2:='Form1.Edit'+inttostr(i)+'.Text';... |
Delphi Нужна процедура проверки правильности ввода действительного числа.
https://www.cyberforum.ru/ delphi-beginners/ thread549567.html Нужно оформить процедуру проверки правильности ввода действительного числа в Edit1.Text - Edit22.Text. Проверка на то, что введено именно число, а не набор символов русского или латинского алфавита. |
105 / 104 / 29
Регистрация: 15.01.2011
Сообщений: 496
|
|
16.04.2012, 20:29 | 0 |
Из множества целых чисел от 1 до 30 выделить два множества - Delphi - Ответ 291899216.04.2012, 20:29. Показов 3174. Ответов 9
Метки (Все метки)
Ответ
Не за что, Катя. Учитесь на пятерки. :-)
Вернуться к обсуждению: Из множества целых чисел от 1 до 30 выделить два множества Delphi
1
|
16.04.2012, 20:29 | |
Готовые ответы и решения:
9
Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3 Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1.100. Из данных множеств выделить соответственно под-множества М1 чисел Множества: Задано множество целых чисел C. Создать два множества, содержащие числа больше 5 и меньше 5. Re: Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1.100. Из данных множеств выделить соот |
16.04.2012, 20:29 | |
16.04.2012, 20:29 | |
Помогаю со студенческими работами здесь
0
Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, квадратами целых чисел. Из множества целых чисел выделить кубы целых чисел. Написать с использованием подпрограмм По теме множества.Из диапазона целых чисел m... n выделить Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17 |