Coś w tym stylu?
uses crt,sysutils;
const Tb:array[0..10,0..4]of String=
(
(
' @@ ',
'@ @',
'@ @',
'@ @',
' @@ '
),
(
' ',
' ',
' 1 ',
' ',
' '
),
(
' ',
' ',
' 2 ',
' ',
' '
),
(
' ',
' ',
' 3 ',
' ',
' '
),
(
' ',
' ',
' 4 ',
' ',
' '
),
(
' ',
' ',
' 5 ',
' ',
' '
),
(
' ',
' ',
' 6 ',
' ',
' '
),
(
'@@@',
' @',
' @ ',
'@ ',
'@ '
),
(
' ',
' ',
' 8 ',
' ',
' '
),
(
' ',
' ',
' 9 ',
' ',
' '
),
(
' ',
' @ ',
' ',
' @ ',
' '
)
);
procedure WriteBig(const str:String);
var px,py,p,i,y,m,ym:Integer;
begin
px:=WhereX;
py:=WhereY;
for i:=1 to Length(str) do
begin
if str[i]=':' then p:=10
else p:=Ord(str[i])-Ord('0');
if (0<=p)and(p<=10) then
begin
m:=0;
for y:=0 to 4 do
begin
GotoXY(px,py+y-2);
Write(Tb[p,y]);
ym:=Length(Tb[p,y]);
if m
end;
Inc(px,m+1);
end;
end;
end;
begin
WriteLn;
WriteLn;
Write('jest godzina: ');
WriteBig(FormatDateTime('hh:nn:ss',Now));
ReadLn;
end.