0 / 0 / 0
Регистрация: 10.01.2019
Сообщений: 10

Работа с типизированными файлами

02.03.2019, 12:12. Показов 3688. Ответов 5

Студворк — интернет-сервис помощи студентам
type reals = file of real;

Описать процедуру p(f,g,h) от трех файлов типа reals, которая переписывает из файла f в непустой файл g все элементы, меньшие среднего арифметического всех элементов файла f, и в непустой файл h записывает все остальные числа. Указание: введите файл f (последний элемент = 0). Выполните процедуру p(f,g,h). Распечатайте файлы g и h.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.03.2019, 12:12
Ответы с готовыми решениями:

работа с типизированными файлами
народ помогите составить прогу: Имеется список книг, поступивших в библиотеку за последний год. Список содержит регистрационный номер,...

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

Работа с типизированными файлами....
Очень прошу помочь в переделке этой задачи...была на записи....надо использовать файлы.. Вот что имею на сегодняшний день.... ...

5
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
02.03.2019, 12:23
А почему файлы g,h непустые? В чем прикол? Если они непустые их сначала нужно создать, распечатать исходные и измененные. Задание какое-то кривое.
0
0 / 0 / 0
Регистрация: 10.01.2019
Сообщений: 10
02.03.2019, 16:47  [ТС]
Вот само задание и его условие. Больше ничего не даётся.
Миниатюры
Работа с типизированными файлами   Работа с типизированными файлами  
0
2374 / 776 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
02.03.2019, 23:25
Лучший ответ Сообщение было отмечено Antivirus167 как решение

Решение

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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
program Project1;
 
uses
crt;
type
  reals = file of real;
var
  f,g,h: reals;
  sre: real;
  key: char;
 
 
procedure clearfile(var ff: reals);
begin
Rewrite(ff);
close(ff);
end;
 
 
 
 
procedure p (var f1,g1,h1: reals; var sr: real);
 var
   a,a1: real;
   i:integer;
 begin
 a1:=0;
 i:=0;
  reset(f1);
while not eof(f1) do
  begin
  read(f1,a);
  inc(i);
  a1:=a1+a;
  end;
  sr:=a1/i;
  close(f1);
 
reset(f1);
reset(g1);
reset(h1);
while not eof(f1) do
begin
read(f1,a);
if a < sr then
   begin
   Seek(g1,FileSize(g1)); // Cтановимся в конец файла.
   Write(g1,a); // Записываем запись в файл }
   end
else
   begin
   Seek(h1,FileSize(h1));
   write(h1,a);
   end;
end;
 
close(f1);
close(g1);
close(h1);
end;
 
 
procedure vvodfile(var ff: reals; s: string);
var
  a: real;
begin
Rewrite(ff);
writeln('Vvedite chisla v file ',s,':');
repeat
  Read(a);
  write(ff,a);
until readkey = #27;
close(ff);
 
end;
 
procedure vyvodfile (var ff: reals; s: string);
var
  a:real;
begin
writeln();
writeln('Vyvod soderjimogo faila ',s,' na ekran:');
writeln();
reset(ff);
while not eof(ff) do
  begin
  read(ff,a);
  write(a:0:2,'  ');
  end;
  close(ff);
  writeln();
end;
 
begin
 assign(f,'datF.dat');
 assign(g,'datG.dat');
 assign(h,'datH.dat');
  Writeln('Vyberite rejim raboty programmy.');
  Writeln('F1 - vvod chisel v fail "datF.dat"');
  Writeln('F2 - ochistka failov "datG.dat" i "datH.dat"');
  Writeln('F4 - obrabotka informacii i vyvod soderjimogo ');
  Writeln('     failov "datF.dat",,"datH.dat"');
  Writeln('F5 - vyvod soderjimogo failov "datF.dat","datG.dat","datH.dat"');
  Writeln('     bez obrabotki.');
  repeat
  if keypressed then
    begin
     key:=readkey;
  case key of
  #59: begin
         vvodfile(f, 'datF.dat');
         vyvodfile (f,'datF.dat')
        end;
  #60: begin
         clearfile(g);
         clearfile(h);
         vyvodfile (g,'datG.dat');
         vyvodfile (h,'datH.dat');
        end;
 
  #62: begin
 
        p(f,g,h,sre);
        vyvodfile (f,'datF.dat');
        writeln('Srednee arethmeticheskoe vseh chisel "datF.dat ": ',sre:0:2);
        vyvodfile (g,'datG.dat');
        vyvodfile (h,'datH.dat');
       end;
   #63: begin
        writeln();
        vyvodfile (f,'datF.dat');
        vyvodfile (g,'datG.dat');
        vyvodfile (h,'datH.dat');
       end;
      end;
  end;
 
 
  until key = #27;
 
end.
1
2374 / 776 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
02.03.2019, 23:30
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Файлы забыл догрузить.
Вложения
Тип файла: zip MyProjects.zip (510 байт, 16 просмотров)
1
0 / 0 / 0
Регистрация: 10.01.2019
Сообщений: 10
03.03.2019, 20:56  [ТС]
Большое спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.03.2019, 20:56
Помогаю со студенческими работами здесь

Работа с типизированными файлами
Нужна ваша помощь! Условие: Используя программу create, создайте массив случайных чисел. Задайте несколько вариантов параметров...

работа с типизированными файлами
Ребят помогите пожалуйста. Дан файл, содержащие раздельные даты. Каждая дата – это число, месяц и год. Найти: а) год с наименьшим...

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

Работа с типизированными файлами. Вывод в файл
program tip; uses crt; type rec=record N:integer; Nr:string; type1:string; cena:integer; time:integer;

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


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

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

Новые блоги и статьи
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
PowerShell Snippets
iNNOKENTIY21 11.11.2025
Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
PowerShell и онлайн сервисы. Валюта (floatrates.com руб.)
iNNOKENTIY21 11.11.2025
PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru)
iNNOKENTIY21 11.11.2025
PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr)
iNNOKENTIY21 11.11.2025
PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .
PowerShell и онлайн сервисы. Валюта (ЦБР)
iNNOKENTIY21 11.11.2025
# Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .
И решил я переделать этот ноут в машину для распределенных вычислений
Programma_Boinc 09.11.2025
И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru