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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 6.4.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. Лекция 91 CCCР в 19451953 гг
3. Курсовая работа- Методы принятия управленческих решений для конкретной проблемы
4. сверлильный станок 2Н125 токарный вертикальный восьмишпиндельный станок п-а мод
5. тематики ; Медный всадникДополнительно- Полтава Борис Годунов Сказки Руслан и Людмила М
6. Toc375087213 was not found in this document
7. тема не тільки не могла бути дослідженою але й просто згаданою
8. Основное назначение отчета о прибылях и убытках состоит в том что он должен характеризовать финансовые
9. Пошиття жіночого одягу
10. Коэффициенты ошибок систем по положению скорости и ускорению