Функциональное и аппликативное программирование

Министерство  образования и науки РФ

Государственное бюджетное образовательного учреждение высшего профессионального образования  «Тверской Государственный Университет»

 

Факультет Прикладной математики и кибернетики

 

Расчётно-графическая  работа по дисциплине

«Теоретические  основы информатики»

На тему:

Функциональное  и аппликативное программирование

 

 

 

 

 

Выполнил: студент 10 группы

Иванов Иван Иванович

 

Научный руководитель:

Петров Петр Петрович

 

 

 

 

 

 

Тверь 2013

 

Вариант № 65.

Написать структурированную  программу. Найти наибольшее число, больше Х, в десятичной записи которого цифра 2 встречается не менее трех раз. По данной структурированной программе  составить функциональную.

 

Alg Prog;

arg x;

count=0;

while count=0 do

x=s(x);

num=x;

while 0<num do

if num%10=2 then

count=s(count);

end;

num=num:10;

end;

if 3>count then

count=0;

end;

end;

Prog=x;

end;

 

 

 

 

 

 

Alg A;

arg x;

A = Main(x);

end;

 

Sub Main;

arg x;

if 3>Div(x,0) then

Main=Main(s(x));

end;

else

Main=x;

end;

end;

 

Sub Div;

arg num,count;

if 0<num then

if num%10=2 then

Div=Div(num/10, s(count));

end;

else

Div=Div(num/10, count);

end;

end;

else

Div=count;

end;

end;