Запись в типизированный файл, чтение из типизированного файла

@nastya210171 · Регистрация: 13.12.2013

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

Дан файл, элементами которого являются целые числа. Вычислите среднее арифметическое чисел, находящихся в файле.

@ildwine · 30.01.2014, 20:46

Для создания файла используйте эту программу:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  f : file of integer;
  i, n, z : integer;
begin
  write('сколько чисел записать в новый типизировынный файл: ');
  readln(n);
  assign(f, 'nastya210171.int');
  rewrite(f); {открыли файл на запись}
  for i := 1 to n do
  begin
    write(i, ' число: ');
    readln(z);
    write(f, z) {вывели i число в файл}
  end;
  close(f); {закрыли файл}
  writeln('файл создан!')
end.

Для выполнения непосредственно задания:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  f : file of integer;
  z, k : integer;
  s : real;
begin
  s := 0; {начальное значение суммы}
  k := 0; {начальное значение количества}
  assign(f, 'nastya210171.int');
  reset(f); {открыли файл на чтение}
  while not EOF(f) do {пока не конец файла выполнять}
  begin
    read(f, z);
    write(z:4);
    s := s + z;
    inc(k)
  end;
  writeln;
  close(f); {файл закрыли ибо все считали}
  writeln('сумма элементов: ', s);
  writeln('кол-во элементов: ', k);
  writeln('среднее: ', (s / k):0:4)
end.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@nastya210171 0 / 0 / 0 Регистрация: 13.12.2013 Сообщений: 39

	Запись в типизированный файл, чтение из типизированного файла 30.01.2014, 16:35. Показов 5773. Ответов 1 Метки нет (Все метки) Дан файл, элементами которого являются целые числа. Вычислите среднее арифметическое чисел, находящихся в файле. 0

Запись в типизированный файл, чтение из типизированного файла

Решение