Перекомпоновка задание на Delphi из паскаля

@Алексей44444 · Регистрация: 11.02.2018

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

Здравствуйте дали задание. Реализовать задачу по обработке одномерных массивов. Дан одномерный массив целых чисел из 12 элементов. Найти наибольшее из четных элементов массива.
Я выполнил задание в паскале, но не знаю как его в делфи перекомпоновать....

@D1973 · 19.12.2018, 06:01

1. Выбросить все, кроме файла program3.pas
2. Переименовать файл program3.pas в program3.dpr
3. Открыть полученный файл блокнотом
4. Второй строкой добавить:

Delphi

1	{$APPTYPE CONSOLE}

Все. Консольный проект Delphi готов

@Алексей44444 · 19.12.2018, 06:06 **[ТС]**

Нет, так то так но нужно как в виде формы с кнопками и панелями, и тут я запутался

@D1973 · 19.12.2018, 06:14

Сообщение от Алексей44444

и тут я запутался

И в чем конкретно путаница?

@Алексей44444 · 19.12.2018, 06:20 **[ТС]**

Я делфи ни разу не пользовался

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

@D1973 · 19.12.2018, 06:49

Чего там мозговать-то... Алгоритм у Вас есть, осталось его визуализировать...
1. Открываете Дельфи, начинаете новый проект
2. На форму кидаете компоненты:
Палитра компонентов, закладка Satndard
Label - Метка, в нее будем ответ выводить
Button - Кнопка, на нее будем нажимать, чтобы ответ получить
Палитра компонентов, закладка Additional
StringGrid - сетка строк. Туда будем массив выводить...
3. Выделяете сетку строк
4. Слева у Вас окно Object Inspector, где можно менять свойства выделенного на форме компонента или самой формы
Для StringGrid выставляем следующее:
ColCount = 12
DefaultColWidth = 32
FixedCols = 0
FixedRows = 0
RowCount = 1
5. Делаете двойной клик ЛКМ по кнопке. Получаете заготовку обработчика события нажатия кнопки, в котором и пишете Ваш код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i, Max: integer;
    A: array [1..12] of integer;
begin
 Randomize;
 Max := Low(integer);
 for i := 1 to 12 do
  begin
   A[i] := RandomRange(-99, 100);
   if (not Odd(A[i])) and (A[i] > Max) then Max := A[i];
   StringGrid1.Cells[i - 1, 0] := IntToStr(A[i]);
  end;
 Label1.Caption := 'Maximum even element of the array: ' + IntToStr(Max);
end;

6. Добавляете модуль Math в секцию uses модуля
7. Нажимаете F9 и получаете что-то наподобие...

@Алексей44444 · 19.12.2018, 06:53 **[ТС]**

Хорошо попробую, спасибо!

@Алексей44444 -10 / 1 / 0 Регистрация: 11.02.2018 Сообщений: 54
	19.12.2018, 06:06 [ТС]	3
	Нет, так то так но нужно как в виде формы с кнопками и панелями, и тут я запутался 0

@D1973 Модератор 9270 / 6048 / 2380 Регистрация: 21.01.2014 Сообщений: 25,828 Записей в блоге: 3
	19.12.2018, 06:14	4
	Сообщение от Алексей44444 и тут я запутался И в чем конкретно путаница? 0

@Алексей44444 -10 / 1 / 0 Регистрация: 11.02.2018 Сообщений: 54
	19.12.2018, 06:20 [ТС]	5
	Я делфи ни разу не пользовался Добавлено через 2 минуты Попробую тогда сам как нибудь перекомпилиповать, посижу пообмазгую.... может и пойму как 0

@Алексей44444 -10 / 1 / 0 Регистрация: 11.02.2018 Сообщений: 54
	19.12.2018, 06:53 [ТС]	7
	Хорошо попробую, спасибо! 0

Перекомпоновка задание на Delphi из паскаля

Решение