Форум программистов, компьютерный форум CyberForum.ru

Lazarus

Войти
Регистрация
Восстановить пароль
 
Незнайкая
0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 16
#1

Создать файл, состоящий из неопределенного количества значений типа Integer - Lazarus

23.11.2016, 16:59. Просмотров 339. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста составить программу в Delphi или в Lazarus, не могу даже представить с чего начать:
составьте программу, которая создает файл, состоящий из неопределенного количества значений типа Integer. Для ввода используйте цикл, выход из цикла – значение 999. После записи выделите файл на экран и уничтожьте файл. Тип record не используйте.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2016, 16:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создать файл, состоящий из неопределенного количества значений типа Integer (Lazarus):

Чем можно прочитать файл записей типа integer - Lazarus
Чтобы не делать себе вьювер. Не читает worldpad, там число 4 записано. И не передает файл этот драный билайн по беспроводу. 40 килобайт...

Перевод с типа file of integer в integer - Lazarus
есть файл x в котором хранится код var f,t: File of integer; FName: string; из этого файла надо считать этот код и сравнить с...

Создать файл символьного типа. Создать очереди, решения через подпрограммы - Delphi
Создать файл символьного типа. Организовывая очереди по N элементов, cоздать файл слов по N символов в каждом. Решение в программе оформить...

Не могу понять.(Создать программу которая создает файл из неопределенного количества типа integer) - Delphi
Тут задача мне была задана"Создать программу которая создает файл из неопределенного количества типа integer " я сделал так procedure...

Создать файл, состоящий из 10 значений типа integer. Прочитать файл и вычислить сумму его элементов - Delphi
Создать файл, состоящий из 10 значений типа integer. Прочитать файл и вычислить сумму его элементов.

Создать файл, состоящий из 20 значений типа integer. Прочитать файл, заменив компонент с номером 15 присвоив ему значение 99. - Delphi
Создать файл, состоящий из 20 значений типа integer. Прочитать файл, заменив компонент с номером 15 присвоив ему значение 99. вывести...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Незнайкая
0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 16
23.12.2016, 15:59  [ТС] #2
раз никто не пишет

Добавлено через 1 минуту
Pascal
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
unit Unit7;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm7 }
 
  TForm7 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form7: TForm7;
 
implementation
 
{$R *.lfm}
 
{ TForm7 }
   var f:file of integer;
    a,p,i:integer;
   filename:string;
procedure TForm7.Button1Click(Sender: TObject);
begin
 label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
rewrite(f);
closefile(f);
label1.Caption:='Файл создан'
end;
 
procedure TForm7.Button2Click(Sender: TObject);
begin
a:=StrToInt(edit2.text);
If a>998 then ShowMessage('Ведите число до 998')
else begin
label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
{$I-}
reset(f);
{$I+}
memo1.Clear;
if ioresult<>0 then label1.Caption:='Файл нет'
else
begin
seek(f,filesize(f));
for i:=a to 998 do
begin
p:=i;
write(f,p);
end;
closefile(f);
label1.Caption:='Данные в файле'
end;
end;
end;
 
procedure TForm7.Button3Click(Sender: TObject);
begin
label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
{$I-}
reset(f);
{$I+}
memo1.Clear;
if ioresult<>0 then label1.Caption:='Файл не найден'
else
begin
if eof(f) then label1.Caption:='Файл пуст'
else
begin
repeat
read(f,p);
memo1.Lines.Add(floattostr(p));
until eof(f);
label1.Caption:='Файл прочитан'
end;
closefile(f);
end;
end;
 
procedure TForm7.Button4Click(Sender: TObject);
begin
label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
erase(f);
label1.Caption:='Файл удален'
end;
 
end.
Добавлено через 19 минут
у меня получилось, может кому пригодится)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2016, 15:59
Привет! Вот еще темы с ответами:

Составьте прогамму, которая создает файл, состоящий из 10 значений типа integer - Pascal
Завтра сдавать экзамен, не могу сделать, помогите! Составьте прогамму, которая создает файл, состоящий из 10 значений типа integer....

Составить программу, которая создает файл, состоящий из N значений типа integer. - Turbo Pascal
Составить программу, которая создает файл, состоящий из N значений типа integer. Прочитать файл и выведите только четные элементы. и вот...

Из двух файлов типа integer создать третий файл типа integer - Pascal ABC
я маюсь с ффайлами уже замучился задание Из двух файлов типа integer создать третий файл типа integer,такой что каждый его минимальный...

программа, создающая файл , состоящий из N знач. типа integer, прочесть файл, вывести нечетные элементы - Pascal ABC
Составить программу, которая создаёт файл , состоящий из N значений типа integer. Прочесть файл и вывести только нечётные элементы.


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

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

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