0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 3
1

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

11.06.2014, 12:42. Показов 3465. Ответов 2
Метки нет (Все метки)

Текстовый файл содержит список фамилий и должность сотрудников.
Сформировать текстовый файл, содержащий фамилии сотрудников, работающих
на заданной с клавиатуры должности.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2014, 12:42
Ответы с готовыми решениями:

Создать другой текстовый файл, содержащий отсортированный список фамилий из исходного
Помогите дописать программу. Вот задание: Текстовый файл содержит список фамилий. Создать другой...

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

Дано число k и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк
И снова всем привет) Помогите пожалуйста со следующим заданием: Дано число k (<10) и текстовый...

ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ.
ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и...

2
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
12.06.2014, 06:02 2
Лучший ответ Сообщение было отмечено Draconmag как решение

Решение

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
type
  Rec = record
    lastName : string[25];
    posit : string[25];
  end;
 
var
  n, i : Byte;
  f : file of Rec;
  g : Text;
  s : string[25];
  t : Rec;
 
begin
  Write('Введите количество работников :'); ReadLn(n);  
  Assign(f, 'fff'); ReWrite(f);
  for i := 0 to n - 1 do
  begin
    Write('Введите фамилию :'); ReadLn(t.lastName);
    Write('Введите должность :'); ReadLn(t.posit);
    Write(f, t); 
  end;
  Close(f); Reset(f);
  Assign(g, 'ggg'); ReWrite(g);
  Write('Введите должность для поиска :'); ReadLn(s);
  While not Eof(f) do
  begin
    Read(f, t);
    if (t.posit = s) then
      WriteLn(g, t.lastName, #9, t.posit);
  end;
  Close(f); Close(g);
end.
Добавлено через 2 минуты
блин, не заметил, что текстовый файл
0
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,496
Записей в блоге: 1
12.06.2014, 08:09 3
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
Type employees=Record
      Surname:string[20];
      Post:string[30];
     End;
Var f,g:text;
    st:employees;
    s,ps:string;
    count:integer;
Begin
    Assign(f,'in.txt');Reset(f);
    write('Должность сотрудника: ');readln(ps);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      st.Surname:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      st.Post:=s;
      if ps=st.Post then 
      Begin
        writeln(g,st.Surname);
        inc(count);
      End;
    End;
    if count=0 then writeln(g,'Нету сотрудников с заданной должностью');
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.
Пример файла In.txt
Вложения
Тип файла: txt in.txt (111 байт, 25 просмотров)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2014, 08:09
Помогаю со студенческими работами здесь

Создать текстовый файл занести в него пару фамилий а потом еще добавить в него несколько фамилий(расширить/дополнить))
Смысл програмки:создать текстовый файл занести в него пару фамилий а потом еще добавить в него...

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

Текстовый файл, содержащий строки
текстовый файл, содержащий строки. Например, напишите программу, которая связывает буквы '' a '' с...

Дан текстовый файл, содержащий cтроки.
Доброго времени суток. Такая вот задачка. Дан текстовый файл, содержащий строки. -найти...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru