Номер 1
использовать Робот
алг
нач
нц пока сверху свободно
вверх
кц
нц пока сверху стена
закрасить
влево
кц
нц пока сверху не стена
влево
кц
нц пока сверху стена
закрасить
влево
кц
вверх
вправо
нц пока снизу стена
закрасить
вправо
кц
нц пока снизу не стена
вправо
кц
нц пока снизу стена
закрасить
вправо
кц
кон
Номер 2
использовать Робот
алг
нач
нц пока сверху стена
закрасить
влево
кц
вправо
нц пока сверху стена
если справа не свободно то
вправо
все
если справа свободно то
вправо
если сверху стена то
закрасить
все
все
кц
влево
нц пока снизу не стена
вниз
кц
нц пока слева не стена и снизу стена
закрасить
влево
кц
кон
Консольные программы — это наследие старых операционных систем типа MS DOS, работавших в текстовом режиме. Полной аналогии здесь нет, но создатели систем разработки пытаются сделать всё, чтобы было максимальное сходство. Для консольной программы операционная система или система разработки предоставляет специальное окно (обычно — черного цвета), в котором виден ход выполнения программы.
Оконное приложение всегда имеет своё собственное окно (обычно его называют главным окном приложения). Кроме главного окна в приложении могут использоваться множество других окон.
При разработке оконного приложения используются различные элементы управления: командные кнопки, окна ввода, надписи, меню и т.д.
Поделитесь своими знаниями, ответьте на вопрос:
Дан одноmерный массuв целыx чисeл из n элементов. найти и вывести номера элемeнтов, заканчивaющиxся цифpoй 0. вроде нужно в pascal'e делать. сама пробовала, а завтра уже сдавать, всю неделю мучалась, так и не поняла : (
var a: array[1..n] of integer;
i: integer;
begin
//заполнение массива
//и вывод массива на экран
randomize;
writeln('элементы массива:');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
//обработка массива и вывод на экран
//элементов, оканчивающихся на 0
for i:=1 to n do
if a[i] mod 10 = 0 then
writeln('номер элемента: ',i,' значение: ',a[i]);
end.