Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
DMC
0 / 0 / 0
Регистрация: 15.03.2010
Сообщений: 17
1

Файлы

15.04.2010, 03:20. Просмотров 389. Ответов 1
Метки нет (Все метки)

Дан файл f компоненты которого являются вещественными числами. Найти разность первой и последней компонент файла.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Menus;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    BitBtn2: TBitBtn;
    SaveDialog1: TSaveDialog;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  fi:File of Extended;
  path:string;
implementation
 
{$R *.dfm}
 
procedure TForm1.N2Click(Sender: TObject);
var i:integer;
    r:Extended;
begin
     AssignFile(fi,'c:\file1.fi');
     Rewrite(fi);
     for i:=0 to Memo1.Lines.Count-1 do
       begin
     r:=StrToFloat(Memo1.Lines[i]);
     write(fi,r);
       end;
       ShowMessage('Созданно');
       Memo1.Lines.Clear;
       CloseFile(fi);
end;
 
procedure TForm1.N3Click(Sender: TObject);
var
    f:Extended;
begin
   Reset(fi);
   Memo1.Clear;
   while not Eof(fi) do
    begin
 
      Read(fi,f);
      Memo1.Lines.Add(FloatToStr(f));
    end;
end;
 
procedure TForm1.N4Click(Sender: TObject);
var razn,num1,num2:Extended;
 
begin
  Read(fi, Num1);
  while not eof(fi)do
    Read(fi, Num2);
    razn:=num1-num2;
    Memo1.Lines.Add(FloatToStr(razn));
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
 
end.

вот на этом куске выдает ошибку(почему незнаю):
Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.N4Click(Sender: TObject);
var razn,num1,num2:Extended;
 
begin
  Read(fi, Num1);
  while not eof(fi)do
    Read(fi, Num2);
    razn:=num1-num2;
    Memo1.Lines.Add(FloatToStr(razn));
end;

Помогите пожалуйста разобраться!
0
Вложения
Тип файла: zip lab12(1).zip (225.7 Кб, 13 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2010, 03:20
Ответы с готовыми решениями:

Написать программу, преобразующую XML-файлы в DDF-файлы
Нужно написать программу, преобразующую XMLфайлы в DDFфайлы... Посоветуйте с...

Файлы
Здравствyйте. Имеются 2 типизированных файла. Нужно создать журнал. Чтоб отчет...

Файлы
Создать текстовый файл, каждая строка которого содержит фамилию, имя и...

Файлы.
1)В заданном предложении указать, сколько раз каждый символ встречается в...

файлы
как правильно написать memo1.Lines.SaveToFile(SaveDialog1.FileName +...

1
kami
1 / 1 / 1
Регистрация: 30.11.2009
Сообщений: 41
15.04.2010, 06:58 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.N3Click(Sender: TObject);
var
    f:Extended;
begin
   Reset(fi);
   Memo1.Clear;
   while not Eof(fi) do
    begin
 
      Read(fi,f);
      Memo1.Lines.Add(FloatToStr(f));
    end;
end;
потому что тут нету закрытие файла
и если создать файл и закрыть твою прогу а потом открыть, и выбрать файл/открыть он ничего не откроет т.к. у тебя там не описано AssignFile(fi,'c:\file1.fi');

так же в procedure TForm1.N4Click(Sender: TObject); не хватает AssignFile(fi,'c:\file1.fi'); и reset(fi)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2010, 06:58

файлы
program Project2; {$APPTYPE CONSOLE} uses Windows, SysUtils; type ...

Файлы
не могу открыть несколько файлов по очереди чтобы считать с них инфо точнее не...

Файлы
Есть программа, она проверяет введенную информацию с файлом. Нужно что бы файл...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru