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

Узнай цену своей работы

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

Люди добрые, помогите перевести сие творение ку бейсик.
Листинг программы
  1. const
  2. n=5;
  3. var
  4. a,b:array[1..n]of integer;
  5. c:array[1..2*n]of integer;
  6. d:integer;
  7. begin
  8. for d:=1 to n do
  9. begin
  10. a[d]:=random(100);
  11. write(a[d]:3);
  12. end;
  13. writeln;
  14. for d:=1 to n do
  15. begin
  16. b[d]:=random(100);
  17. write(b[d]:3);
  18. end;
  19. writeln;
  20. for d:=1 to n do
  21. begin
  22. c[2*d-1]:=a[d];
  23. c[2*d]:=b[d];
  24. end;
  25. for d:=1 to 2*n do
  26. write(c[d]:3);
  27. readln;
  28. end.

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

textual
Листинг программы
  1. CLS
  2. RANDOMIZE TIMER
  3. n = 5: d = 0
  4. DIM a(1 TO n) AS INTEGER
  5. DIM b(1 TO n) AS INTEGER
  6. DIM c(1 TO 2 * n) AS INTEGER
  7. FOR d = 1 TO n
  8.    a(d) = INT(RND * 100)
  9.    PRINT USING "####"; a(d);
  10. NEXT d: PRINT
  11. FOR d = 1 TO n
  12.    b(d) = INT(RND * 100)
  13.    PRINT USING "####"; b(d);
  14. NEXT d: PRINT
  15. FOR d = 1 TO n
  16.    c(2 * d - 1) = a(d)
  17.    c(2 * d) = b(d)
  18. NEXT d
  19. FOR d = 1 TO 2 * n
  20.    PRINT USING "####"; c(d);
  21. NEXT d
  22. END

Объяснение кода листинга программы

В этом коде происходит следующее:

  1. Объявляются переменные:
    • n (число),
    • d (число),
    • a (массив целых чисел),
    • b (массив целых чисел),
    • c (массив целых чисел).
  2. Заполняются массивы a и b случайными числами от 0 до 99.
  3. Заполняется массив c, где каждый элемент - это сумма соответствующих элементов из массивов a и b.
  4. Выводятся все элементы массива c.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы