1.<br />
Как называется режим работы монитора, при котором программа может управлять отдельными точками на экране монитора, строить по точкам диаграммы и графики, а также выводить на экран растровые изображения?<br />
1)Текстовый режим<br />
2)Растровый режим<br />
3)Векторный режим<br />
4)Графический режим<br />
2.<br />
Холст – это прямоугольная область экрана, доступная для рисования.Рисунки на холсте – это … изображения.<br />
1)Векторные<br />
2)Растровые<br />
3)Фрактальные<br />
4)Трехмерные<br />
3.<br />
В СКИ графических исполнителей есть команды, которые рисуют сразу целые геометрические фигуры. Как называются эти фигуры?<br />
1)Графические объекты<br />
2)Многоугольники<br />
3)Трехмерные объекты<br />
4)Графические примитивы<br />
4.<br />
Команда пиксель Рисователя<br />
1)Добавляет пиксель на холст<br />
2)Изменяет цвет пикселя с заданными координатами<br />
3)Удаляет пиксель с холста<br />
5.<br />
Команда новый лист Рисователя<br />
1)Создает холст<br />
2)Стирает рисунок на холсте<br />
3)Создает новый лист<br />
4)Добавляет новые пиксели на холст
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Неправильно написан поиск минимального и максимального элементов:
Program j;
uses crt;
const n=10;
var a: array [1..n] of integer;
i,min,max:integer;
begin
min:=1; max:=1;
Writeln ('Введите элементы массива');
For i:=1 to n do
Begin
Write ('a[',i: 2,']=');
Readln(a[i]);
End;
Writeln ('Контрольный вывод массива: ');
For i:=1 to n do
Writeln('a[',i:2,']=',a[i]:4);
for i:=1 to n do
begin
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln('Максимальный элемент массива ',a[max],' под номером ',max);
writeln('Минимальный элемент массива ',a[min],' под номером ',min);
end.
Выделенное жирным шрифтом - исправленный вариант.
Теперь программа корректно ищет и минимальный и максимальный элементы, при том проходя массив полностью, а не до первого совпадения, как было в исходной версии.