Перевести код из Delphi в Pascal

[Bianca]

Помогите пожалуйста

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, StdCtrls;

type

TForm4 = class(TForm)

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label5: TLabel;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Edit4: TEdit;

Edit5: TEdit;

Label6: TLabel;

Label7: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var i,j,n,p,q:integer;

mas1,mas,mas2:array[1..100,1..100] of integer;

a,b:array[1..100] of integer;

begin

n:=strtoint(edit1.Text);

p:=strtoint(edit2.text);

q:=strtoint(edit3.Text);

edit4.Text:='';

edit5.text:='';

randomize;

for i:=1 to n+1 do

begin

a[i]:=random(98)+1; // формируем значения первого числового ряда

edit4.Text:=edit4.Text+inttostr(a[i])+' '; // выводим значения первого числового ряда

b[i]:=random(98)+1; // формируем значения второго числового ряда

edit5.Text:=edit5.Text+inttostr(b[i])+' '; // выводим значения второго числового ряда

end;

// задаем количество сток и столбцов таблиц

stringgrid1.ColCount:=n+2;

stringgrid1.RowCount:=n+1;

stringgrid2.ColCount:=n+3;

stringgrid2.RowCount:=n+2;

// нумеруем строки и столбцы таблиц

for i:=1 to n do

stringgrid1.Cells[0,i]:=inttostr(i);

for i:=1 to n+1 do

stringgrid1.Cells[i,0]:=inttostr(i);

for i:=1 to n+1 do

stringgrid2.Cells[0,i]:=inttostr(i);

for i:=1 to n+2 do

stringgrid2.Cells[i,0]:=inttostr(i);

for i:=1 to n do

for j:=1 to n+1 do

begin

mas1[i,j]:=random(98)+1; // формируем значения исходного массива

stringgrid1.Cells[j,i]:=inttostr(mas1[i,j]); // выводим значения исходного массива в таблицу

end;

// формируем промежуточный массив вставкой строки в исходный массив

for i:=1 to p do

for j:=1 to n+1 do

mas[i,j]:=mas1[i,j];

for j:=1 to n+1 do

mas[p+1,j]:=a[j];

for i:=p+2 to n+1 do

for j:=1 to n+1 do

mas[i,j]:=mas1[i-1,j];

// формируем конечный массив вставкой столбца в промежуточный массив

for j:=1 to q do

for i:=1 to n+1 do

mas2[i,j]:=mas[i,j];

for i:=1 to n+1 do

mas2[i,q+1]:=b[i];

for j:=q+2 to n+2 do

for i:=1 to n+1 do

mas2[i,j]:=mas[i,j-1];

for i:=1 to n+1 do

for j:=1 to n+2 do

stringgrid2.Cells[j,i]:=inttostr(mas2[i,j]); // выводим в таблицу конечный массив

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

form4.close; // закрывает форму задания №2

end;

end.

[Valio]

Delphi в Pascal

Неблагодарное это дело.

Гораздо проще будет с нуля такую программу написать. Какое задание?

[Bianca]

Задание такое

Даны матрица А(n×(n+1)) и два одномерных массива X=(x1, ..., xn+1) и
Y=(y1, ..., yn+1), а также натуральные числа р, q. Образовать новую матрицу
размера (n+1)×(n+2) вставкой после строки с номером р матрицы А новой
строки с элементами x1,x2, ..., xn+1 и последующей вставкой после столбца с
номером q нового столбца с элементами y1,y2, ..., yn+1.

К сожалению, с массивами у меня очень туго...

[Stilet]

Неблагодарное это дело.

В данном случае все не так плохо.

var i,j,n,p,q:integer;
mas1,mas,mas2:array[1..100,1..100] of integer;
a,b:array[1..100] of integer;

begin
n:=20;
p:=5;
q:=10;

randomize;
for i:=1 to n+1 do begin a[i]:=random(98)+1; write(a[i]:5);end;
for i:=1 to n+1 do begin b[i]:=random(98)+1; write(b[i]:5);end;
writeln;
for i:=1 to n do write(i:5);
writeln;
for i:=1 to n do begin write(i:5);
 for j:=1 to n+1 do begin
  mas1[i,j]:=random(98)+1; // формируем значения исходного массива
  write(mas1[i,j]:5); // выводим значения исходного массива в таблицу
 end;
end;
writeln;   writeln;
for i:=1 to p do for j:=1 to n+1 do mas[i,j]:=mas1[i,j];
for j:=1 to n+1 do mas[p+1,j]:=a[j];
for i:=p+2 to n+1 do
 for j:=1 to n+1 do mas[i,j]:=mas1[i-1,j];
 writeln;
for j:=1 to q do for i:=1 to n+1 do mas2[i,j]:=mas[i,j];
for i:=1 to n+1 do mas2[i,q+1]:=b[i];
for j:=q+2 to n+2 do for i:=1 to n+1 do mas2[i,j]:=mas[i,j-1];
for i:=1 to n+1 do for j:=1 to n+2 do
 Write(mas2[i,j]:5); // выводим в таблицу конечный массив

readln;
end.

Пойдет?

[Bianca]

Вполне
Благодарю всех за помощь