Achtung! Перевод из паскаля в бейсик уже 3 часа сижу - QBasic
Формулировка задачи:
Люди добрые, помогите перевести сие творение ку бейсик.
Листинг программы
- 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.
Решение задачи: «Achtung! Перевод из паскаля в бейсик уже 3 часа сижу»
textual
Листинг программы
- 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
Объяснение кода листинга программы
В этом коде происходит следующее:
- Объявляются переменные:
- n (число),
- d (число),
- a (массив целых чисел),
- b (массив целых чисел),
- c (массив целых чисел).
- Заполняются массивы a и b случайными числами от 0 до 99.
- Заполняется массив c, где каждый элемент - это сумма соответствующих элементов из массивов a и b.
- Выводятся все элементы массива c.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д