Катя решает следующую задачу. Дано: Робот в клетке А (см. рисунок Получить: Робот в клетке Б, закрашены все помеченные клетки. Она составила основной алгоритм ; ОСНОВНОЙ АЛГОРИТМ использовать Робот алг из А в Б с закрашиванием дано | Робот в клетке А надо | Робот в клетке Б, закрашены все помеченные клетки нач закрашивание блока обход стены закрашивание блока обход стены закрашивание блока кон Затем вс алгоритм закрашивание блока: ВС АЛГОРИТМ "ЗАКРАШИВАНИЕ БЛОКА" алг закрашивание блока нач нц 4 раз закрасить вправо; закрасить; вправо; закрасить влево; влево; вниз кц закрасить; вправо; закрасить; вправо; закрасить кон Ей осталось доделать вс алгоритм обход стены: ВС АЛГОРИТМ "ОБХОД СТЕНЫ" алг обход стены нач нц ? раз влево кц нц ?? раз вверх кц нц ??? раз вправо кц вниз вниз вправо кон Подскажите Кате, какие числа нужно поставить вместо знаков во Менять саму структуру алгоритма нельзя.) Напишите, какое число нужно поставить вместо "?". Напишите, какое число нужно поставить вместо "??". Напишите, какое число нужно поставить вместо "???".
Ответы
Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
3.Що обов'язково має містити в собі розгалужений алгоритм? *
Автор: webotryvclub21
Зачем нужен штамп, зафиксировать, Сделать копии в Paint 3D
Автор: Хромов1501
Майнкрафт это жизнь?а)да б)нет
Автор: Olgax732
Заменить следующее высказывание в виде логического выражения. число 17 нечетное и двузначное. напишите на лситочке
Автор: zoomagazinkotmatroskin
Величина 34У02 относится к величинам:а) целого типаб) символьного типав) логического типаг) литерного типа
Автор: МихайловнаLarisa1150
умоляю, для зачета необходимо
Автор: гайсанов
var
a,b,c,d,n:integer;
begin
writeln('введите число.(0-юноша,1-девушка).');
readln(n);
if n=0 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=110 then begin
if a<=b then writeln('юноша принят.');
end;
if a>b then writeln('не подходит по весу.');
if b<>110 then writeln('не подходит по росту.');
end;
if n=1 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=115 then begin
if a<=b then writeln('девушка принята.');
end;
if a>b then writeln('не подходит по весу.');
if b<>115 then writeln('не подходит по росту.');
end;
end.