Алгоритм опрацювання даних, записаний спеціальною мовою та призначений для виконання комп'ютером називається...
1. процедура
2. комп'ютерна програма
3. мова програмування
4. код
2. Кнопка Abc призначена для вставки (у мові програмування Lazarus):
1. поля
2. напису
3. кнопки
4. малюнка
3. Для того, щоб на кнопці був напис "Розв'язання", потрібно написати таку
команду:
1. Button1.Text:= Розвязання";
2. Button1.Caption:='Розвязання";
3. Label1.Caption:='Кнопка"; 4. Buttonl.Color:=clRed;
4. Щоб у написі текст переносився на новий рядок потрібно вставити символ:
1. #3
2. @6
3. $1
4. &2
5. Середовище програмування Lazarus складається із вікон:
1. Головне меню, Інспектор об'єктів, Редактор тексту, Форма 2. Головне меню, Панель інструментів, Редактор тексту, Вікно для кнопок
3. Панель інструментів, Вікно для запису команд, Редактор тексту, Форма 4. Головне меню, Кнопки керування вікном. Редактор тексту, Форма
6. Для зміни положення верхньої межі кнопки відносно верхньої межі форми
потрібно вибрати властивість:
1. Left 2. Width
3. Тор
4. Height
(67
7. Встановіть відповідність між назвою властивості та її значенням
1. Caption 2. Enabled
3. Height
4. Font
1. висота об'єкта
2. властивість шрифту 3. текст на кнопці
4. доступність об'єкту
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Rewrite(f,'books.dat');
Writeln('Ввод данных по книгам');
var s1,s2:string;
var i1,i2:integer;
var book:tBook;
repeat
s1:=ReadlnString('Автор или * для окончания ввода:');
if s1<>'*' then begin
s2:=ReadlnString('Название книги:');
i1:=ReadlnInteger('Количество страниц:');
i2:=ReadlnInteger('Год издания:');
(book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
Write(f,book)
end
until s1='*';
Writeln('*** Ввод завершен ***');
f.Close
end.
Тестовое решение
Ввод данных по книгам
Автор или * для окончания ввода: Жюль Верн
Название книги: 80 тысяч километров под водой
Количество страниц: 573
Год издания: 1951
Автор или * для окончания ввода: Сергей Лукьяненко
Название книги: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Название книги: Властелин мира
Количество страниц: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***
2. Программа для выборки
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Reset(f,'books.dat');
var s:=ReadlnString('Автор книги:');
var y:=Readinteger('Год издания, не ранее:');
var k:=0;
var book:tBook;
while not f.Eof do begin
Read(f,book);
if (book.author=s) and (book.godizd>=y) then begin
Writeln(book);
Inc(k)
end;
end;
if k=0 then Writeln('Таких книг не найдено');
f.Close
end.
Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Властелин мира,104,2011)
begin
var m:=ReadInteger('Количество элементов в массиве А (m):');
var n:=ReadInteger('Количество элементов в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1<k<m):');
if (k>1) and (k<m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1<k<m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26