У вас вопросы?
У нас ответы:) SamZan.net

Вариант ’8. 501б. Дан символьный файл f содержащий сведения о сотрудниках учреждения записанные по следующем.html

Работа добавлена на сайт samzan.net: 2016-01-17

Поможем написать учебную работу

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

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

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 1.7.2025

Министерство образования Российской Федерации

Сибирского Государственного Технологического Университета

Факультет: Автоматизации и информационных технологий

Кафедра: Информационных технологий

Расчетная работа №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.


Пример:

Даны фамилии:

Иванов Иван Иванович

Петров Петр Петрович

Сивухин Дмирий Васильевич

Мельников Андрей Анатольевич

Грабовский Виталий Михайлович

В результате работы программы получили :

Иванов И. И.

Петров П. П.

Сивухин Д. В.

Мельников А. А.

Грабовский В. М.




1. Привидения Предлагаемые Записки2 вызвали против меня среди некоторой части читателей бурю негодо
2. Экономическая сущность и классификация инвестиций
3. а а из нервного желобка образуется НТ
4. Виды и оценка основных средств
5. Лекция 8- Особенности организации работы налоговых органов с физическими лицами
6. Экономический рост
7. тема Гришечкин В
8. тема ОЛС ~ оптиколокационная система МФИ ~ многофункциональный индикатор ВСУ ~ встроенная специальная
9. лет до 910 лет существенно изменяются структуры и функциональные возможности мозга ребенка
10. По газонам не ходить