Achtung! Перевод из паскаля в бейсик уже 3 часа сижу - QBasic

Формулировка задачи:

Люди добрые, помогите перевести сие творение ку бейсик.
const
  n=5;
var
  a,b:array[1..n]of integer;
  c:array[1..2*n]of integer;
  d:integer;
begin
  for d:=1 to n do
    begin
      a[d]:=random(100);
      write(a[d]:3);
    end;
  writeln;
  for d:=1 to n do
    begin
      b[d]:=random(100);
      write(b[d]:3);
    end;
  writeln;
  for d:=1 to n do
    begin
      c[2*d-1]:=a[d];
      c[2*d]:=b[d];
    end;
  for d:=1 to 2*n do
    write(c[d]:3);
  readln;
end.

Код к задаче: «Achtung! Перевод из паскаля в бейсик уже 3 часа сижу - QBasic»

textual
CLS
RANDOMIZE TIMER
n = 5: d = 0
DIM a(1 TO n) AS INTEGER
DIM b(1 TO n) AS INTEGER
DIM c(1 TO 2 * n) AS INTEGER
FOR d = 1 TO n
   a(d) = INT(RND * 100)
   PRINT USING "####"; a(d);
NEXT d: PRINT
FOR d = 1 TO n
   b(d) = INT(RND * 100)
   PRINT USING "####"; b(d);
NEXT d: PRINT
FOR d = 1 TO n
   c(2 * d - 1) = a(d)
   c(2 * d) = b(d)
NEXT d
FOR d = 1 TO 2 * n
   PRINT USING "####"; c(d);
NEXT d
END

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ