КашалоТ

у меня есть 2 решённые задачи. Мне нужно понять эти задачи, каждый шаг и знать что обозначает каждый элемент. Помогите пожалуйста расписать эти задачи. Я сама не справлюсь((


1 задача:
Описать процедуру изменяющую порядок следования цифр целого положительного числа К на обратный с помощью этой процедуры. (К-периметр целого типа, являющийся одновременно входным и выходным).

program aaa; (задаём название программе)
Var x, m :integer; (раздел описания переменных функции)
procedure perestanovka(k:integer; Var y: integer);
Var
a:integer;
begin
y:=0;
while k<> 0 do пока k не равна 0 выполнять
begin
a:=k mod 10; {последняя цифра} остаток от деления
y:=y*10+a;
k:=k div 10;
end;
end; {конец процедуры}

begin
write('Четырехзначные числа-палиндромы: ');
for x:=1000 to 9999 do для x= от 1000 до 9999
begin
perestanovka(x,m); выполнение процедуры
if x=m then writeln(x, ' '); если x=m выполнять вывод x
end;
end.

2 задача:
показать движение круга по окружности.

program sputnik;
uses crt, graph, dos;

procedure sputnic (a:integer); {procedura risovaniya sputnika}
const GRAD = 0.0174532; {constanta perescheta ugla: radian-gradus}
var zx, zy: integer;
begin
zx:=Round(320+100*sin(a*GRAD)); {schitaem koordinatu X}
zy:=Round(240-100*cos(a*GRAD)); {schitaem koordinatu Y}
setcolor(15);
circle(zx, zy, 2); {risuem sputnik}
delay(2000); {zhdem}
setcolor(0);
circle(zx, zy, 2); {zakrshivaem staruyu prorisovku}
end;

var gd, gm, i: integer;
begin
gd:=DETECT;
i:=1;
initgraph(gd, gm, ''); {initsializiruem grafiku}
circle(320,240,100);
outtextxy(292, 236, 'okryzhnost'); {risuem okryzhnost}
while not keypressed do begin {cikl poka ne nazhata klavisha}

if i=360 then i:=1; {esli ugol 360 gradusov, to snova 1 gradus}
sputnic(i); {risuem sputnik po uhlu i}
i:=i+1; {plusuem ugol}
end;
closegraph; {zakryvaem grafiku}
end.


Очень сильно надеюсь на помощь!!!

@iama

0