Bài tập tin 11
B4-?? Rô bốt
Vì phải đi đủ 4 hướng nên ta cho rô bốt đến điểm cách x1, y1 một đơn vị Nếu x1>0 và y1>0 thì x1 :=x1+1 ; y1 :=y1+1, bài toán đơn giản như thế này var x1,y1,x,y:integer; s:string; begin write('Nhap toa do Robot:'); readln(x1,y1); inc(x1); inc(y1); while (x...
Vì phải đi đủ 4 hướng nên ta cho rô bốt đến điểm cách x1, y1 một đơn vị Nếu x1>0 và y1>0 thì x1 :=x1+1 ; y1 :=y1+1, bài toán đơn giản như thế này var x1,y1,x,y:integer; s:string; begin write('Nhap toa do Robot:'); readln(x1,y1); inc(x1); inc(y1); while (x...
Các ý kiến mới nhất