8.14.10
27.06.2022
JS: 2.15.10
CSS: 4.9.15
jQuery: 3.6.0
DataForLocalStorage: 2022-08-09 09:46:01-standard
Программирование Компьютеры
Создание программ на языках Pascal, Delphi и Lazarus.
Помогите пожалуйста со следующими задачами:
Roman Chaplinsky / Химик CHМодератор ID: 156417 |
= общий =
22.02.2009, 16:34
1) вывод идёт на экран и в файл
Код uses CRT ;
var f:text; N:integer;
procedure movetop(mfrom,mto:char; h:integer); forward; //предописание рекурсивной процедуры
procedure movetop(mfrom,mto:char; h:integer); //описание процедуры
var third:char ;
begin
if h=1 then begin
writeln(h,' from ',mfrom,' to ',mto);
writeln(f, h,' from ',mfrom,' to ',mto); end
else begin
if (((mfrom='A')and(mto='B'))or((mfrom='B')and(mto='A'))) then third:='C'
else begin if (((mfrom='A')and(mto='C'))or((mfrom='C')and(mto='A'))) then third:='B'
else third:='A';end;
movetop(mfrom,third,h-1);
writeln(h,' from ',mfrom,' to ',mto);
writeln(f, h,' from ',mfrom,' to ',mto);
movetop(third,mto,h-1);
end;
end; //конец процедуры
begin
assign(f,'output.txt');
rewrite(F);
clrscr;
writeln('input N') ;
readln(N);
writeln;
movetop('A','C',N);
close(f);
readln;
end. |
