С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
snowing068
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 2
1

Оздать типизированный файл записей полями которых являются фамилия и рост

11.12.2014, 09:20. Просмотров 993. Ответов 1
Метки нет (Все метки)

Создать типизированный файл записей полями которых являются фамилия и рост. Записать в новый файл данные лиц ,рост которых выше среднего данного списка.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2014, 09:20
Ответы с готовыми решениями:

Имеется типизированный файл, элементами которого являются отдельные символы
Имеется типизированный файл, элементами которого являются отдельные символы....

Построить типизированный файл данных, который состоит из записей
Построить типизированный файл данных, который состоит из записей с такими...

Имеется типизированный файл, элементами которого являются отдельные символы. Создать три новых файла
Имеется типизированный файл, элементами которого являются отдельные символы....

Типизированный файл: Создать файл F1, компонентами которого являются "m" одинаковых чисел, а именно "min" элемент из файла F
Создать типизированный файл F, содержащий последовательность целых чисел....

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4273 / 3096 / 3816
Регистрация: 05.06.2014
Сообщений: 15,573
12.12.2014, 08:54 2
Лучший ответ Сообщение было отмечено snowing068 как решение

Решение

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
Type
  ych=Record
    fam:String[128];
    rost:real;
  end;
  ifile=File of ych;
Var
  f2,f:ifile;
  i,n,m:Integer;
  z:ych;
  sr:real;
Begin
  Assign(f,'chel.dat');
  Rewrite(f);
  Write('Ввести количество человек: ');
  Readln(n);
  For i:=1 to n do
    Begin
      Write('Ввести  фамилию ',I,'  человека: ');
      Readln(z.fam);
      Write('Ввести рост ',I,' человека: ');
      Readln(z.rost);
      Write(f,z);
    End;
  Close(f);
  Reset(f);
  sr:=0;
  While not eof(f) do
    Begin
      Read(f,z);
      sr:=sr+z.rost;
    End;
  Close(f);
  sr:=sr/n;
  writeln('Средний рост: ',sr:8:2);
 
  Assign(f2,'chel2.dat');
  Rewrite(f2);
 
  Reset(f);
  While not eof(f) do
    Begin
      Read(f,z);
      if z.rost>sr then
        begin
          Writeln(z.fam:10, z.rost:16:2);
          write(f2,z);
        end;
    End;
  Close(f);
  Close(f2);
 
  readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2014, 08:54

Дано файл f, компоненты которого являются натуральные. Записать в файл g все компоненты файла f, которые являются полными квадратами.
Помогите решить буду очень благодарен. Задание 1. Дано файл f, компоненты...

Выяснить, являются ли поля (к, 1) и (m, n) шахматной доски полями одного цвета
Выяснить, являются ли поля (к, 1) и (m, n) шахматной доски полями одного цвета....

Построение массива записей по возрастанию поля фамилия.
составить подпрограмму создания массива,содержащего записи с полями фамилия год...


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

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

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