Получить целочисленную матрицу по правилу

@vikav89 · Регистрация: 12.12.2014

Author24 — интернет-сервис помощи студентам

получить [aij] i=1..10, j=1..12 –целочисленную матрицу, для которой aij=i+2*j
помогите перевести в basic, я смогла написать только на паскале, пожалуйста!!!

Pascal

program matricaa;
Uses Crt;
var
   a:array [1..10,1..12] of Real;
   i, j :integer;
begin 
   Clrscr;
  for i:=1 to 10 do
  begin
    for j := 1 to 12 do
    begin
      a [i,j]:= i+2+j;
      write(a[i,j],' ');
      end;
writeln;
    end;
   Readln;
end.

@chumich · 07.02.2015, 14:53

Visual Basic

Private Sub VBBV ()
Dim mass (10,12) As Integer
Dim i, j As Integer
For i = 1 To 10
For j = 1 To 12
mass (i, j) = i+2*j
Print ("mass(";i;j;") = ";mass(i,j))    'вывод уже совсем не помню, но вроде так
Next j
Next i
End Sub

echs · 23.10.2015, 11:27

Мне кажется, что было бы неплохо вставить
в программу код

Visual Basic

1	Option Base 1

Или определить массив так

Visual Basic

1	Dim mass(1 To 10, 1 To 12) As Integer

	23.10.2015, 11:27

Опции темы

Получить целочисленную матрицу по правилу

Решение