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

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

Войти

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

Другие темы раздела
Delphi Перевод матрицы смежности в матрицу достижимости если если есть путь из х1 в х2 , а из х2 в х3, то есть путь х1 в х3 в этом заключается достижимость. вот моя процедура перевода, но в ней не хвтает правильно расставленных программаных скобок типа begin end прошу помочь с ними. проверить лучше на примере замкнутого граф где мтарица смежности будет выглядеть так 0100 0010 0001 1000 а матрица достижимости такой же размерности но со всеми... https://www.cyberforum.ru/ delphi-beginners/ thread651620.html	Delphi Велосипедные коды У Дена есть два четырёхзначных кодовых замка для велосипеда. Каждый вечер он ставит велосипед на сигнализацию и пристёгивает к специальной стойке одним из замков. Ден никогда не использует один и тот же замок два вечера подряд. В некоторую ночь злоумышленник попытался с помощью кода 0000 открыть висящий на велосипеде замок. Сработала сигнализация, и вор поспешил скрыться. На следующую ночь он...
Delphi общие и простые уроки делфи! https://www.cyberforum.ru/ delphi-beginners/ thread651483.html Привет всем! Я разбираюсь в Паскале, теперь нужно переходить на Делфи. Во всех учебниках или самоучителях начинается не с того, что мне нужно. а вот на такие вопросы ответов найти не могу: 1.Как попросить пользователя ввести данные? нужно использовать поле Edit? а как его значение потом присвоить в переменную? (например для подсчета суммы двух чисел нужно попросить ввести 2 числа, которые мы...	Delphi Месяц из DateTimepicker https://www.cyberforum.ru/ delphi-beginners/ thread651457.html Как получить из DateTimepicker данные в label чтобы было так 05.2012, т.е. только месяц и год??? Пробывал у DateTimepicker Format ставить mm.yyyy. Label1.Caption:=DateToStr(DateTimepicker1.Date); выводит ерунду.
Зеркально отразить элементы матрицы относительно горизонтальной оси симметрии Delphi Дана квадратная матрица порядка M. Зеркально отразить ее элементы относительно горизонтальной оси симметрии матрицы. 2)Дано квадратну матрицю порядку M. Дзеркально відбити її елементи відносно горизонтальної осі симетрії матриці. Помогите пожалуста...	Delphi Вставка записей в MemTableEh https://www.cyberforum.ru/ delphi-beginners/ thread651383.html Добрый день! Столкнулся с небольшой проблемкой. Работаю с MemTableEh. При вставке записей вручную через DbGridEh, новая запись вставляется последней, т.е. всегда после предыдущей. А вот при добавлении записей в MemTableEh напрямую программно while true do begin memtbl.Insert; //... memtbl.Post; end; получается, что первая запись в исходных данных становится последней, т.е....
Delphi Создать программу для подсчёта суммы чисел Создать программу для подсчёта суммы чисел от А до В, которые без остатка делятсяя на С (воспользоваться оператором mod) https://www.cyberforum.ru/ delphi-beginners/ thread651376.html	Delphi Как организовать скачивание картинки с интернета? хочется вводить в tedit название поиска и что бы прога искала в инете в google.ru картинку - а та автоматически сохранялась у меня на компе
Delphi Запрос в TQuery https://www.cyberforum.ru/ delphi-beginners/ thread651355.html Всем привет. Короче, суть такая, есть DBF-файл, в котором есть столбец "№ п.п.", ну например от 1 до 100. Так вот когда я удаляю кокую-нибуть строчку (например строку 5) и потом добавляю новую строчку мне ставит №п.п. --- 100 хотя у меня у же есть 100 ((( Вот и хочу спросить как можна написать запрос, или после удаление строки столбец "№п.п." пересчитался, или чтоб при добавлении новой строки...	Delphi Шифрование Помогите пожалуйста!! Очень срочно надо!!!!! Простой ключ замены придуманный торговцами в средние века для шифровки даты приезда и цены товара, доживший до начала века из за простоты и удобства. Торговцы заранее договаривались об общем ключевом слове, буквы которого обозначают цифры по порядку букв в ключе. Например: Р Е С П У Б Л И К А -ключ шифрования 0 1 2 3 4 5 6 7 8 9 - цифры... https://www.cyberforum.ru/ delphi-beginners/ thread651328.html
Сделать вместо сечения — объединения Delphi Как сделать вместо сечения - объединения? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type	Delphi Найти площадь и периметр прямоугольника по координатам вершин https://www.cyberforum.ru/ delphi-beginners/ thread651307.html Известны координаты прямоугольника ABCD A(x1y1);B(x2y2);C(x3y3). Найти площадь и периметр прямоугольника.это все нужно как-то оформить

Arcor

5706 / 2297 / 466

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

Сообщений: 7,721

Записей в блоге: 1

13.09.2012, 20:20

Сформировать новый массив из элементов исходного с четными, а затем с нечетными индексами - Delphi - Ответ 3446946

13.09.2012, 20:20. Показов 2539. Ответов 11

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

Ответ

ввод сам организуешь

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var A, B: Array[1..16] of Integer;
    i, j: Integer;
begin
  Randomize;
  for i := 1 to 16 do
    A[i] := Random(20);
 
  j := 1;
  for i := 1 to 16 do
    if i mod 2 = 1 then
      begin
        B[j] := A[i];
        j := j + 1;
      end;
  for i := 1 to 16 do
    if i mod 2 <> 1 then
      begin
        B[j] := A[i];
        j := j + 1;
      end;
 
  for i := 1 to 16 do
    Write(A[i], ' ');
 
  Writeln;
 
  for i := 1 to 16 do
    Write(B[i], ' ');
  Readln;
end.

Вернуться к обсуждению:
Сформировать новый массив из элементов исходного с четными, а затем с нечетными индексами Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

13.09.2012, 20:20

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

Записать в новый массив сначала элементы исходного массива с четными, затем с нечетными индексами
Из одномерного массива А сформировать одномерный массив В, записав в него сначала элементы массива...

Сформировать новый массив из среднего арифметического соседних элементов с нечётными и чётными индексами
Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние...

Сформировать массив, у которого вначале расположены элементы массива А с нечетными индексами, затем с четными
Дан массив А(20). Найти максимальный элемент среди положительных элементов массива А и сформировать...

Сформировать новый массив из нечетных элементов с четными индексами
ЗАДАНИЕ: 13.3. Дан одномерный массив Zn. Сформировать новый массив Zk из нечетных элементов с...

	13.09.2012, 20:20

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

13.09.2012, 20:20

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

Из элементов с нечётными индексами исходного массива получить новый массив и упорядочить его по убыванию
Помогите решить задачу. Получить новую числовую последовательность, состоящую из чисел, стоящих на...

Сформировать два массива, включив в первый элементы исходного с четными индексами, а во второй - с нечетными
дан массив из 20 элементов. Сформировать два массива размером 10,включив в первый из них элементы...

Вначале заполнить массив элементами с четными индексами, а затем - с нечетными.
прошу помощи дан массив a, заполнить массив b элементами масива а следующим образом: вначале...

Из заданного массив сформировать новый, содержащий значения положительных элементов с четными индексами
Дан массив из 9 произвольных чисел, сформирлвать новый, содержащий только значения положительных...

Наверх