Есть ответ 👍

с задачей: Сформировать дерево синтаксического разбора оператора цикла FOR = TO DO ; поменять узел, чтобы получить оператор: FOR = DOWNTO DO ; Вывести промежуточную и конечную информации.

В программе применить динамичные типы данных, указательные типы. Также применить процедуры для формирования, удаление, поиск для динамических бинарных деревьев. Осуществить ввод и вывод динамических данных.



Сформувати дерево синтаксичного розбору оператора циклу FOR := TO DO ; поміняти вузол, щоб одержати оператор: FOR := DOWNTO DO ; Вивести проміжну та кінцеву інформації.

У програмі застосувати динамічні типи даних, вказівникові типи. Також застосувати процедури для формування, видалення, пошуку для динамічних бінарних дерев. Здійснити введення й виведення динамічних даних.

243
386
Посмотреть ответы 2

Ответы на вопрос:


FOUR TO DO YOU?

YOUR DOW NOT

DO FOR TO

YOUR DOW FOR

Var день,месяц: byte; begin write('№ дня = '); readln(день); var c: =365-день; write('№ месяца = '); readln(месяц); case месяц of 2: c: =c-31; 3: c: =c-59; 4: c: =c-90; 5: c: =c-120; 6: c: =c-151; 7: c: =c-181; 8: c: =c-212; 9: c: =c-243; 10: c: =c-273; 11: c: =c-304; 12: c: =c-334 end; if (c mod 100> 10)and(c mod 100< 20) then write('до нового года осталось ',c,' дней') else case c mod 10 of 1: write('до нового года остался ',c,' день'); 2..4: write('до нового года осталось ',c,' дня'); 0,5..9: write('до нового года осталось ',c,' дней') end end.

Популярно: Информатика