Задание 1 на тему "Единицы измерения информации": Определить объем текстового выражения в битах, байтах, килобайтах.
Определить время передачи информации по локальной и глобальной компьютерным сетям.
№ варианта
Текстовое выражение
Пропускная сети
локальная
бит/сек
глобальная
мбит/сек
0
Информационные технологии
20000
100
1
Информационная система
25000
60
2
Операционная система
28000
80
3
Текстовый редактор
26000
100
4
Табличный процессор
27000
90
5
Графический редактор
25000
80
6
Системы счисления
29000
100
7
Вычислительный процесс
27000
100
8
Автоматизированная система
22000
70
9
Компьютерные сети
30000
90
10
Глобальная сеть
31000
80
11
Циклический алгоритм
28000
100
12
Разветвляющийся алгоритм
25000
90
13
Периферийные устройства
20000
60
14
Центральный процессор
27000
70
15
Сервисные программы
30000
100
16
Мультимедийные устройства
25000
70
17
Антивирусные средства
32000
100
18
Системы программирования
31000
90
Задание 2 на тему "Системы счисления":
1) Оба числа перевести в двоичную систему счисления.
2) Двоичные числа перевести в восьмеричную и шестнадцатеричную системы (по таблице).
3) С двоичными числами выполнить сложение и вычитание.
4) Результаты сложения и вычитания перевести в десятичную систему счисления.
5) Сделать проверку (в десятичной системе), вывод.
№ варианта
1 число
2 число
179,45
17,651
314,26
46,285
37,382
134,75
93,148
218,27
456,13
75,481
45,282
324,97
823,27
49,813
74,361
196,12
435,75
63,127
45,932
248,57
374,12
82,431
31,564
148,13
381,28
24,389
70,415
358,47
621,14
39,723
42,184
249,23
354,15
19,316
58,614
115,45
539,42
35,841
1.
4 Мбайта = 4*1024 Кбайт = 4096 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (4096/100)*75 = 3072 Кбайт
2.
8 Мбайт = 8*1024 Кбайт = 8192 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (8192/100)*25 = 2048 Кбайт
3.
15 Кбайт = 15*1024 байт = 15*1024*8 бит
S = v1*t1, S = v2*t2
v1 = S/t1, v2 = v1+512 = S/t1+512 = 15*1024*8/120+512 = 1536
t2 = S/v2 = 15*1024*8/1536 = 80 c
4.
S1 = v*t1, S2 = v*t2
2 мин = 120 с
t2 = S2/v = S2/(S1/t1) = 4/(3/120) = 160 с
5.
3 Мбайта = 3*1024 Кбайт = 3072 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (3072/60)*40 = 2048 Кбайт
// 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)