Программа создания файла из 10 значений типа integer

@Apexis · Регистрация: 01.12.2018

Author24 — интернет-сервис помощи студентам

Здравствуйте! Возникла проблема с написанием программы. Приведу условие: "составить программу в среде Lazarus, которая создает файл из 10 значений типа integer. Прочитайте файл и вычислите сумму его элементов. Тип record не используйте". Я планирую реализовать вывод значений на экран с помощью TMemo и кнопки. Также уверен, что для решения данной задачи используется функция AssignFile. Буду признателен за любые подсказки. Прилагаю некоторые наброски:

Pascal

 const n=10;
var
  Form1: TForm1;
  a,i:integer;
  f:file of integer;
 
procedure TForm1.Memo1Change(Sender: TObject);
begin
 clrscr;
randomize;
assignfile(f,'c:\Users\Lazarus #1\F1.txt');
rewrite(f);
for i:=1 to n do
 begin
  a:=random(100);
  write(f,a);
 end;

P. S. При отладке выдает ошибку, думаю, я выбрал для реализации не очень удачную процедуру. Есть ли альтернативные варианты?

@D1973 · 13.12.2018, 14:56

Сообщение от Apexis

Я планирую реализовать вывод значений на экран с помощью TMemo и кнопки

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var i: integer
begin
 for i := 1 to 10 do
  Memo1.Lines.Add(IntToStr(Random(100)));
 Memo1.Lines.SaveToFile('c:\Users\Lazarus #1\F1.txt');
end;

@Apexis · 14.12.2018, 15:00 **[ТС]**

Поискал на просторах интернета информацию... Вот что получилось собрать. Однако выдает класс исключения. В чем моя ошибка? Код прилагаю:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
  var i: integer;
     f: file of integer;
  begin
   assignfile(f,'D:\1\F1.txt');
   rewrite(f);
   for i := 1 to 10 do
    Memo1.Lines.Add(IntToStr(Random(100)));
   Memo1.Lines.SaveToFile('D:\1\F1.txt');
 end;
 
end.

Выделяет следующую строку после остановки программы:
raise EFCreateError.createfmt({SFCreateError}'Unable to create file "%s"',[AFileName])

@Apexis · 14.12.2018, 15:18 **[ТС]**

Программа создания файла из 10 значений типа integer

Для этой программы важен также компонент reset и closefile, которые будут сначала открывать файл и выводить его на экран, а затем его закрывать. Должно прописываться после цикла for:
reset(f);
closefile(f);
Из-за ошибки ничего не выходит.

@ZX Spectrum-128 · 14.12.2018, 16:21

Сообщение от Apexis

Есть ли альтернативные варианты?

Pascal

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
const
  n = 100;
var
  a, i: integer;
  f: file of integer;
  sum: double;
  s: string;
begin
  randomize;
  s := '';
  assignfile(f, 'F1.dat');
  rewrite(f);
  for i := 1 to n do
  begin
    a := random(n);
    Write(f, a);
  end;
  closefile(f);
  sum := 0;
  reset(f);
  while not EOF(f) do
  begin
    Read(f, a);
    s := s + IntToStr(a) + ' ';
    sum := sum + a;
  end;
  Memo1.Lines.Add(s);
  Memo1.Lines.Add(FloatToStr(sum));
  closefile(f);
end;
 
end.

@edukra · 14.12.2018, 20:10

Сообщение от Apexis

assignfile(f,'D:\1\F1.txt'); rewrite(f);

Этого делать не нужно. Именно эти строки мешают записать файл командой savetofile.

@Apexis 0 / 0 / 0 Регистрация: 01.12.2018 Сообщений: 26
	14.12.2018, 15:18 [ТС]	4
	Для этой программы важен также компонент reset и closefile, которые будут сначала открывать файл и выводить его на экран, а затем его закрывать. Должно прописываться после цикла for: reset(f); closefile(f); Из-за ошибки ничего не выходит. 0

@edukra 600 / 548 / 210 Регистрация: 24.01.2012 Сообщений: 1,349
	14.12.2018, 20:10	6
	Сообщение от Apexis assignfile(f,'D:\1\F1.txt'); rewrite(f); Этого делать не нужно. Именно эти строки мешают записать файл командой savetofile. 0

Программа создания файла из 10 значений типа integer

Решение