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

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

Войти

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

Другие темы раздела
Delphi Определение слабой рефлексивности и треугольности матрицы Помогите с задачей. Дана матрица X . Составить программу определения слабой рефлексивности и треугольности матрицы X . Матрица является слабо рефлексивной, если для всех i,j выполняется следующее условие: Min(ai,i,aj,j>=ai,j . Пример расположение элементов в правой треугольной матрице порядка n : сначала идет n элементов 1-ой строки; затем (n-1) элемент 2-ой строки, начиная со... https://www.cyberforum.ru/ delphi-beginners/ thread1861638.html	Вывести матрицу на экран и найти сумму наибольших значений элементов её строк Delphi Уважаемые форумчане, помогите пожалуйста с решением задачи.%-) Дана действительная матрица размера m×n. Вывести матрицу на экран. Найти сумму наибольших значений элементов её строк.
Delphi Разложить число на составные множители. var N,d,i,k:integer; {объявляем переменные N,i и d типа integer} begin {начало программы} N:=StrToInt(Edit1.Text); {задаём первый составной делитель} Edit2.Text:=IntToStr(N)+'='; k:=0; for d:=4 to round(sqrt(N)) do begin {начинаем цикл, в котором будем рассматривать все делители, которые меньше, заданного числа} for i := 2 to d div 2 do if d mod i=0 then if N mod d = 0 then ... https://www.cyberforum.ru/ delphi-beginners/ thread1861604.html	Delphi Работа с компонентом Memo https://www.cyberforum.ru/ delphi-beginners/ thread1861603.html Здравствуйте! У меня есть следующая задача: "Из первого Memo во второй переносятся все цифры и специальные символы форматирования (отступы пробелы, символы перехода на новую строку), остальные символы заменяются пробелами". Вот мой код: const N='0123456789'; procedure TForm1.Button1Click(Sender: TObject); var i,k:integer; s,s1:string; begin
Delphi Условия и кнопки Всем привет, пытаюсь написать программу суть которой заключается в следующем: 1. пользователю выводится карта с континентами 2. после нажатия на кнопку "старт" пользователю задается первый вопрос (напр. укажи на карте австралию) 3. пользователь нажимает на австралию, если верно то в лейбл выводится +, если нет то - соответственно 4. после ответа сразу появляется следующий вопрос 5. после...	Delphi Как распознать запуск программы на виртуальной машине? https://www.cyberforum.ru/ delphi-beginners/ thread1861499.html Как при запуске программы распознать запущена она на на компьютере или на виртуальной машине?
Delphi Регулярные выражения https://www.cyberforum.ru/ delphi-beginners/ thread1861455.html procedure TMyThread.Execute; var SL : TStringList; i : integer; rege,reg:tregexpr; s,p,st:string; begin s:=data.Text; rege:=tregexpr.Create; rege.Expression := '\w+@\w+\.\w+';	Вывод данных из файла в ComboBox при двойном щелчке Delphi Добрый день уважаемые форумчане. Вот собственно задание: Загрузить из файла информацию об ассортименте сотовых телефонов: Производитель Тип: например, телефон, смартфон, коммуникатор Тип корпуса При выборе типа корпуса загрузить информацию о моделях и цене в компонент списка TComboBox. Загрузку из файла я...
Delphi Свернуть родительскую форму и развернуть дочернюю https://www.cyberforum.ru/ delphi-beginners/ thread1861433.html Как свернуть родительскую форму и после этого развернуть только дочернюю, т.е. чтобы показывалась только дочерняя форма	Delphi В DbGrid показывается только одна запись https://www.cyberforum.ru/ delphi-beginners/ thread1861355.html Добрый день, В элементе DbGrid почему то Высвечивается только одна запись , никогда раньше не сталкивался с такой проблемой, подскажите пожалуйста как можно решить проблему?
Рекурсивные процедуры Delphi Дано условие: дана последовательность натуральных чисел а1.а2.аn.Разработать рекурсивную процедуру нахождения i,j таких что последовательность a1,ai+1...aj является перевертышем. помогите с решением. Delphi	Delphi Упорядочить по водителю https://www.cyberforum.ru/ delphi-beginners/ thread1861237.html Упорядочить по водителю. Вывести информацию об автомобилях с заданным типом кузова и цветом. Помогите написать ф-цию в главной программе unit Un_Avtopark; interface uses Classes, Un_Avto; Type TAvtopark=class private name:string;

Пытливый

3586 / 2195 / 693

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

Сообщений: 9,374

27.11.2016, 18:20

Заполнить двумерный массив заданным образом - Delphi - Ответ 9822346

27.11.2016, 18:20. Показов 1500. Ответов 3

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

Ответ

Delphi

program Project12;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
var
  n,i,j: Integer;
begin
 n := 2;
 for i := 1 to 7
 do begin
    for j := 1 to 7
    do begin
       Write(n:4);
       n := n + n;
       if n > 128 then n := 2;
       end;
    n := n + n;
    WriteLn;
   end;
 ReadLn;
end.

Вернуться к обсуждению:
Заполнить двумерный массив заданным образом Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.11.2016, 18:20

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

Заполнить двумерный массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 0 0 0 1 0 0 0 0 0...

Delphi. Двумерный массив. Заполнить массив А следующим образом var A:array [1.10, 1.10] of byte; :
Помогите решить задачу, как заполнить ее в StringGrid var A:array of byte; Заполнить массив...

Заполнить массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 1 0 0 … 0 0 9 0 1 ...

Заполнить массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 1|2|...|10 11|12|...|20...

	27.11.2016, 18:20

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.11.2016, 18:20

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

Заполнить массив А определенным образом
Решить задачу в дельфи. Помогите плз. var A:array of byte; Заполнить массив А следующим...

Заполнить массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 1 2 3 … 10 0 1 2 … 9...

Сформировать двумерный массив m*k случайным образом
Сформировать двумерный массив m*k случайным образом. Выполнить над ним преобразования. Результат...

Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным об
Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив...

Наверх