Задание 7. Разрешающая монитора Количество точек, с которых оно складывается
Б. Пиксель с. Растровое зображение
Задание 8. Что такое "компьютерный вирус"?
а) это программы, активизация которых вызывает уничтожение программ и файлов,
Б) это совокупность программ, находящиеся на устройствах долговременной памяти
е) это программы, которые могут "размножатьея" и скрытно внедрять свои копии файлы, загрузочные
секторы дисков и документы:
d) это программы, передающиеся по Всемирной паутине в процессе загрузки Web-страниц
Задание 9. Укажите номера только приложений общего назначения
1. бухгалтерские программы,
10. системы автоматического перевода
2. графические редакторы,
11.
системы компьютерного черчения,
3.
звуковые редакторы,
12.
системы распознавания текста
4.
коммуникационные программы,
13. системы управления базами данных,
5.
Компьютерные игры
14. текстовые редакторы,
6. компьютерные словари и энциклопедии,
15. тесты,
7.
мультимедиа проигрыватели,
16. электронные таблицы,
8. программные калькуляторы,
17. электронные учебники,
9. программы разработки презентаций,
Задание 10. Какая папка является вершиной иерархической файловой системой диска?
Задание 11.
Укажите, какое из указанных ниже имён файлов удов-
летворяет маске ?esetie.net
1) seseie.tt 2) esenie.ttx 3) eseie.xt 4) sesenie.txt
Var
k,n,max:integer;
procedure hase(var k,n,max:integer); //сама последовательность
begin
if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
writeln(n); //вывод нового члена последовательности
inc(k); //увеличение значения счётчика шагов
if max<n then max:=n; //поиск вершины
end;
procedure start(var k,n,max:integer); //название процедуры намекает
begin
readln(n);
k:=0;
writeln('Seq:');
max:=integer.MinValue;
while n<>1 do
hase(k,n,max);
writeln('Шаги:',k);
writeln('Вершина:',max);
end;
begin
start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16
uses
system,system.Windows.Forms;
Var
dat:DateTime;
myForm:Form;
myButton:Button;
myTextBox:TextBox;
procedure MyButtonClick(sender:Object;e:EventArgs);
begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле}
dat:=datetime.Now;
myTextBox.Text:=dat.ToString;
end;
begin
myForm:=new Form; //создание объекта - формы
myform.Left:=500;
myform.top:=500;
myform.AutoSize:=true;
myform.Width:=300;
myform.Height:=100;
myTextBox:=new TextBox; //создание объекта - текстового поля
myTextBox.Left:=80;
myTextBox.Top:=40;
myTextBox.Enabled:=true;
myTextBox.Width:=105;
myTextBox.Height:=100;
myTextBox.MaxLength:=16;
myTextBox.ReadOnly:=false;
myTextBox.Visible:=true;
myButton:=new Button; //создание объекта - кнопки
myButton.Text:='Now';
myButton.Left:=80;
myButton.top:=80;
myButton.AutoSize:=true;
myForm.Controls.Add(myButton); //вешаем на форму кнопку и поле
myForm.Controls.Add(myTextBox);
myButton.click+=MyButtonClick; //присваиваем событие при нажатии на кнопку
Application.Run(myForm);
end.