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

@gleb0147 · Регистрация: 28.12.2016

Author24 — интернет-сервис помощи студентам

Люди добрые, помогите перевести сие творение ку бейсик.

Pascal

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.

@dr_Morro · 29.12.2016, 11:07

QBasic/QuickBASIC

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

Программа даже что-то делает!

(шучу)

@gleb0147 · 30.12.2016, 00:37 **[ТС]**

спасибо)

@dr_Morro · 30.12.2016, 10:03

Сообщение от gleb0147

спасибо)

Не вижу

@gleb0147 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 7
	30.12.2016, 00:37 [ТС]	3
	спасибо) 0

@dr_Morro 195 / 115 / 30 Регистрация: 05.08.2013 Сообщений: 491
	30.12.2016, 10:03	4
	Сообщение от gleb0147 спасибо) Не вижу 0

Опции темы