Вариант 1
1. Коля, Петя, Саша и Ваня заняли первые четыре места в велокроссе. На во какие места они
заняли, мальчики ответили:
1) Коля не занял ни первое, ни четвёртое место.
2) Петя занял второе место.
3) Саша не был последним.
Кто занял первое место? ответ запишите в виде таблицы
2. Латинские буквы K, H, T, W закодированы двоичными числами:
K H T W
111 011 100 110
Какая последовательность букв закодирована двоичной строкой 111110100011?
3. Укажите имя файла, удовлетворяющее маске:?ese*ie.?t*
1. seseie.ttx
2. esenie.ttx
3. eseie.xt
4. eseie.xt
4. Файл размером 1,5 Кбайт передаётся через некоторое соединение 21 секунду. Сколько секунд
будет передаваться через это же соединение файл размером 512 байт?
5. Завершив работу с файлами каталога С:\ДОКУМЕНТЫ\ФОТО\2017\ПРИРОДА, пользователь
поднялся на три уровня вверх, потом спустился в каталог ЭКЗАМЕН и после этого спустился в
каталог ИНФОРМАТИКА. Укажите полный путь для того каталога, в котором оказался
пользователь:
1. С:\ДОКУМЕНТЫ\ФОТО\ИНФОРМАТИКА
2. С:\ДОКУМЕНТЫ\ИНФОРМАТИКА\ЭКЗАМЕН
3. С: \ДОКУМЕНТЫ\ЭКЗАМЕН\ИНФОРМАТИКА
4. С:\ДОКУМЕНТЫ\ФОТО\2017\ПРИРОДА\ЭКЗАМЕН\ ИНФОРМАТИКА
6. Несжатое растровое изображение размером 256×64 пикселей занимает 16 Кбайт памяти. Каково
максимально возможное число цветов в палитре изображения?
7. Брошюра содержит 16 страниц, на каждой из которых в среднем по 32 строки, содержащих 64
символов каждая. Сколько килобайт составляет информационный объём текстового файла с
брошюрой, если для кодирования текста использована 8-битная кодировка КОИ-8? пгомогите
Файл - это набор данных, который хранится на носителе и имеет имя.
n=7;
type
V=array[1..n] of real;
procedure InitMas(var a:V; fn:string);
{ инициализция массива из файла }
var
i:integer;
f:Text;
begin
Assign(f,fn);
Reset(f);
for i:=1 to n do
if not Eof(f) then Read(f,a[i]) else a[i]:=0;
Close(f)
end;
procedure MyProc(var a:V; t:real; var k:integer);
{ замена значением t элементов массива, меньших t }
var
i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]<t then begin a[i]:=t; Inc(k) end
end;
procedure OutMas(var a:V; an:string);
{ вывод элементов массива }
var
i:integer;
begin
Writeln('Массив '+an);
for i:=1 to n do Write(a[i],' ');
Writeln
end;
procedure Work(var a:V; fn,an:string; t:real; var k:integer);
{ полный цикл обработки массива по заданию }
begin
InitMas(a,fn);
MyProc(a,t,k)
end;
var
P,C:V;
k1,k2:integer;
t:real;
begin
Writeln('Введите значение T: '); Read(t);
Work(P,'p.dat','P',t,k1);
Work(C,'c.dat','C',t,k2);
if k1=k2 then Writeln('Число замен равно ',k1)
else
if k1>k2 then OutMas(P,'P') else OutMas(C,'C')
end.
Тестовое решение:
Введите значение T:
0.005
Массив P
0.005 1.54 0.005 0.005 0.005 1.2 0.005