Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Delphi Console Массивы https://www.cyberforum.ru/ delphi-beginners/ thread96229.html
Вот есть такая задача: Даны действительные числа a1, a2, ..., a2n. Эти точки определяют n интервалов числовой оси (a1, a2), (a3, a4), ..., (a2n-1, a2n). Имеются ли точки числовой оси, принадлежащие по крайней мере трем каким-нибудь из данных интервалов. Если да, то указать какую-нибудь из этих точек. И есть решенная аналогичная: Даны действительные числа a1, a2, ... , a2n. Эти точки определяют...
Delphi Форма на консольном приложении Delphi
я хочу написать консольное приложение которое создаёт форму, но она существует какое то время а потом удаляется, как сделать так чтоб она не исчезала, и как создавать событии, если кто знает хотелось бы ссылку на какую нить статью по созданию таких приложений вот мой код: program Project1; uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ICQClient,...
Delphi Изменение иконки у чужого exe Возникла такая необходимость сменить иконку у exe файла, т.е. изменить ресурс, удалить старые иконки и записать новые, чтобы всё это там сохранилось. https://www.cyberforum.ru/ delphi-beginners/ thread96196.html Delphi оценка.. подскажите как вывести общую оценку вконце теста. если ответы выдавались таким образом после каждого четвертого вопроса. ball:=0; if RadioGroup1.ItemIndex=3 then inc(ball); if RadioGroup2.ItemIndex=0 then inc(ball); if RadioGroup3.ItemIndex=0 then inc(ball); if RadioGroup4.ItemIndex=1 then inc(ball); Label5.Caption:='Ïðàâèëüíèõ â³äïîâ³äåé ' +IntToStr(ball)+ ' èç 4'; https://www.cyberforum.ru/ delphi-beginners/ thread96194.html
Delphi выдает ошибку на Memo1.Lines.Add Delphi
у меня Delphi выдает ошибку на Memo1.Lines.Add(` Результат S = `+FloatToStrF(s,fffixed,8,4)) что это и что нужно делать??
Delphi Генератор случайных Букв вот такой вот генератор нужен. Смысл в чем, есть пары букв, например - ЕЕ, УБ, ПРУ, СП и т.д., они хранятся в файле. Так вот, нужно чтобы процедура рандомно выбирала из списка этих пар букв, одну любую и выводила ее в эдит. Сам чет не догоню никак =( https://www.cyberforum.ru/ delphi-beginners/ thread96176.html
Delphi Разница во времени между двумя датами https://www.cyberforum.ru/ delphi-beginners/ thread96163.html
Всем привет ! Подскажите где ошибка, программа неправильно считает разницу времени между 2 датами. Выдает: Прошло времени: 0 суток 9 часов а должно Прошло времени:
Отследить нажатие клавиши в консоли Delphi
Всем привет... В delphi нажатие клавиши можно отследить с помощью Key=#13 или vc_enter ... А как можно отследить нажатие клавиши в консоли???
Delphi Фокус - "SetForegroundWindow" https://www.cyberforum.ru/ delphi-beginners/ thread96143.html
Помогите сделать. Чтоб моя форма на событи oncreate при потере фокуса , возвращала себе фокус!!!???
Delphi Метод Хука-Дживса. https://www.cyberforum.ru/ delphi-beginners/ thread96121.html
Подскажите как можно избавиться от label m1, m2;goto а место них While поставить правильно? спс все кто поможет procedure TForm1.Button1Click(Sender: TObject); label m1, m2; var k,x,H,h0,x0:array of real; a,b:array of integer; j,i,ch:integer; x1,x2,x3,y,y1,y2,y0,f,ymax :real;
Delphi Загрузка в ListView из файла
Собственно....помогите разобраться как загрузить из файла строки в ListView с разделителем пробелом.. т.е после пробела новый item... и нужно только режим Vsreport и столбик 1...т.е. только caption
Delphi Выделение чисел из строки https://www.cyberforum.ru/ delphi-beginners/ thread96091.html
Помогите, пожалуйста, в одном вопросе. У меня есть файл, где в несколько строк, через ";", записаны числа. Мне нужно эти числа разнести по разным массивам. К примеру, у меня записано в файле следующее: 1; 2; 10; 2; 0; 3; 10; 3; 4; 10; 0; 5;
163 / 140 / 23
Регистрация: 28.12.2009
Сообщений: 365
17.02.2010, 15:53 0

Рекурсия: проверка массива на симметричность - Delphi - Ответ 551069

17.02.2010, 15:53. Показов 2732. Ответов 7
Метки (Все метки)

Ответ

индексы массива от 0 до N
Delphi
1
TMyArr= array [0..n] of integer;
а значения ты получаешь от 1 до N.
сделай так
Delphi
1
for i:=0 to n do


Вернуться к обсуждению:
Рекурсия: проверка массива на симметричность Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2010, 15:53
Готовые ответы и решения:

Проверка матрицы на симметричность
Помогите с лабой. Двумерный динамический массив нужно заполнить случайными числами и вывести...

Рекурсия - определить симметричность строки
Используя рекурсивную логическую функцию от целых i, j, проверяющую является ли симметричной часть...

Проверка на симметричность слова
void main() { char line; printf("vvedite stroku\n"); scanf("%s",line); for (int...

проверка на симметричность матрицы
uses crt; const n=10; var a: array of integer; i,j,s,s1:integer; procedure zapoln; begin...

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

Проверка числа на симметричность цифр
Определить, является ли n>0 симметричным в десятичной записи. Например число 4664 симметрично

Проверка квадратной матрицы на симметричность
Помогите сделать программу, вот мой код: #include "stdafx.h" #include "stdio.h" #include...

Проверка последовательности символов на симметричность
Уважаемые пользователи, помогите пожалуйста. Необходимо реализовать структуру проверки...

Проверка строки матрицы на симметричность
Как проверить строку матрицы на симметричность, если строка симметрична то в вектор b занести 1...

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