program mtrx;
const
N = 5;
var
matrix: array of array of integer;
i, j: integer;
begin
SetLength(matrix, N);
for i := 0 to N - 1 do
SetLength(matrix[i], N);
Randomize;
for i := 0 to N - 1 do
begin
for j := 0 to N - 1 do
begin
matrix[i, j] := Random(100);
Write(matrix[i, j]:4);
end;
WriteLn();
end;
WriteLn();
for i := 0 to N - 1 do
SetLength(matrix[i], N + 2);
for i := 0 to N - 1 do
for j := N downto 0 do
matrix[i, j + 1] := matrix[i, j];
for i := 0 to N - 1 do
begin
matrix[i, 0] := 0;
for j := 0 to N + 1 do
Write(matrix[i, j]:4);
WriteLn();
end;
end.program max_element;
var
matrix: array[0..4, 0..4] of integer;
i, j: integer;
max: integer;
begin
Randomize;
// Заполнение матрицы
for i := 0 to 4 do
begin
for j := 0 to 4 do
matrix[i][j] := Random(10, 99);
WriteLn(matrix[i]);
end;
i := 0;
j := 0;
max := matrix[i][j];
for j := 0 to 4 do
for i := j to 4 do
if max < matrix[i][j] then
max := matrix[i][j];
WriteLn(max);
end.procedure TForm1.FormCreate(Sender: TObject);
begin
form1.hide;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
form2.Show;
end;var
Form1: TForm1;
list: TStringList;
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption := '';
label1.AutoSize := True;
label1.Color := clInactiveBorder;
list := TStringList.Create;
list.Add('Титры');
list.Add('Какой-то текст');
list.Add('');
list.Add('1');
list.Add('2');
list.Add('3');
list.Add('');
list.Add('4');
list.Add('5');
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
list.Free;
end;
procedure MoveTitle();
var
item: string;
begin
while (True) do
begin
if (Form1.Button1.Tag = 0) then
exit;
Form1.Label1.Caption := '';
for item in list do
begin
Form1.label1.Caption := Form1.label1.Caption + #13 + item;
end;
list.Insert(0, list[list.Count - 1]);
list.Delete(list.Count - 1);
Application.ProcessMessages;
Sleep(500);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (button1.Tag = 0) then
begin
button1.Tag := 1;
MoveTitle;
end
else
button1.Tag := 0;
end;program endless_sum;
var
x, i, j: integer;
y, sum: extended;
function power(x, n: integer): longint;
var
a, b: integer;
begin
if (n = 0) then power := 1;
if (n = 1) then power := x
else
begin
a := x;
for b := 2 to n do
a := a * x;
power := a;
end;
end;
begin
i := 1;
write('input x: ');
readln(x);
sum := x;
y := power(-1, i) * power(x, 2 * i);
for j := 1 to 2 * i do
y := y / j;
while (abs(y) > 0.0001) do
begin
sum := sum + y;
i := i + 1;
y := power(-1, i) * x;
for j := 2 to 2 * i do
y := y * x / j;
end;
writeln(sum:5:4);
readln();
end.хотя бы дать ссылки на литературу по соответствующей теме
Form.Hide;
// загрузка данных
Form.Show;