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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 9.6.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. Лидер года ~ 2013 В соответствии с утвержденным положением О проведении Городского конкурса лидеров и
2. У меня проблемная кожа
3. Очередной развод ну или чтото в этом роде и это нормально
4. описательный серед 16 ~ начало 18в товароведнотехнологический нач 18нач 20 веков товароведноформирующий
5. Творчеством одержимый
6. Виникнення і розвиток вчення про владу.
7. Теория мультипликатора Мультипликатор расходов Принцип акселерации
8. і Охарактеризуйте структуру політичної влади
9. Тема занятия Домашние птицы
10. Corpus pltonicum Точная дата рождения Платона неизвестна