Среда программирования 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. Высота формы
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