из паскаля в делфи

Дано 2 файла с одинаковым количеством чисел. создать третий файл содержащий сумму,разность и произведения соответствующих пар чисел.

0

Думаю что это то что нужно

Вложения

проект.rar (192.2 Кб, 12 просмотров)

2

проверил прогу.не думаю что она работает правильно(арифметические операции происходят не со всеми цифрами и в конце выполнения происходит ошибка)пробовал переделать, да что то не получается.разберись пожалуста...

0

Mitrofizik, что именно не правильно работает?
Проверил всё работает и человек который просил сделать не нашёл ошибок..

0

а какой тут вообще вопрос?

Добавлено через 57 секунд
а если это надо в делфи просто перекинуть, то заходишь в делфи-создать проект-консольное приложение и перепечатываешь))))

0

Сообщение от Mitrofizik проверил прогу.не думаю что она работает правильно(арифметические операции происходят не со всеми цифрами и в конце выполнения происходит ошибка)пробовал переделать, да что то не получается.разберись пожалуста...

Вопрос что не так работает? Скачал архив, распакавал и в delphi открыл

В Pascal не помню уже... лет 5 назад последний раз работал..

1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
Button3: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
// Write number of Columns/Rows
Writeln(f, ColCount);
Writeln(f, RowCount);
// loop through cells
for i := 1 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;



procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
iTmp, i, k: Integer;
strTemp: String;
begin
AssignFile(f, FileName);
Reset(f);
i:=0;
stringgrid.RowCount:=0;
while not eof(f) do
begin
readln(f,itmp);
stringgrid.RowCount:=stringgrid.RowCount +1;
stringgrid.cells[1,i]:=inttostr(itmp);
i:=i+1;
end;

{with StringGrid do
begin
// Get number of columns
Readln(f, iTmp);
ColCount := iTmp;
// Get number of rows
Readln(f, iTmp);
RowCount := iTmp;
// loop through cells & fill in values
for i := 1 to ColCount do
for k := 0 to RowCount - 1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end; }
CloseFile(f);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
LoadStringGrid(StringGrid1, OpenDialog1.FileName) else
Exit;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
LoadStringGrid(StringGrid2, OpenDialog1.FileName) else
Exit;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:Integer;
begin
StringGrid3.RowCount:=StringGrid1.RowCou nt;
for i:=0 to StringGrid3.RowCount - 2 do
begin
StringGrid3.Cells[1,i]:=IntToStr(StrToInt(StringGrid1.Cells[1,i])+StrToInt(StringGrid2.Cells[1,i]));
StringGrid3.Cells[2,i]:=IntToStr(StrToInt(StringGrid1.Cells[1,i])-StrToInt(StringGrid2.Cells[1,i]));
StringGrid3.Cells[3,i]:=IntToStr(StrToInt(StringGrid1.Cells[1,i])*StrToInt(StringGrid2.Cells[1,i]));
end;

if SaveDialog1.Execute then
SaveStringGrid(StringGrid3, SaveDialog1.FileName) else
Exit;

end;

end.

0

Mitrofizik, во первых нужно код в теги ставитьво вторых указать на то что вы исправили

0