Вариант 1
Для чего предназначен оператор LINE?
Для рисования линий;
Для вывода на экран точки;
Для закрашивания замкнутой поверхности;
Для переключения в графический режим.
Какой оператор рисует окружность?
CIRCLE;
PSET;
SCREEN;
LINE.
Чему равно значение У в операторе PSET (5, 90), 15?
90;
5;
15;
0.
Укажите верную запись оператора.
LINE (100, 100) – (200, 200), 2
LINE (100; 100) – (200; 200), 5, В
LINE (100, 100) – (200, 200) 5, В
LINE (100-100) – (200-200) 7, ,
В какой строке программы компьютером будет выдана ошибка?
1;
2;
3;
4
Какая буква будет нарисована в результате выполнения программы?
Р
П
Н
В
Для чего предназначен оператор PAINT?
Для переключения в графический режим;
Для вывода на экран точки;
Для очистки экрана;
Для закрашивания замкнутой поверхности.
В какой строке программы компьютером будет выдана ошибка?
5;
2;
3;
4
Какая буква будет нарисована в результате выполнения программы?
Р
И
Н
В
2.Мама обрадовала Петю: он совсем не ожидал получить компьютер на день рождения.
3. Учительница сказала, что сегодня мы будем работать на компьютере.
4. Паскаль- самый сложный язык в программировании на компьютере.
5. Вова обожал играть в видеоигры на компьютере.
6. "Ребята, сегодня наш класс пойдёт смотреть в технический музей на первые компьютеры"- сказала учительница.
7. Бабушка удивилась, что Катенька так быстро печатает на компьютере.
8. Настя была опечалена: из-за сломанного usb-порта компьютер не воспринимал съемный носитель.
9. Первые компьютеры были очень большими.
10. Милана очень хотела новый компьютер, но папа посчитал нужным подарить ей книги.
begin
var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
a.Println;
var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
.Select(x->x.Item2).ToArray;
if b.Count<>2 then
Writeln('Количество отрицательных элементов не равно двум')
else begin
a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
.Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
a.Println
end
end.
Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0
Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.