Курсовая работа: Программирование на Delphi с алгоритмами и кодами

begin

su:=1;

for p:=1 to j do

su:=su*(x-1)/x;

s:=s+su/j;

end;

y:=ln(x);

StringGrid1.cells[0,i]:=inttostr(i); // нумеруетстрокитаблица

StringGrid1.cells[1,i]:=floattostr(x); //выводит x

StringGrid1.cells[2,i]:=FloatToStr(Round(s*exp(10*ln(10)))/(exp(10*ln(10)))); // выводит y

StringGrid1.cells[3,i]:=FloatToStr(Round(y*exp(10*ln(10)))/(exp(10*ln(10)))); // выводит s

Form3.Grafik.SeriesList[0].AddXY(x,ln(x),'',clRed); // строитграфик

x:=x+h;

end;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

form3.ShowModal; //показывает форму графика

end;

end.

Задание №2

Дана матрица размера n*(n+1), числа а₁ , …, а_{n +1} ,b₁ , …, b_{n +1} , натуральные числа р, g (p <= n, g <= n+1). Образовать новую матрицу размера (n+1)*(n+2) вставкой после строки с номером р данной матрицы новой строки с элементами a₁ , …, a_{n +1} и последующей вставкой после столбца с номером g нового столбца с элементами b₁ , …, b_{n +1} .

Во второй программе использовались компоненты:

Edit – для ввода параметров заполнения и вывода числовых рядов;

Button1-кнопка для заполнения числовых рядов и массивов;

Button2-кнопка для закрытия формы;

StringGrid1-таблица для вывода начального массива a[i;j];

StringGrid2-таблица для вывода конечного массива b[i;j];

Компоненты, которые использовались для оформления:

Label- компонента для отображения текста.

Код второй программы