Будь умным!


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

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

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


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

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

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

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

Расчетная работа №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. 10 ммоль-л. 110 мм-час; 115 мм-час;
2. темах их функциях законах закономерностях тенденциях функционирования и развития деятельности и взаимод
3. Тема дипломной работы Руководитель 1
4. Система философских взглядов Д Локка Д Беркли Д Юма
5. VIII ВВР 1973 р N 40 ст
6. тематике20132014 уч.г
7. Магістр спеціальності 8
8. Модуль Алгебра Сравнение рациональных чисел
9. ЭМБРИОЛОГИЯ
10. Темперамент
11. Реферат- Надзор за законодательством о труде- типичные нарушения
12. Надо только тепло и комфортно одеться - взглянуть на Староместскую площадь с астрономическими часами
13. Стронций - Тайна бенгальских жрецов
14. играми Вы как вероятно любой игрок в покер наверняка уже участвовали в турнирах
15. Лабораторная работа 15
16. Теоретические основы феномена безработицы в экономике 1
17. Реферат- Человек и информация в материальном мире
18. 'аза' этнониміні' т'ркіні та'арыбына эссе жазы'ыз
19. Реферат на тему- ldquo;Система впоскування
20. На тему- Взаємозвязок тероризму і організованої злочинності