Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Построение графиков Delphi https://www.cyberforum.ru/ delphi-beginners/ thread843365.html Пожалуйста помогите создать проект Дельфи....Построить графики функций с обозначением осей координат Y=a/x	Составить программу пузырьковой сортировки массива целых чисел Delphi Составить программу пузырьковой сортировки массива целых чисел
Delphi Записать фрагмент программы определения наибольшего значения в массиве А(30) Записать фрагмент программы определения наибольшего значения в массиве А(30) https://www.cyberforum.ru/ delphi-beginners/ thread843350.html	Delphi постановка условия на диапазон от A до B https://www.cyberforum.ru/ delphi-beginners/ thread843345.html Найти сумму элементов массива, принадлежащих промежутку от А до В (А и В вводятся с клавиатуры). var Form1: TForm1; implementation {$R *.dfm} function Strngrd_value_RND(Sender: TObject; n: integer): boolean;
Delphi Рандомное заполнение стрингрид Дан массив из 10 вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти количество отрицательных чисел и величину наибольшего среди них. ( для формирования значений элементов массивов использовать датчик случайных чисел). у меня получился такой код : implementation {$R *.dfm} procedure StringGrid_Cell_RND(Sender: TObject; ColCount: integer);	Delphi Опять генератор, опять паролей Здравствуйте, написал генератор с буковками и циферками и он работает. Но только иногда вместо 8 символов он выдает меньше, и я не как не могу найти свою ошибку. Прошу взглянуть опытным глазом, предполагаю что ошибка очень очевидная и мне заранее стыдно.var Rnd1,Rnd2,i,j:Integer; Alphabet,Smbl:string; begin Alphabet:='qwertyuiopasdfghjklzxcvbnm'; Smbl:='@#$%^&*'; Edit1.Clear; ... https://www.cyberforum.ru/ delphi-beginners/ thread843308.html
Delphi подскажите как сделать несколько видов сортировок на одной кнопке https://www.cyberforum.ru/ delphi-beginners/ thread843305.html Есть массив, состоящий из списка Авторов, нужно сделать сортировку этого массива в алфавитном порядке по убыванию и по возрастанию, и обе сортировки дожны быть на одной кнопке, т.е один раз на кнопку нажал - массив сортируется по возростанию, 2й раз нажал - массив сортируется по убыванию в алфавитном порядке, у меня получился такой код, массив сортируется два раза, а дальше ничего не происходит....	Написать программу для перевода десятичного числа в шестнадцатеричную систему исчисления, и обратно. Delphi Написать программу для перевода десятичного числа в шестнадцатеричную систему исчисления, и обратно.Число вводится в диапазоне от 1 до 1000 Нужно именно из 10 в 16 и обратно, не во все, а только эти две
Delphi [Delphi+excel] - недостаточно памяти для завершения операции https://www.cyberforum.ru/ delphi-beginners/ thread843279.html Доброго времени суток! Возникла следующая проблема: при импорте данных из excel в мою бд (access) возникает ошибка:"Недостаточно памяти для завершения операции". Ошибку выдает при запуске импорта на вот эту строку:Ap.Workbooks.Open(edit1.Text); Путь к файлу прописывается верно. Буду благодарен за любую помощь. procedure TForm17.BitBtn1Click(Sender: TObject); begin if...	Delphi Тест скорости Подскажите в что не так. Пишу программу для теста интернет скорости. Программа запускается и зависает. В чем может быть причина? uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls; procedure TForm1.Button1Click(Sender: TObject); https://www.cyberforum.ru/ delphi-beginners/ thread843268.html
Delphi свойство Canvas Delphi В диалоговом окне нарисовать 6 линий разной толщины и разного цвета с помощью свойство Сanvas....пожалуйста помогите решить...	Delphi Задать русский алфавит в Delphi 2009 https://www.cyberforum.ru/ delphi-beginners/ thread843235.html Здравствуйте. Нужно сделать программу, которая смотрит, есть ли введённом тексте (в memo1.text) русские буквы. Написал текст, но что-то не работает. Кстати если указать диапазон латинских букв ('a'..'z') - то их он видит. procedure TForm1.Button1Click(Sender: TObject); Const C = ; Var s : string; i, l : integer;

Genbl4

0 / 0 / 0

Регистрация: 20.04.2013

Сообщений: 48

не удается вывести необходимые значения массива - Delphi - Ответ 4443147

20.04.2013, 15:44. Показов 744. Ответов 5

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Вывести все элементы массива, абсолютные значения которых мень-ше 1.

Delphi

procedure TForm1.btn1Click(Sender: TObject);
const
  N=10;
var a:array [1..N] of Real;
    modul:real;
    i:Integer; //           èíäåêñ
 
 
    begin
 if Length(Strngrd1.Cells[i-1,0])<>0 then a[i]:=StrToFloat(strngrd1.Cells[i-1,0])
    else a[i]:=0;
 for i:=1 to N do
 modul:=Abs(a[i]);
 if ((modul)<1) and ((modul)>0) then  lbl1.Caption:=(modul + FloatToStr(modul))
  else lbl1.caption:='÷èñåë, àáñîëþòíûå çíà÷åíèÿ êîòîðûõ ìåíüøå 1, íåò';
 
 
 end;
 
end.

после строки " if ((modul)<1) and ((modul)>0) then lbl1.Caption:=(modul + FloatToStr(modul))" выдает ошибку "[Error] Unit1.pas(42): Incompatible types: 'String' and 'Real'" что не так то?

Вернуться к обсуждению:
не удается вывести необходимые значения массива Delphi

Следующий ответ

Заказать работу у эксперта

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

Блог

20.04.2013, 15:44

Готовые ответы и решения:

Как вывести необходимые данные из массива объектов?
Здравствуйте! Только начал свое знакомство с ReactJS и нужно сделать сайт-тест знаний пользователя...

Windows не удается установить необходимые файлы
Доброго здравия Вам! Ситуация следующая - необходимо переустановить win7 на ПК товарища. Я...

Windows не удаётся установить необходимые файлы
Доброго времени суток! Подскажите пожалуйста поставил новый жесткий диск,пытаюсь установить...

Как для каждого значения одного массива вывести все значения второго массива?
Как для каждого значения одного массива вывести все значения второго массива? Есть два массива:...

	20.04.2013, 15:44

BasicMan

Эксперт

19315 / 2622 / 84

Регистрация: 17.02.2009

Сообщений: 10,364

Блог

20.04.2013, 15:44

Помогаю со студенческими работами здесь

Ошибка при установке "windows не удается установить необходимые файлы 0x8007045D"
предыстория Купил комп, поставил вин7 , скачались обновления , после перезагрузки обновления не...

Ошибка Explorer.EXE: "Не удается получить доступ к объекту... Возможно, отсутствуют необходимые разрешения."
Открываю Oscar и вылазит эта оошибка

Вывести на экран элементы массива, квадраты значения которых больше значения индекса в кубе
Дело в том что надо заполнить массив 15 рандомными числами от 7 до 60, а после этого сравнить...

Удалить пары соседних элементов, имеющих одинаковые значения, и вывести размер полученного массива и значения
Задан размера массива целых чисел и значения его элементов.Удалить пары соседних элементов, имеющих...

Наверх