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

Программа для работы с файлом работает некорректно

15.01.2017, 04:07. Показов 385. Ответов 1
Метки нет (Все метки)

Задание: Дан файл F, содержащий номера телефонов сотрудников учреждения с указанием их фамилий и инициалов. Найти номер телефона сотрудника по его фамилии и инициалам.
Код:
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 pr72;
type
sotr=record
fio:string[20];
nomer:integer;
end;
var p:sotr;
fs:file of sotr;
m:string;
i:integer;
begin
assign(fs,'base.txt');
reset(fs);
while not eof(fs) do
begin
writeln('Введите Фамилия И.О.'); readln(m);
read(fs,p);
for i:=1 to 5 do
if p.fio=m
then writeln(p.nomer);
end;
close(fs);
end.
Помогите найти ошибку, пожалуйста. В файл по-разному пытался вводить данные, результат нулевой.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2017, 04:07
Ответы с готовыми решениями:

Программа по работе с файлом работает некорректно
Помогите найти где ошибка,программа работает со строками из файла, компилятор пишет error C2039:...

Программа для работы с файлом
Задача такая: Дан текстовый файл, в котором есть 30 наименований книг( с автором,годом издания)....

Программа для работы с файлом
Помогите, пожалуйста!!!!! 11. Дано файл чисел. Создать два новых файла, первый из которых содержит...

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

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
15.01.2017, 10:13 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
24
25
26
27
28
29
30
31
32
33
34
35
type sotr=record
          fio:string[20];
          nomer:integer;
          end;
var p:sotr;
    fs:file of sotr;
    n,i:integer;
    m:string[20];
begin
assign(fs,'base');
rewrite(fs);
write('Сколько сотрудников звписать в файл n=');
readln(n);
for i:=1 to n do
 begin
   write('Введите Фамилия И.О.: '); readln(p.fio);
   write('Введите номер телефона: '); readln(p.nomer);
   write(fs,p);
 end;
write('Введите Фамилию И.О. для поиска');
readln(m);
reset(fs);
i:=0;
while not eof(fs)and(i=0)do
 begin
  read(fs,p);
  if p.fio=m then
   begin
    i:=1;
    writeln('Телефон ',p.nomer);
   end;
 end;
close(fs);
if i=0 then write('Такого сотрудника нет');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2017, 10:13

Программа для работы с txt файлом
Привет ребята, сразу скажу что я не программист, и нуждаюсь в вашей помощи. Уверен, что для кого то...

Программа для работы с файлом stp
Всем привет. Можете посоветовать наиболее функциональную программу для работы с stp файлами?

Программа для работы с текстовым файлом. Описать ф-ю для подсчета строк, состоящих из одинаковых символов
Здравствуйте, помогите пожалуйста написать программу, которая будет из текстового файла выдавать...

Написать программу для работы с типизированным файлом. Программа должна выполнять следующие функции
Написать программу для работы с типизированным файлом. Программа должна выполнять следующие...

Программа для работы в реальном времени с одним и тем же файлом (или файлами) разными пользователями
Доброго времени суток! Хочу попросить совета у знающих людей! Предупреждаю : новичок!!! Есть...

Не работает программа для работы с файлами
Написал простую программу для записи строки в файл и чтения из файла. При попытке скомпилить...


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

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

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