在Keil C51或uVision中编写延时程序，可以使用以下几种方法：
方法一：使用循环和计数器
```c
void delay（unsigned int n） {
unsigned int i, j；
for （j = n； j > 0； j--）
for （i = 112； i > 0； i--）；
}
```
这个函数通过内部的循环实现延时，每个外部循环包含112个内部循环，每个内部循环包含一个机器周期，因此延时时间大约为112个机器周期，即112微秒。
方法二：使用SysTick定时器
```c
__weak void std_delayus（uint32_t count） {
count = STD_DELAY_US * count；
count = count > 16777216 ？ 16777216 : count；
SysTick->LOAD = count - 1；
SysTick->VAL = 0；
while（!（（SysTick->CTRL >> 16） & 0x1））；
}
```
这个函数使用SysTick定时器实现微秒级的延时。`STD_DELAY_US`是一个预定义的常量，表示每个计数周期的延迟时间（以微秒为单位）。这个函数是弱函数，用户可以选择其他定时器重新定义实现该函数。
方法三：使用中断
```c
void delay_ms（unsigned int ms） {
unsigned int i；
for （i = ms * 1000； i > 0； i--）
；
}
```
这个函数通过一个简单的循环实现毫秒级的延时。注意，这个方法的延时精度受限于循环的执行时间和CPU的时钟频率。
方法四：使用汇编语言
```assembly
ORG 0000H
LJMP DELAY
DELAY:
MOV R7, 0A7H ； 100000000H
DELAY1:
MOV R6, 0ABH ； 101010100H
DELAY2:
MOV R5, 09H
DJNZ R5, DELAY2
DJNZ R6, DELAY1
DJNZ R7, DELAY
RET
```
这个汇编语言程序通过循环实现100000000微秒（即1秒）的延时。这种方法可以实现非常精确的延时，但需要一定的汇编语言基础。
建议
选择合适的方法：根据项目需求选择合适的延时方法。如果需要高精度延时，建议使用SysTick定时器或汇编语言。
考虑晶振频率：延时程序的精度与晶振频率密切相关。确保晶振频率设置正确，以获得所需的延时精度。
避免阻塞：在使用循环实现延时时，注意不要阻塞CPU，以免影响其他任务的执行。可以考虑使用定时器或中断来实现非阻塞延时。
通过以上方法，可以在Keil C51或uVision中编写出精确的延时程序。