Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
soniema
1 / 1 / 1
Регистрация: 22.12.2010
Сообщений: 22
1

типизированные файлы

02.07.2011, 13:29. Просмотров 829. Ответов 1
Метки нет (Все метки)

Пожалуйста, помогите.
Создайте консольное приложение, реализующее создание типизированного файла с типом данных "запись" с полями для ввода следующих данных (например, Ваших данных и данных Ваших
ближайших соседей по учебной аудитории):
1. номер по порядку – целочисленный тип,
2. год поступления в ВУЗ – целочисленный тип,
3. номер учебной группы (на английском языке) – строка длиной 15 символов,
4. фамилия студента (на английском языке) – строка длиной 40 символов, (имя файла с расширение dat),
если такой файл уже существует, то открытие этого файла,
затем поочередное считывание из файла всех имеющихся в нем записей
и вывод содержимого их полей на экран в указанном выше порядке перечисления
полей (содержимое всех полей каждой записи должно быть выведено
в одной строке и отделяться друг от друга пробелами);
затем ввод и добавление в файл данных очередной записи
(при вводе значение каждого поля следует вводить с новой строки),
причем, если в качестве номера по порядку введен 0, то прекращение ввода,
затем поочередное считывание из файла всех имеющихся в нем записей
и вывод содержимого их полей на экран в указанном выше порядке перечисления
полей (содержимое всех полей каждой записи должно быть выведено
в одной строке и отделяться друг от друга пробелами).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.07.2011, 13:29
Ответы с готовыми решениями:

Занесите в отдельные файлы списки студентов различных форм обучения(Типизированные файлы)
Помогите пожалуйста написать программку. Трудно мне даются блин эти файлы... ...

Файлы. Типизированные файлы. Получить файл G, содержащий все компоненты файла F, являющиеся нечетными числами и корнями целых чисел
1.Заданный файл F компонентами которого являются целые числа. Получить файл G...

Типизированные файлы
В базе данных school.dat хранятся сведения о годовых оценках учеников школы:...

Типизированные файлы (обработка)
Как мне вывести в алфавитном порядке список фамилий студентов группы Х, у...

Паскаль. Типизированные файлы.
Вот код к следующей задаче: Для студентов некоторой группы задана следующая...

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
02.07.2011, 17:55 2
Лучший ответ Сообщение было отмечено soniema как решение

Решение

воспользуйтесь поиском.Ищите по теме Записи.Такие задания не раз решались ведь.
держите.Решил вам помочь.Проверку на номер по порядку доделаете сами.Проверяйте.
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
Uses
 CRT;
Type student=record
     num:integer;
     year:integer;
     numgr:string[15];
     famil:string[40];
end;
Var
 i,n,j:byte;
 a:student;
 filename:string[10];
 f:file of student;
 t,t2,t3:boolean;
 
procedure Chit;
begin
 while not eof(f) do
 begin
  read(f,a);
  writeln(a.num,' ',a.year,' ',a.numgr,' ',a.famil)
 end;
end;
 
procedure Zapis(n,m:byte);
begin
 t:=true;
 t2:=false;
 t3:=true;
 for i:=n to m do
 begin
  write('Введите номер: ');
  readln(a.num);
  if a.num=0 then
  begin
   t2:=true;
   break;
  end;
  write('Введите год поступления: ');
  readln(a.year);
  repeat
   write('ввод номера группы: ');
   readln(a.numgr);
   for j:=1 to length(a.numgr) do
    if not(UpCase(a.numgr[j]) in ['A'..'Z','0'..'9']) then
    begin
     t3:=false;
     break;
    end
    else t3:=true;
    if not(t3) then write('Недопустимые символы в номере группы.Повторите ');
  until t3;
  repeat
   write('ввод фамилии: ');
   readln(a.famil);
   for j:=1 to length(a.famil) do
    if UpCase(a.famil[j]) in ['A'..'Z'] then t:=true
    else
    begin
     t:=false;
     break;
    end;
    if not(t) then write('Недопустимые символы в фамилии.Повторите ');
  until t;
  seek(f,i);
  write(f,a);
 end;
end;
 
begin
 Clrscr;
 write('Введите имя файла (без расширения): ');
 readln(filename);
 Assign(f,'D:\'+filename+'.dat');
 {$I-}
 reset(f);
 {$I+}
 if IoResult=0 then
 begin
  Chit;
  writeln;
  n:=0;
  write('1. Добавить в файл записи? ');
  readln(n);
  if n=1 then
  begin
   n:=0;
   write('Введите кол-во записей: ');
   readln(n);
   zapis(filesize(f),(filesize(f)-1+n));
  end;
 end
 else
 begin
  writeln('Файл не найден.Зваполните файл.');
  writeln;
  write('Введите кол-во записей: ');
  readln(n);
  Zapis(0,n-1);
 end;
 Close(f);
 reset(f);
 if t2 then
 begin
  ClrScr;
  write('Введён нулевой номер!!!');
  writeln;
  chit;
 end;
 Close(f);
 readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2011, 17:55

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

Типизированные файлы, записи.
Задача по типизованих файлах. 1) Заданный файл, содержащий номера работников...

Типизированные файлы. Ошибка в обработке
Подскажите в чем ошибка Program P3; Type body=record surname:...


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

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

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