Скачиваний:
289
Добавлен:
04.03.2014
Размер:
1.62 Кб
Скачать
program chislo;
uses crt;

const
n=88;
m=171;

type
mass=array[1..m] of integer;

var
b,c,d : mass;
i,j,k,l: integer;
a : double;

begin
clrscr;
window(1,1,80,4);
gotoxy(1,2);
textcolor(white);
textbackground(green);
a:=exp(n*ln(n));
for i:=1 to 80 do
write('=');
write('=');
write(A);
for i:=1 to 55 do
write(' ');
write('=');
for i:=1 to 80 do
write('=');
window(1,4,80,15);
gotoxy(1,5);
textcolor(white);
textbackground(blue);
for i:=1 to m do
b[i]:=0;
b[1]:=1;
k:=0;
for j:=1 to n do begin
for i:=1 to m do begin
b[i]:=b[i]*n+k;
if b[i]>9 then begin
l:=b[i] mod 10;
k:=(b[i]-l) div 10;
b[i]:=l;
end
else k:=0;
end;
end;
for i:=1 to 80 do
write('*');
for i:=m downto 1 do
write(b[i]);
for i:=1 to 69 do
write(' ');
for i:=1 to 80 do
write('*');
if b[m-25]>=5 then begin
for i:=1 to (m-24) do b[i]:=0;
b[m-24]:=b[m-24]+1;
end
else for i:=1 to (m-25) do b[i]:=0;
window(1,16,80,25);
gotoxy(1,17);
textcolor(Black);
textbackground(White);
for i:=1 to 80 do write('-');
for i:=m downto 1 do write(b[i]);
for i:=1 to 69 do write(' ');
for i:=1 to 80 do write('-');
readln;
end.
Соседние файлы в папке Alex