Найти номера телефонов по фамилии владельца

@greenpepperest · Регистрация: 18.03.2015

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

Здравствуйте, уважаемые форумчане. Я новичок в программировании Pascal. Взял эти задания, кто поможет все решить ? А я бы хотел для примера записать себе в тетрадь. Чтоб в дальнейшем сделать другое задание.

Кликните здесь для просмотра всего текста

Задания 1. Дан файл f.txt который содержит номера телефонов и фамилий владельцев. Найти номера телефонов по фамилии владельца.

Задания 2. Дан файл f.txt который содержит номера телефонов и фамилий владельцев. Определить сколько телефонов обслуживается - АТС ( +51 ). То есть начинается на +51********

Задания 3. Дан файл f.txt переписать файл g.txt. Все компоненты файла f, с заменой в них символа, с ноль на единицу и наоборот.

Задания 4. Дан файл f.txt переписать строки файла f.txt в файл g.txt и в обратном порядке.

Спасибо большое кто поможет, действительно поможет. Я пытался ничего не получилось...

Добавлено через 26 минут
Все что я сделал это:

Pascal

program lab1;
uses crt;
var  f:text;
     a,b,c,i,d:integer;
     s1,s2:string;
begin
clrscr;
Assign(f,'C:\TP7\TP\BIN\f.txt');
reset(f);
writeln('Vvedite Familiyu');
readln(s1);
d:=length(s1);
while not SeekEOF(f) do begin
readln(f,s2);
c:=c+1;
b:=0;
for i:=1 to d do
if s1[i] = s2[i] then
b:=b+1;
if b=d then a:=c;
end;
if a=0 then writeln('Zapis ne naydena') else
begin
reset(f);
for i:=1 to a do readln(f,s2);
writeln('Nomer Telefona: ',s2);
end;
close(f);
readln;
end.

Но и то работает не совсем верно... помогите изменить хотя бы

Структура файла f.txt:

Код

Фамилия Номер
Фамилия Номер
Фамилия Номер
Фамилия Номер

@Cyborg Drone · 19.03.2015, 14:42

Комментарий модератора

Рекомендую Вам ознакомиться с правилами форума.

Одна тема - один вопрос. Исключение для платных разделов.

Создайте для каждого вопроса отдельную тему.

Эта тема закрыта.