Підсумковий тест на тему «Програмування мовою ТурбоПаскаль» 1. Коментарій до тексту програми включається в:
a) В квадратні дужки
b) В круглі дужки
c) Фігурні дужки
2. Для запису оператора виводу використовується службове слово:
a) Input
b) Writeln
c) Readln
d) Reset
3. Оператори в мові Pascal відділяються один від одного...
a) Пропуском
b) Апострофом
c) Крапкою з комою
d) Двокрапкою
4. Яке значення прийме змінна після виконання оператора X=17 mod 4?
a) 0
b) 4
c) 2
d) 1
5. Вкажіть, які із наведених операторів виведення даних є правильними?
a) Write(X; Y);
b) write(A B);
c) Writeln(A, B);
d) write(A, B*C);
e) Write[X, Y];
6.Тіло циклу це –
a) Будь-яка команда
b) Група команд, яка повторюється декілька разів
c) Довільна група команд
d) Група команд, яка не входить в циклічну структуру
7.Яка з функцій призначена для добування кореня квадратного?
a) Sqr
b) Sgrt
c) Abs
d) log
8.Змінні цілого типу описуються як...
a) Real
b) Xor
c) Integer
d) Char
9. Запишіть значення виразів:
a) 7 DIV 3 =
b) -12 DIV 4 =
c) 1 DIV 2 =
10. Як називається такий оператор мови Паскаль?
if <Умова> then <оператор А>
else <оператор В>;
a) оператор розгалуження
b) скорочений вигляд оператора розгалуження
c) оператор циклу з передумовою
d) оператор циклу з після умовою
e) оператор циклу з параметром
11.Вкажіть, яка з перерахованих справа процедур малює на екрані:
1. Точку a) PutPixel
2. Відрізок прямої b) SetBKColor
3. Дугу c) Arc
4. Прямокутник d) Circle
5. Еліпс e) Rectangle
6. Встановлює колір фону f) Line
7. Коло g) Ellipse
12. Як називається такий оператор мови Паскаль?
repeat
<оператор>
until <Умова>;
a) оператор розгалуження
b) скорочений вигляд оператора розгалуження
c) оператор циклу з передумовою
d) оператор циклу з після умовою
e) оператор циклу з параметром
13. Як називається такий оператор мови Паскаль?
if <Умова> then <оператор>;
a) оператор розгалуження
b) скорочений вигляд оператора розгалуження
c) оператор циклу з передумовою
d) оператор циклу з після умовою
e) оператор циклу з параметром
14. Як називається такий оператор мови Паскаль?
for i:=n1 to n2 do
<оператор>;
a) оператор розгалуження
b) скорочений вигляд оператора розгалуження
c) оператор циклу з передумовою
d) оператор циклу з після умовою
e) оператор циклу з параметром
15.Визначте значення S =? після виконання операторів:
…
X: = 0; S: = 0;
While Х<=5 do
begin
Х: = Х + 1; S: = S + X;
End;
…
e) 5
f) 20
g) 18
h) 15
16.Визначте значення S =? після виконання операторів:
…
S: = 0;
For A:=1 to 5 do
S: = S + A;
…
e) 15
f) 20
g) 10
h) 5
Контрольная работа по теме
«Компьютер как универсальное устройство обработки информации»
(информатика; 7 класс)
1. Как компьютер человеку в его ДЕЯТЕЛЬНОСТИ? КОМПЬЮТЕР НЕ МОЖЕТ НАЙТИ НЕПОНЯТНУЮ ЕМУ ИНФОРМИЦИЮ БЛАГОДОРЯ ЭТОМУ КОМПЬЮТЕР ОБЛЕГЧАЕТ ЖИЗНЬ ЧЕЛОВЕКУ
2. Какие устройства входят в состав компьютера и зачем они НУЖНЫ? МЫШКА ЧТОБЫ ДВИГАТЬ КУРСОРОМ SSS КЛАВИОТУРА ДЛЯ ПИЧАТАНЬЯ ЧЕГО ЛИБО,SSS ЖЁСТКИЙ ДИСК НА НЕМ ХРОНЯТСЯ ФАЙЛЫ, ДАННЫЕ, ИЗОБРАЖЕНИЯ И Т. Д.
3. Перечислите устройства ввода ИНФОРМАЦИИ SSS КЛАВИОТУРА МЫШКА КУРСОР
4. Перечислите устройства вывода ИНФОРМАЦИИ SSS Ы
ФЛЕШКА ЖЁСТКИЙ ДИСК
5. Из каких частей состоит имя ФАЙЛА? SSS ПРОСТИ ТУТ Я НЕ ЗНАЮ
6. Как по имени файла определить в какой программе он СОЗДАН? SSS ТАМ НАПИСАН САЙТ И СЫЛКА
7. В чём состоит различие между одноуровневой и иерархической файловой СИСТЕМАМИ? SSS НЕ ЗНАЮ СОРИ
8. Перечислите основные типы программного обеспечения компьютера. Приведите примеры ПО по типам. SSS ИНТЕРНЕТ БЫСТРЫЙ ПОИСК (ЧЕГО-ЛИБО) СОТ СЕТИ
9. К каким последствиям может привести заражение компьютера ВИРУСАМИ? SSS СБРАШЕВАНИЕ ДАННЫХ МОМЕНТАЛЬНАЯ СЕВШАЯ БАТАРЕЯ И И ЗАХВАТЫВАНИЕ АККАУНТА
10. Какие типы компьютерных вирусов СУЩЕСТВУЮТ? SSS НЕЗНАЮ
11. Каким антивирусные программы обнаруживают ВИРУСЫ? ОНИ СКАНИРУЮТ ВСЕ ПРОГРАММЫ И ЕСЛИ В ПРОГРАММЕ НЕ НОРМАЛЬНАЯ ОШИБКА ОНИ СРАЗУ ПИШУТ И ОБНАРУЖИВАЮТ
Объяснение:
СДЕЛАЙ ОТВЕТ ЛУТШИМ Я СТАРАЛСЯ
// Внимание! В других версиях работа не гарантируется!
begin
var a:=ArrRandom(15,-20,20); a.Println;
a:=a.Select(x->x.IsOdd?x*3:x div 2).ToArray; a.Println
end.
Пример
-1 -2 8 8 19 -12 13 -11 -7 -10 3 5 -18 4 3
-3 -1 4 4 57 -6 39 -33 -21 -5 9 15 -9 2 9
А вот так это же самое обычно делают в школах...
const
n=15;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=Random(41)-20;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do begin
if a[i] mod 2=0 then a[i]:=a[i] div 2
else a[i]:=a[i]*3;
Write(a[i],' ')
end;
Writeln
end.