Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
tanita
0 / 0 / 0
Регистрация: 25.01.2013
Сообщений: 6
1

Найти телефон сотрудника по его фамилии, использовать тип «запись»

25.01.2013, 07:40. Просмотров 1150. Ответов 1
Метки нет (Все метки)

Дан файл, в котором содержатся данные о сотрудниках: фамилия и инициалы, номер телефона. Найти телефон сотрудника по его фамилии, использовать тип «запись». Программу написать без использования массива.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2013, 07:40
Ответы с готовыми решениями:

Найти телефон сотрудника по его фамилии и инициалам
дан файл f1 fкоторый содержит номера телефонов сотрудников учреждения:указывается фамилия...

Найти телефон сотрудника по его фамилии и инициалам
Сижу в кабинете и не могу решить эту задачу так как тему ету почти не знаю (знаю только основное),...

Найти телефон сотрудника по его фамилии и инициалам.
Дан файл f, содержащий различные даты. Каждая дата - это число, месяц и год. Найти: а) год...

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

1
CodeR
Фрилансер
3401 / 2798 / 3000
Регистрация: 08.02.2012
Сообщений: 7,523
Записей в блоге: 1
25.01.2013, 13:05 2
Лучший ответ Сообщение было отмечено tanita как решение

Решение

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
Type sotrud=Record
      Fam:string[15];
      Iniz:string[6];
      Nomer:string[12];
     End;
Var f:file of sotrud;
    i,n,k:byte;
    t:sotrud;
    nom:string[12];
Begin
    write('Кол-во сотрудников: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' сотруднике');
      write('Фамилия: ');readln(t.Fam);
      write('Инициалы: ');readln(t.Iniz);
      write('Номер: ');readln(t.Nomer);
      write(f,t);
    End;
    write('Номер сотрудника для поиска: ');readln(nom);
    Reset(f);
    For i:=1 to n do
    Begin
      read(f,t);
      if t.Nomer=nom then
      Begin
        k:=1;
        break;
      End;
    End;
    if k=1 then writeln(t.Fam)
     else writeln('Нету сотрудника с таким номером');
    Close(f);
 End.
2
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2013, 13:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Файл записей: Найти телефон сотрудника по его фамилии и инициалам
Дано файл f, содержащий номера телефонов сотрудников учреждения: указывается фамилия сотрудника,...

Чтение из файла: Найти телефон сотрудника по его фамилии и инициалам
Помогите пожалуйста решить задачку в Delphi 7. Дан файл F, что содержит номера телефонов...

Найти телефон сотрудника по фамилии и инициалам
#include "stdafx.h" #include <iostream> #include <fstream> #include <string> #include...

Найти телефон сотрудника по фамилии и инициалах (работа с файлами С++)
Задан файл, который содержит номера телефонов сотрудников: указывается фамилия и инициалы, номер...


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

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

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