Перевести с Pascal в QBasic

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

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

Листинг программы
  1. var
  2. A: array[1..10, 1..10] of integer;
  3. M, N, i, j: byte;
  4. begin
  5. write('M = ');
  6. readln(M);
  7. write('N = ');
  8. readln(N);
  9. for i := 1 to M do //строки
  10. begin
  11. for j := 1 to N do //столбцы
  12. begin
  13. a[i, j] := 5 * j;
  14. write(a[i, j]:4)
  15. end;
  16. writeln
  17. end
  18. end.

Решение задачи: «Перевести с Pascal в QBasic»

textual
Листинг программы
  1. DIM A (1 TO 10, 1 TO 10) AS INTEGER
  2. DIM M, N, i, j AS INTEGER
  3. INPUT "M = ", M
  4. INPUT "N = ", N
  5. FOR i = 1 TO M
  6.    FOR j = 1 TO N
  7.       A(i, j) =  5 * j
  8.       PRINT USING "####"; A(i, j);
  9.    NEXT: PRINT
  10. NEXT

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

  1. Объявляются переменные: M, N, i, j, A(1 TO 10, 1 TO 10)
  2. Пользователю предлагается ввести значения для переменных M и N
  3. Используя цикл for, присваиваем ячейкам матрицы A значения 5*j
  4. Выводим значения ячеек матрицы A с помощью цикла for и оператора print
  5. Завершаем выполнение программы

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


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

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

15   голосов , оценка 3.8 из 5

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

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

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