Дан файл Т, который содержит номера телефонов сотрудников учреждения

@сашк · Регистрация: 08.11.2009

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

Дан файл Т, который содержит номера телефонов сотрудников учреждения:
1) ФИО сотрудника
2) номер телефона.
Найти номер телефона сотрудника по его фамилии и инициалам.
помогите пожалуйста(((

@mamedovvms · 18.11.2009, 06:28

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

@John_Pa9JIbHuK · 23.11.2009, 21:10

Pascal

var
f:text;
s,s1,s2:string;
begin
assign(f,'D:\1.txt');
reset(f);
writeln('vvedite imya');
repeat
readln(s);
until length(s)>5;
while not eof(f)do
begin
readln(f,s1);
if pos(s,s1)>0 then
begin
s2:=copy(s1,pos(' ',s1)+1,length(s1));
writeln(s2);
end;
end;
close(f);
end.

Добавлено через 1 минуту
в файле строки типа
tiva 784567
fgrg 467343
hfg 5655545

@сашк · 23.11.2009, 21:24 **[ТС]**

блин че делать! ((( там высвечивается файл не найден((

@John_Pa9JIbHuK · 23.11.2009, 22:03

ну так создай файл 1.txt на диску D

@сашк · 24.11.2009, 20:44 **[ТС]**

блин а прога ни фига не ищет((( че делать?? куда номер телефона вводить?? поиска нету((( как ваще все устроено??? помоги пожалуйста

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
		1
	Дан файл Т, который содержит номера телефонов сотрудников учреждения 18.11.2009, 06:25. Показов 4562. Ответов 5 Метки нет (Все метки) Дан файл Т, который содержит номера телефонов сотрудников учреждения: 1) ФИО сотрудника 2) номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам. помогите пожалуйста((( 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	18.11.2009, 06:28	2
	так я тебе скинул задачи там все поймешь только надо поменять, вместо даты рождения поставишь номер телефона, и все 1

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
	23.11.2009, 21:24 [ТС]	4
	блин че делать! ((( там высвечивается файл не найден(( 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	23.11.2009, 22:03	5
	ну так создай файл 1.txt на диску D 0

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
	24.11.2009, 20:44 [ТС]	6
	блин а прога ни фига не ищет((( че делать?? куда номер телефона вводить?? поиска нету((( как ваще все устроено??? помоги пожалуйста 0

Опции темы