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

  1. Люди добрые, помогите перевести сие творение ку бейсик. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 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.


textual

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

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



Похожие ответы
  1. Здравствуйте. Подскажите пожалуйста с переводом кода из Fortran.Fortran1 2 3 4 5 6        DO 5 I=1,N 5      Y1(I)=Z(I)*H        IF (E_1) 6, 7, 6 6      IF (E_2) 8, 9, 8 8      IF (E_3) 10, 11, 10 10     IF (E_4) 12, 13, 12 тд. Если перевести в QBasic то тогда это будет так?PureBasic1 2 3 4 5 6 7 8 9             Do while 5                For I=1 to N 5           Y1(I)=Z(I)*H             IF (E_1) Then GOTO 6             IF (E_1) Then GOTO 7             IF (E_1) Then GOTO 6 ...............и тд............................                 Next I             LoopИли нужно делать оператор Do без While?

  1. 1. подскажу плиз как в qbasic написать программу перевода из двоичной сс в восьмиричную .......очень нада)) 2. из восьмиричной обратно в двоичную)))

  1. Ребят, у меня тут возникла следующая проблема. Мне нужно выполнить следующие задание :(Дано целое число n<80. Вывести его в троичной системе счисления) Помогите пожалуйста.

  1. 4. Написать функцию для перевода чисел из двоичной системы счисления в троичную. Пожалуйста помогите,если не трудно(

  1. Я начинающий, прошу покажите пожалуйста эту программу...и еще нельзя использовать массивы и вообще за основу программы можно брать только FOR-TO-STEP и IF-THEN

  1. Перевести действительное число X заданное в системе счисления с основанием q в систему счисления с основанием p (2≤q,p≤16) С помощью генератора случайных чисел (RND) создать и вывести на экран массив А 5x5 случайных действительных чисел в диапазоне от 2 до 4. Определить по А и вывести диагональную матрицу B 10х10 так, чтобы элементы главной диагонали определялись как произведение по соответствующим столбцам. Пожалуйста помогите и объясните как это сделать. Заранее благодарен.

  1. Нужно составить программу: Перевести действительное число X заданное в системе счисления с основанием q в систему счисления с основанием p (2≤q,p≤16) {Использовать правило замещения и правило деления-умножения} P.S Правильно ли я понял что здесь нужно перевести число X из двоичной системы в шестнадцатиричную?

  1. Помогите написать программу в Qbasic перевод из десятичной в шестнадцатеричную любое число!!!!!из за этого могут из колледжа выгнать!!!!Пожалуйста

  1. Помогите пожалуйста вот задали 6 задач в QBASIC искал на форуме нашел в C++ но с переводом косяки: 1. Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры для значений длин от 1 до 20 дюймов. 1 дюйм = 2,54 см. (1 балл) 2. Напишите программу вывода всех четных чисел от 2 до 100 включительно. (2 балла) 3. Составьте программу, вычисляющую квадраты всех чисел от 1 до N. (1 балл) 4. Напишите программу, определяющую сумму всех нечетных чисел от 1 до 99. (2 балла) 5. Вычислить: a. 1+2+4+8+…+210 (3 балла) b. (1+2)*(1+2+3)*…*(1+2+…+10) (3 балла) 6. Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число. (2 балла) P.S. решать надо токо циклами.(цикл For...Next) Сделайте если не трудно. Спасибо заранее.