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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 29.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. Ты предприниматель 2013 по заказу Департамента по развитию предпринимательства и потребительского рынка Ке
3. I СанктПетербургское адмиралтейство было заложено 16 5 ноября 1704 года об этом сохранилась следующая запис
4. Тема- Эффективность внедрения новых технологий в растениеводстве Специальность- Механизация сельского
5. Приближённые методы решения алгебраического уравнения
6. МОДУЛЬ ОДС- К базисным противовоспалительным средствам относится- азатиоприн
7. Педагогика и способы самостоятельной работы студентов обучающихся по специальности 024000 ~ Психология ква
8. Сагайдачного Коледж морського і річкового флоту
9. Радость воспитания в основе которой лежат научные труды Рудольфа Дрейкурса станет бесценным помощником и
10. Work. We cn buy you something