измерения информации. 2 Классификация компьютеров по производительности и характеру использования 3 Всемирная паутина 4. Электронный ключ. Вариант 3 1. Дайте понятие оперативной памяти. 2. Дайте понятие операционной системы. Ее основные функции. 3. Используя символы * и ? запишите шаблон поиска следующей группы файлов и папок: a. Все файлы на диске А: с именем trk b. Все файлы на диске C: с расширением .bmp, у которых имя состоит из трех символов c. Все файлы на диске D: d. Все файлы на диске D: имена, которых начинаются с p и состоят из четырех символов 4. Переведите в двоичную систему счисления число 6110 5. Переведите в десятичную систему счисления число 1111012 6. Для чего предназначена «Корзина» в ОС Windows? 7. Чему равен 1 байт? 8. Сколько ярлыков видно в правом окне обозревателя: скрин 1
9. Какую функцию выполняет кнопка sqrt: скрин 2
10. Какой комбинацией клавиш можно вызвать диспетчер задач Windows? 11. Что позволяет сделать кнопка в строке заголовка окна? 12. С чего начинается ввод формулы в программе Excel?
13. Какие из этих папок не имеют вложенных папок: скрин 3
14. Какому типу файлов соответствует значок ? 15. Какая функция выбрана на предложенном рисунке? Для чего используют эту функцию? скрин 4
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
procedure Input(var a:array of integer); begin a:=ReadArrInteger('Вводите через пробел рост в см:',a.Length) end;
procedure MyMax(a:array of integer; var mr:integer); begin mr:=a.Max end;
procedure KMax(a:array of integer; mx:integer; var km:integer); begin km:=a.Where(t->t=mx).Count end;
begin var n:=ReadInteger('Количество учеников:'); var r:=new integer[n]; Input(r); var maxR,kol:integer; MyMax(r,maxR); KMax(r,maxR,kol); Writeln('Максимальный рост ',maxR,' имеют ',kol,' чел.') end.
Пример Количество учеников: 5 Вводите через пробел рост в см: 170 168 171 159 171 Максимальный рост 171 имеют 2 чел.
На самом деле, это задание - прекрасный пример того, как НЕ НУЖНО использовать процедуры. Потому что без процедур эта же задача решается гораздо короче, занимает меньше памяти и быстрее работает. Ниже - текст такой программы в качестве иллюстрации написанного.
begin var a:=ReadArrInteger('Вводите через пробел рост в см:', ReadInteger('Количество учеников:')); var maxR:=a.Max; var kol:=a.Where(t->t=maxR).Count; Writeln('Максимальный рост ',maxR,' имеют ',kol,' чел.') end.
// Внимание! Если программа не работает, обновите версию!
1)
procedure Add(a,b:integer; var r:integer);
begin
r:=a+b
end;
begin
var (x,y):=ReadInteger2('Введите два целых числа:');
var z:integer;
Add(x,y,z);
Writeln('Их сумма равна ',z)
end.
Пример
Введите два целых числа: 18 142
Их сумма равна 160
2)
function Min3(a,b,c:integer):=Min(a,Min(b,c));
begin
var (i,j,k):=ReadInteger3('Введите три целых числа:');
Writeln('Минимальное равно ',Min3(i,j,k))
end.
Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4