Question

В програмі Лазарус написати програму введення в поле1 та виведення в поле2 елементів заданого масиву 2 5 9 1 0 3 6 9.​

Answer 1

Ответ:

Ось приклад програми на мові програмування Lazarus для введення елементів масиву [2, 5, 9, 1, 0, 3, 6, 9] в поле1 (наприклад, TMemo) та виведення цих елементів в поле2 (наприклад, TMemo) в рядковому форматі:
// Оголошення типу масиву

type

 TMyArray = array of Integer;

// Функція для виведення елементів масиву в TMemo

procedure DisplayArrayElements(arr: TMyArray; memo: TMemo);

var

 i: Integer;

begin

 memo.Clear; // Очищення TMemo перед виведенням

 for i := Low(arr) to High(arr) do

   memo.Lines.Add(IntToStr(arr[i])); // Виведення елементів масиву в TMemo

end;

// Основна процедура програми

procedure TForm1.Button1Click(Sender: TObject);

var

 inputStr: string;

 inputArr: TMyArray;

 i: Integer;

begin

 inputStr := Edit1.Text; // Отримання введеного рядка з поля вводу

 inputArr := TMyArray.Create; // Створення динамічного масиву

 // Розбиття рядка на елементи та додавання їх до масиву

 for i := 1 to Length(inputStr) do

   if inputStr[i] <> ' ' then

     SetLength(inputArr, Length(inputArr) + 1)

     inputArr[High(inputArr)] := StrToInt(inputStr[i]);

 DisplayArrayElements(inputArr, Memo2); // Виведення елементів масиву в TMemo

end;

Объяснение:

Ця програма має одне вхідне поле (Edit1), де можна ввести рядок з елементами масиву, та одне вихідне поле (Memo2), де елементи масиву будуть виведені в рядковому форматі після натискання кнопки (наприклад, Button1). Програма розбиває введений рядок на елементи та виводить їх в TMemo з використанням функції DisplayArrayElements.