Среда программирования Lazarus 1. Что можно делать в программе Lazarus? 2. Какие свойства формы вы знаете? 3. Какая программа используется для создания приложений? А) Lasarus Б) Lazarus В) Lasarys 4. Какой язык программирования используется в среде программирования Lazarus? А) Pascal Б) Packal В) Pazkal 5. Какие объекты, компоненты Lazarus присутствуют на рисунке? А) Форма, кнопка, метка Б) Кнопка, метка, заголовок В) Форма, кнопка, поле Г) Форма, метка, поле 6. Что относится к свойствам объекта? А) Name Б)Caption В) Click Г) Top, Left Д) Visible Е) Create Ж) Height З) Width И) Close К) Color Л) Font М) KeyPress 7. Из каких окон НЕ состоит Lazarus? А) Инспектор объектов Б) Редактор форм В) Сортировщик Г) Редактор кода Д) Окно сообщений 8. Как создать новый проект? А) запустить среду программирования Lazarus Б) Файл - Создать В) Проект - Создать новый проект Г) Закрыть среду программирования 9. Как сохранить готовый проект? А) Закрыть среду программирования Lazarus Б) Файл - Сохранить В) Файл - Сохранить все Г) Проект - Сохранить проект 10. Основные окна программе. Выберите правильный вариант: А) Инспектор объектов, Проектировщик форм, Редактор исходного кода Б) Сообщения, Панель компонентов, Меню В) Инспектор объектов, Панель компонентов, Форма. 11. Сопоставьте свойства формы и их определения: 1) Name 2) Caption 3) Color 4) Height 5) Width 6) Top 7) Left 1. Имя формы, как объекта 2. Положение формы сверху 3. Цвет формы 4. Заголовок формы 5. Ширина формы 6. Положение формы слева 7. Высота формы
Ответы
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
с икселем , задание на фото и файл
Автор: zeltos384
(я)в букве я найди окно :) нашёл не
Автор: annakorolkova79
По логической схеме составить таблицу истинности
Автор: Vyacheslavovna1867
Передавались ли у египтян иероглифами гласные звуки
Автор: olgavbaranova
Первым изобретателем перфокарт был
Автор: svetlanam81
Развернутая форма записи числа 47 и в 10 степени только не вверху а внизу под цифрой 7
Автор: Абумислимовна_кооператив585
111011101-1101110110 в двоичной
Автор: yugraspets
const
nmax=100;
var
n,i,j,nn,nz,np,t:integer;
a,an,az,ap:array[1..nmax] of integer;
begin
// формируем массив и выводим его
Write('Количество элементов в массиве: '); Read(n);
for i:=1 to n do begin
a[i]:=Random(11)-5;
Write(a[i],' ')
end;
Writeln;
// разбиваем массив на три подмассива
nn:=0; nz:=0; np:=0;
for i:=1 to n do
if a[i]<0 then begin nn:=nn+1; an[nn]:=a[i] end
else
if a[i]=0 then begin nz:=nz+1; az[nz]:=a[i] end
else begin np:=np+1; ap[np]:=a[i] end;
// сортируем массив с отрицательными элементами по убыванию
for i:=1 to nn-1 do
for j:=1 to nn-1 do
if an[j]<an[j+1] then
begin t:=an[j]; an[j]:=an[j+1]; an[j+1]:=t end;
// сортируем массив с положительными элементами по возрастанию
for i:=1 to np-1 do
for j:=1 to np-1 do
if ap[j]>ap[j+1] then
begin t:=ap[j]; ap[j]:=ap[j+1]; ap[j+1]:=t end;
// формируем новое содержимое массива a
i:=0;
for j:=1 to nz do begin i:=i+1; a[i]:=az[j] end;
for j:=1 to np do begin i:=i+1; a[i]:=ap[j] end;
for j:=1 to nn do begin i:=i+1; a[i]:=an[j] end;
// вывод результата
for i:=1 to n do Write(a[i],' ');
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 15
1 2 5 0 -5 -3 0 0 1 -4 3 -2 -2 0 -5
0 0 0 0 1 1 2 3 5 -2 -2 -3 -4 -5 -5