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

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования Российской Федерации
Сибирского Государственного Технологического Университета
Факультет: Автоматизации и информационных технологий
Кафедра: Информационных технологий
Расчетная работа №22
По дисциплине «Алгоритмические языки и программирование»
Руководитель:
Якимов С.П.
(подпись)
Разработал:
Студент гр. 21-6
Прокопьев М.C.
(подпись)
Красноярск-2004.
Отчёт.
Вариант №8.
501б. Дан символьный файл f, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу: фамилия, имя, отчество, фамилия, имя, отчество, ... Записать эти сведения в файле g, используя образцы:
б) Фамилия, и.о., фамилия, и.о., ...
Текст программы:
program Z_501;
{возвращает N-ное по счету слово из строки St}
function ReadWord(St:string;N:byte):string;
var
i,j,Num:byte;
Word:string;
begin
Num:=1;
i:=0;
while (i<length(St)) and (Num<N) do
begin
inc(i);
if (St[i]=' ')and(St[i+1]<>' ') then
inc(Num);
end;
j:=i+1;
Word:='';
while (St[j]<>' ')and(j<=length(St))do
begin
Word:=Word+St[j];
inc(j);
end;
ReadWord:=Word;
end;
var
F,G:text;
St,Family,Name,FName:string;
begin
assign(F,'C:\Bp\Bin\Procop\501\Ex501F.txt');
assign(G,'C:\Bp\Bin\Procop\501\Ex501G.txt');
reset(F);
rewrite(G);
while not SeekEof(F) do
begin
read(F,St); {считали строку с фамилией, именем, отчеством}
Family:=ReadWord(St,1);
Name:=ReadWord(St,2);
FName:=ReadWord(St,3); {разделили строку на 'Фамилию', 'Имя', 'Отчество'}
Name:=Name[1];
FName:=FName[1];
writeln(G,Family+' ',Name+'. ',FName+'.');
end;
close(F);
close(G);
end.
Пример:
Даны фамилии:
Иванов Иван Иванович
Петров Петр Петрович
Сивухин Дмирий Васильевич
Мельников Андрей Анатольевич
Грабовский Виталий Михайлович
В результате работы программы получили :
Иванов И. И.
Петров П. П.
Сивухин Д. В.
Мельников А. А.
Грабовский В. М.