Выдать информацию об ассистентах кафедры

@b3sik · Регистрация: 21.12.2017

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

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

@ZX Spectrum-128 · 22.12.2017, 08:35

Создать файл, содержащий сведения о работниках фирмы

@b3sik · 22.12.2017, 19:57 **[ТС]**

Здесь не могу разобраться что-то)

@b3sik · 26.12.2017, 19:58 **[ТС]**

Поднятие темы, не могу разобраться

@ZX Spectrum-128 · 27.12.2017, 15:52

Pascal

type
  firm = record
    fam: string[128];
    dolzh: string[128];
  end;
 
var
  a: firm;
  obr: string;
  n, i: integer;
  f: file of firm;
 
begin
  write('Количество сотрудников: ');
  readln(n);
  assign(f, 'vuz.dat');
  rewrite(f);
  for i := 1 to n do
  begin
    write('Фамилия ', i, ' сотрудника: ');
    readln(a.fam);
    write('Должность: ');
    readln(a.dolzh);
    write(f, a);
  end;
  close(f);
  obr := 'Ассистент';
  reset(f);
  writeln('Сотрудники: ассистенты кафедры. :');
  while not eof(f) do
  begin
    read(f, a);
    if a.dolzh = obr then
      writeln(a.fam, ' ', a.dolzh);
  end;
  close(f);
end.

@b3sik · 27.12.2017, 16:31 **[ТС]**

Спасибо, огромное

@b3sik · 04.02.2018, 16:39 **[ТС]**

1. Файл содержит сведения о сотрудниках кафедры, каждая запись которого содержит поля: фамилия сотрудника и должность.
2. Выдать информацию об ассистентах кафедры.

@bormant · 04.02.2018, 17:35

Pascal

  Assign(f,'name.dat'); Reset(f);
  while not EoF(f) do with e do begin
    Read(f,e);
    if Position='ассистент' then WriteLn(FIO);
  end;
  Close(f);

@b3sik 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 62
		1
	Выдать информацию об ассистентах кафедры 21.12.2017, 12:51. Показов 3568. Ответов 7 Метки нет (Все метки) Файл содержит сведения о сотрудниках кафедры, каждая запись которого содержит поля: фамилия сотрудника и должность. 2. Выдать информацию об ассистентах кафедры. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	22.12.2017, 08:35	2
	Создать файл, содержащий сведения о работниках фирмы 0

@b3sik 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 62
	22.12.2017, 19:57 [ТС]	3
	Здесь не могу разобраться что-то) 0

@b3sik 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 62
	26.12.2017, 19:58 [ТС]	4
	Поднятие темы, не могу разобраться 0

@b3sik 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 62
	27.12.2017, 16:31 [ТС]	6
	Спасибо, огромное 0

@b3sik 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 62
	04.02.2018, 16:39 [ТС]	7
	1. Файл содержит сведения о сотрудниках кафедры, каждая запись которого содержит поля: фамилия сотрудника и должность. 2. Выдать информацию об ассистентах кафедры. 0

	04.02.2018, 17:35

Опции темы

Выдать информацию об ассистентах кафедры

Решение