DİJİTAL SAAT Saat program calıştırıldığı andan itibaren çalışmaya başlar.
uses crt;
var
x,y,z:integer;
k,l:integer;
T2,a,b,c,d:real;
begin clrscr;
repeat
write(#201);
gotoxy(80,1);
write(#187);
gotoxy(80,49);
write(#188);
gotoxy(1,49);
write(#200);
for k:=2 to 79 do
begin
gotoxy(k,1);
write(#205);
end;
for k:=1 to 47 do
begin
gotoxy(1,49-k);
write(#186);
end;
for k:=2 to 79 do
begin
gotoxy(k,49);
write(#205);
end;
for k:=2 to 48 do
begin
gotoxy(80,50-k);
write(#186);
end;
begin
gotoxy(35,10); write('KENAN BALCI');
gotoxy(32,12); write('GAZI UNIVERSITESI');
end;
gotoxy(45,22);
write(#187);
gotoxy(45,26);
write(#188);
gotoxy(34,26);
write(#200);
gotoxy(34,22);
write(#201);
gotoxy(34,23);
write(#186);
gotoxy(34,24);
write(#186);
gotoxy(34,25);
write(#186);
gotoxy(45,23);
write(#186);
gotoxy(45,24);
write(#186);
gotoxy(45,25);
write(#186);
for k:=35 to 44 do
begin
gotoxy(k,26);
write(#205);
end;
for k:=35 to 44 do
begin
gotoxy(k,22);
write(#205);
end;
begin
gotoxy(38,24);
write(':');
gotoxy(41,24);
write(':');
gotoxy(36,24);
write('00');
gotoxy(39,24);
write('00');
gotoxy(42,24);
write('00');
for z:=1 to 23 do
begin
for y:=1 to 59 do
begin
for x:=0 to 59 do
begin
gotoxy(42,24);
if x<10 then write('0',x)
else write(x:2);
delay(1000);
end;
gotoxy(39,24);
if y<10 then write('0',y)
else write(y:2);
end;
gotoxy(36,24);
if z<10 then write('0',z)
else write(z:2);
end;
end;
until readkey=#27;
readkey;
end.
uses crt;
var
x,y,z:integer;
k,l:integer;
T2,a,b,c,d:real;
begin clrscr;
repeat
write(#201);
gotoxy(80,1);
write(#187);
gotoxy(80,49);
write(#188);
gotoxy(1,49);
write(#200);
for k:=2 to 79 do
begin
gotoxy(k,1);
write(#205);
end;
for k:=1 to 47 do
begin
gotoxy(1,49-k);
write(#186);
end;
for k:=2 to 79 do
begin
gotoxy(k,49);
write(#205);
end;
for k:=2 to 48 do
begin
gotoxy(80,50-k);
write(#186);
end;
begin
gotoxy(35,10); write('KENAN BALCI');
gotoxy(32,12); write('GAZI UNIVERSITESI');
end;
gotoxy(45,22);
write(#187);
gotoxy(45,26);
write(#188);
gotoxy(34,26);
write(#200);
gotoxy(34,22);
write(#201);
gotoxy(34,23);
write(#186);
gotoxy(34,24);
write(#186);
gotoxy(34,25);
write(#186);
gotoxy(45,23);
write(#186);
gotoxy(45,24);
write(#186);
gotoxy(45,25);
write(#186);
for k:=35 to 44 do
begin
gotoxy(k,26);
write(#205);
end;
for k:=35 to 44 do
begin
gotoxy(k,22);
write(#205);
end;
begin
gotoxy(38,24);
write(':');
gotoxy(41,24);
write(':');
gotoxy(36,24);
write('00');
gotoxy(39,24);
write('00');
gotoxy(42,24);
write('00');
for z:=1 to 23 do
begin
for y:=1 to 59 do
begin
for x:=0 to 59 do
begin
gotoxy(42,24);
if x<10 then write('0',x)
else write(x:2);
delay(1000);
end;
gotoxy(39,24);
if y<10 then write('0',y)
else write(y:2);
end;
gotoxy(36,24);
if z<10 then write('0',z)
else write(z:2);
end;
end;
until readkey=#27;
readkey;
end.
