Вы не указали на каком языке Вам необходимо это решить. Поэтому выкладываю решение на C#.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1
{
class Program
{
static double[] Solve(double A, double B, double C, out bool Fail)
{
Fail = false;
double D = B * B - A * C;
double[] res = new double[2];
if (D >= 0)
{
res[0] = (Math.Sqrt(D) + B) / (2 * A);
res[1] = (Math.Sqrt(D) - B) / (2 * A);
}
else
{
Fail = true;
}
return res;
}
static void Main(string[] args)
{
bool Fail = false;
Console.WriteLine("Введите коэффициент при x^2");
double A = Double.Parse(Console.ReadLine());
Console.WriteLine("Введите коэффициент при x");
double B = Double.Parse(Console.ReadLine());
Console.WriteLine("Введите свободный коэффициент");
double C = Double.Parse(Console.ReadLine());
double[] res = Solve(A, B, C, out Fail);
if (Fail)
{
Console.Write("Дискриминант меньше нуля\n");
}
else
{
for (int i = 0; i < res.Length; i++)
{
Console.Write("x{0}={1} ", i, res[i]);
}
Console.Write("\n");
}
}
}
}
ответ:
на форму поставил компонент memo
в edit1 и edit2 вводим значения строк и столбцов
для цикла for i: = for j: =
на кнопке следующий код
объяснение:
procedure tform1.button1click(sender: tobject);
var i,j: integer; s: string;
begin
a: = strtoint(edit1.text);
b: = strtoint(edit2.text);
for i: = 1 to a do begin
s: = '';
for j: = 1 to b do
s: = s+' '+inttostr(i*j);
memo1.lines[i-1]: = s;
end;
end;