Як намалювати ім'я Ярик в скретч

Информатика

Ответить

Ответы

soclive7762

20.01.2020

Объяснение:

procedure F(n: integer);

begin

if n>0 then begin

Write (n);

F(n-2);

F(n div 4);

end

end;

begin

F(9);

end.

На выходе будет 97531112

Если нужна трассировка, её можно сделать примерно так:

procedure F(n: integer);

begin

Writeln('Вход');

if n>0 then begin

Writeln ('В выходную строку: ',n);

Writeln('Вызов F(n-2)');

F(n-2);

Writeln('Вызов F(n div 4)');

F(n div 4);

end;

Writeln('Выход')

end;

begin

F(9);

end.

Результат трассировки:

Вход

В выходную строку: 9

Вызов F(n-2)

Вход

В выходную строку: 7

Вызов F(n-2)

Вход

В выходную строку: 5

Вызов F(n-2)

Вход

В выходную строку: 3

Вызов F(n-2)

Вход

В выходную строку: 1

Вызов F(n-2)

Вход

Выход

Вызов F(n div 4)

Вход

Выход

Вызов F(n div 4)

Вход

Выход

Вызов F(n div 4)

Вход

В выходную строку: 1

Вызов F(n-2)

Вход

Выход

Вызов F(n div 4)

Вход

Выход

Вызов F(n div 4)

Вход

В выходную строку: 1

Вызов F(n-2)

Вход

Выход

Вызов F(n div 4)

Вход

Выход

Вызов F(n div 4)

Вход

В выходную строку: 2

Вызов F(n-2)

Вход

Выход

Вызов F(n div 4)

Вход

Выход

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Як намалювати ім'я Ярик в скретч

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

нарисовать кота по фотографии под номером 8 в Паскале. Из-за болезни начал отставать и теперь не знаю как сделать.

Заполнить произвольный массив размером n x n (n< 10) по следующему правилу: а) 10000 01000 00100 01000 10000. б) 11111 22220 33300 44000 50000pascal abcбыстрее

с Паскалем, он пишет: Program1.pas(10) : Встречено 'writeln', а ожидалось ';' Программа: program z66; var k: integer; a, S: real; BEGIN writeln ('Подсчёт заработка продавца'); write ('Введите с...

3.сообщение составленное, с 64—символьного алфавита, содержит 870 символов. какой объем информации оно несет?

В каком из условных операторов допущена ошибка? Какая? 1) if (a>b) and (b<0) then c: = a+b ; 2) if a>b then max: = a else max:= b ; 3) if a 4) if b=0 then writeln ( 'Деление невозможно.' ) ;

Информацию определяют в байтахкилометрахботахкилограммахкБайтахбитах

Эссе на тему все самое интересное о 3d мире

Для переменных Y типа Real и N типа Integer правильным оператором присвоения является: a) N:=N/2; b)N:=Y+1; c) Y:=N div 2; d) N:=Sqrt(Y);

Дано вещественное число - цена 1 кг конфет, вывести стоимость 100г, . записать на языке pascal

1.приведите примеры Использование увеличенной 3Д модели реального объекта

Перевести 3072 байта в биты 256 бит в байт 2048 байт в килобайт 2 мегабайт в байт 12288 бит в килобайт

Як намалювати ім'я Ярик в скретч​

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

нарисовать кота по фотографии под номером 8 в Паскале. Из-за болезни начал отставать и теперь не знаю как сделать.

Заполнить произвольный массив размером n x n (n&lt; 10) по следующему правилу: а) 10000 01000 00100 01000 10000. б) 11111 22220 33300 44000 50000pascal abcбыстрее

с Паскалем, он пишет: Program1.pas(10) : Встречено 'writeln', а ожидалось ';' Программа: program z66; var k: integer; a, S: real; BEGIN writeln ('Подсчёт заработка продавца'); write ('Введите с...

3.сообщение составленное, с 64—символьного алфавита, содержит 870 символов. какой объем информации оно несет?

В каком из условных операторов допущена ошибка? Какая? 1) if (a&gt;b) and (b&lt;0) then c: = a+b ; 2) if a&gt;b then max: = a else max:= b ; 3) if a 4) if b=0 then writeln ( 'Деление невозможно.' ) ;

Информацию определяют в ￼байтах￼километрах￼ботах￼килограммах￼кБайтах￼битах​

Эссе на тему все самое интересное о 3d мире

Для переменных Y типа Real и N типа Integer правильным оператором присвоения является: a) N:=N/2; b)N:=Y+1; c) Y:=N div 2; d) N:=Sqrt(Y);

Дано вещественное число - цена 1 кг конфет, вывести стоимость 100г, . записать на языке pascal

1.приведите примеры Использование увеличенной 3Д модели реального объекта​

Перевести 3072 байта в биты 256 бит в байт 2048 байт в килобайт 2 мегабайт в байт 12288 бит в килобайт

Як намалювати ім'я Ярик в скретч

Заполнить произвольный массив размером n x n (n< 10) по следующему правилу: а) 10000 01000 00100 01000 10000. б) 11111 22220 33300 44000 50000pascal abcбыстрее

В каком из условных операторов допущена ошибка? Какая? 1) if (a>b) and (b<0) then c: = a+b ; 2) if a>b then max: = a else max:= b ; 3) if a 4) if b=0 then writeln ( 'Деление невозможно.' ) ;

Информацию определяют в байтахкилометрахботахкилограммахкБайтахбитах

1.приведите примеры Использование увеличенной 3Д модели реального объекта