Вариант ’8. 501б. Дан символьный файл f содержащий сведения о сотрудниках учреждения записанные по следующем.html
Работа добавлена на сайт samzan.net:
Министерство образования Российской Федерации
Сибирского Государственного Технологического Университета
Факультет: Автоматизации и информационных технологий
Кафедра: Информационных технологий
Расчетная работа №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.
Пример:
Даны фамилии:
Иванов Иван Иванович
Петров Петр Петрович
Сивухин Дмирий Васильевич
Мельников Андрей Анатольевич
Грабовский Виталий Михайлович
В результате работы программы получили :
Иванов И. И.
Петров П. П.
Сивухин Д. В.
Мельников А. А.
Грабовский В. М.
2. синтетичного методу навчання грамоти- суть прийоми звукового синтезу прийоми звукового аналізу
3. 1Относительныеизменяются в соответствии с новым местоположением формулы А5Е172Абсолютныессылки не изменя
4. Случайные события и операции над ними
5. Реабилитационная программа
6. Организация и несение караульной службы
7. исторического процесса
8. Расширение сотрудничества стран Балтийского региона
9. элементы массивов состоящих из 40 элементов каждый
10. ТЕМА План Поняття часу відпочинку
11. с одной стороны- катастрофическая нехватка средств на обеспечение школ учебниками и прочими необходимыми п
12. Тема- Симптоматология заболеваний пищевода желудка и кишечника
13. PR как коммуникация Семинар 1 2ч План занятия- Вопросы для обсуждения- Понятие делового о
14. сократівський поворот у філософії
15. Статья Моя педагогическая философия
16. Россия впервые видела революционное движение против царизма
17. Реферат- Теорії походження держави
18. Реферат- Історія та створення СУБД
19. Доказательной медицине Термин
20. Валютная система