Комбинированный тип «ЗАПИСЬ».

@Амазоночка · Регистрация: 23.11.2010

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

Доброго времени суток!!! Решила обратится за помощью так как сроки горят, сама не могу разобраться в ошибках! Ребят помогите пожалуйста разобраться

Дана работа с комбинированными типами данных. Задание- распечатать анкетные данные сотрудников, которым больше 25 лет.

Создание файла

program lab4_info;
type s=record
num:byte;
fio:string[20];
year:integer;
end;
var fio:file of s; a:s;
begin assign(fio,'s.doc');
rewrite(fio);
while true do begin
write('Номер:'); read(a.num);
if a.num=3 then
begin close(fio); Halt; end;
write('ФИО:'); read(a.fio);
write('год рождения'); read(a.year);
write(fio,a);
end; end.

обработка файла

program lab4_write;
uses crt;
type s=record
num:byte;
fs:string[20];
year:integer;
end;
var fs: file of s; a:s;
begin assign(fs,'g:\s.doc');
writeln('содержание файла');
while not EOF(fs) do begin
read(fs,s);
if (2010-s.year)>25 then num:=num+1;
begin read(s.fs); writeln(s.num:3,s.fs:20,s.year:20);
end;
close(fs);
end.

после запуска второй программы выдает ошибку, что "устройство не готово", в чем тут дела не могу понять

расширение файла

program lab4_rashir;
type s=record
num:byte;
fio:string[20];
year:integer;
end;
var fio:file of s; a:s;
begin assign(fio,'s.doc');
reset(fio);
seek(fio,filesize(fio));
while true do begin
write('Номер:'); read(a.num);
if a.num=3 then
begin close(fio); Halt; end;
write('ФИО:'); read(a.fio);
write('год рождения'); read(a.year);
write(fio,a);
end; end.

@Maror · 25.11.2010, 23:20

Часть 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
program lab4_info;
type s = record
num: byte;
fio: string[20];
year: integer;
end;
 
var fio: file of s;
a:s;
 
begin assign(fio, 's.doc');
rewrite(fio);
while true do begin
write('Number: ');
read(a.num);
  if a.num = 3 then begin
  close(fio);
  Halt;
  end;
write('FIO:'); read(a.fio);
write('Yearя'); read(a.year);
write(fio, a);
end; end.

И часть 2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program lab4_write;
uses crt;
 
type s = record
num: byte;
fs: string[20];
year: integer;
end;
 
var fs: file of s;
    a: s;
begin
clrscr;
assign(fs, 's.doc');
writeln('File:');
reset (fs);
  while not EOF (fs) do begin
  read (fs, a);
  if (2010 - a.year) > 25 then a.num := a.num + 1;
  begin read(a.fs); writeln(a.num:3, a.fs:20, a.year:20); end;
end;
close(fs);
end.

@Амазоночка · 26.11.2010, 11:52 **[ТС]**

Спасибо большое!!!
Могла и сама конечно, но времени катастрофически не хватает, сессия на носу!

все работает, еще раз спасибо!!!

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Амазоночка 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 15

	Комбинированный тип «ЗАПИСЬ». 25.11.2010, 20:46. Показов 1698. Ответов 2 Метки нет (Все метки) Доброго времени суток!!! Решила обратится за помощью так как сроки горят, сама не могу разобраться в ошибках! Ребят помогите пожалуйста разобраться Дана работа с комбинированными типами данных. Задание- распечатать анкетные данные сотрудников, которым больше 25 лет. Создание файла program lab4_info; type s=record num:byte; fio:string[20]; year:integer; end; var fio:file of s; a:s; begin assign(fio,'s.doc'); rewrite(fio); while true do begin write('Номер:'); read(a.num); if a.num=3 then begin close(fio); Halt; end; write('ФИО:'); read(a.fio); write('год рождения'); read(a.year); write(fio,a); end; end. обработка файла program lab4_write; uses crt; type s=record num:byte; fs:string[20]; year:integer; end; var fs: file of s; a:s; begin assign(fs,'g:\s.doc'); writeln('содержание файла'); while not EOF(fs) do begin read(fs,s); if (2010-s.year)>25 then num:=num+1; begin read(s.fs); writeln(s.num:3,s.fs:20,s.year:20); end; close(fs); end. после запуска второй программы выдает ошибку, что "устройство не готово", в чем тут дела не могу понять расширение файла program lab4_rashir; type s=record num:byte; fio:string[20]; year:integer; end; var fio:file of s; a:s; begin assign(fio,'s.doc'); reset(fio); seek(fio,filesize(fio)); while true do begin write('Номер:'); read(a.num); if a.num=3 then begin close(fio); Halt; end; write('ФИО:'); read(a.fio); write('год рождения'); read(a.year); write(fio,a); end; end. 0

@Амазоночка 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 15
	26.11.2010, 11:52 [ТС]
	Спасибо большое!!! Могла и сама конечно, но времени катастрофически не хватает, сессия на носу! все работает, еще раз спасибо!!! 0

Опции темы

Комбинированный тип «ЗАПИСЬ».

Решение