Перевести с Pascal в QBasic
Формулировка задачи:
Листинг программы
- var
- A: array[1..10, 1..10] of integer;
- M, N, i, j: byte;
- begin
- write('M = ');
- readln(M);
- write('N = ');
- readln(N);
- for i := 1 to M do //строки
- begin
- for j := 1 to N do //столбцы
- begin
- a[i, j] := 5 * j;
- write(a[i, j]:4)
- end;
- writeln
- end
- end.
Решение задачи: «Перевести с Pascal в QBasic»
textual
Листинг программы
- DIM A (1 TO 10, 1 TO 10) AS INTEGER
- DIM M, N, i, j AS INTEGER
- INPUT "M = ", M
- INPUT "N = ", N
- FOR i = 1 TO M
- FOR j = 1 TO N
- A(i, j) = 5 * j
- PRINT USING "####"; A(i, j);
- NEXT: PRINT
- NEXT
Объяснение кода листинга программы
- Объявляются переменные: M, N, i, j, A(1 TO 10, 1 TO 10)
- Пользователю предлагается ввести значения для переменных M и N
- Используя цикл for, присваиваем ячейкам матрицы A значения 5*j
- Выводим значения ячеек матрицы A с помощью цикла for и оператора print
- Завершаем выполнение программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д