В Visual Basic на форме нужно создать текстовое поле Label1 со свойством WordWrap = True, то есть многострочное поле, размер нужно задать, чтобы поместилась вся матрица. Sub Matrix Dim F() As Integer ' Объявляем динамический массив Dim m As Integer, i As Integer, k As Integer, t As String ' И переменные m = InputBox ("Vvedite razmer matrix") ' Задаем размер массива ReDim F(m, m) ' Определяем размер массива For i = 1 To m ' Ввод данных For k = 1 To m t = "Vvedite element Matrix" & Str(i) & "," & Str(k) F(i, k) = InputBox (t) Next k Next i For i = 1 To m F(i, i) = 0 ' Обнуляем элементы главной диагонали. Next i For i = 1 To m For k = 1 To m ' Вывод строки данных через табуляцию Label1.Caption = Label1.Caption & F(i, k) & Chr(9) Next k Label1.Caption = Label1.Caption & vbCrLf ' Переход на следующую строку Next i End Sub
int main() { setlocale(LC_ALL, "RUS"); //Для русского языка в консоли int a,b,//a,b - стороны q, //q - площадь end, //end - выход из программы num; //num - количество подходящих прямоугльников cout << "Введите площадь:" << endl; cin>>q; end=0; num=0; while (end==0) { cout <<"Введите стороны a,b прямоугольника. 0, чтобы выйти"<<endl; cin>>a>>b; if (a<=0 || b<=0) { end=1; } else { if (a*b==q) { num++; } } } cout <<"Среди введенных прямоугольников площадь "<<q<<" имели " <<num <<" штук"<<endl; return 0; }
со свойством WordWrap = True, то есть многострочное поле,
размер нужно задать, чтобы поместилась вся матрица.
Sub Matrix
Dim F() As Integer ' Объявляем динамический массив
Dim m As Integer, i As Integer, k As Integer, t As String ' И переменные
m = InputBox ("Vvedite razmer matrix") ' Задаем размер массива
ReDim F(m, m) ' Определяем размер массива
For i = 1 To m ' Ввод данных
For k = 1 To m
t = "Vvedite element Matrix" & Str(i) & "," & Str(k)
F(i, k) = InputBox (t)
Next k
Next i
For i = 1 To m
F(i, i) = 0 ' Обнуляем элементы главной диагонали.
Next i
For i = 1 To m
For k = 1 To m ' Вывод строки данных через табуляцию
Label1.Caption = Label1.Caption & F(i, k) & Chr(9)
Next k
Label1.Caption = Label1.Caption & vbCrLf ' Переход на следующую строку
Next i
End Sub
using namespace std;
int main()
{
setlocale(LC_ALL, "RUS"); //Для русского языка в консоли
int a,b,//a,b - стороны
q, //q - площадь
end, //end - выход из программы
num; //num - количество подходящих прямоугльников
cout << "Введите площадь:" << endl;
cin>>q;
end=0;
num=0;
while (end==0)
{
cout <<"Введите стороны a,b прямоугольника. 0, чтобы выйти"<<endl;
cin>>a>>b;
if (a<=0 || b<=0)
{
end=1;
}
else
{
if (a*b==q)
{
num++;
}
}
}
cout <<"Среди введенных прямоугольников площадь "<<q<<" имели " <<num <<" штук"<<endl;
return 0;
}