Дан символьный файл f, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу: , , записать эти сведения в файл g, используя образцы: а) , , ; б) .о., .о., на языке паскаль

Function getword(s: string; var ptr: integer): string; var   i: integer; begin   i: =posex(' ',s,ptr);   if i> 0 then       result: =copy(s,ptr,i-ptr)   else       result: =copy(s,ptr,length(s)-ptr+1);   ptr: =i+1 end; var   f,g: text;   ib: integer;   s,fam,im,ot: string; begin   assign(f,'input.txt');   reset(f);   assign(g,'result.txt');   rewrite(g);   while not eof(f) do begin       readln(f,s);       writeln(s); // отладочная выдача       ib: =1;       fam: =getword(s,ib);       im: =getword(s,ib);       ot: =getword(s,ib);       writeln(g,im,' ',ot,' ',fam); // закомментарить строку для б)          writeln(im,' ',ot,' ',fam);     // отладочная выдача       writeln(g,fam,' ',im[1],'.',ot[1],'.'); // закомментарить строку для а)       writeln(fam,' ',im[1],'.',ot[1],'.'); // отладочная выдача   end;   close(f);   close(g) end. тестовый прогон: иванов петр сергеевич петр сергеевич иванов иванов п.с. тарасова анна георгиевна анна георгиевна тарасова тарасова а.г. коваленко евгений станиславович евгений станиславович коваленко коваленко е.с. петрова татьяна вячеславовна татьяна вячеславовна петрова петрова т.в. бородкин тимофей савельевич тимофей савельевич бородкин бородкин т.с. пышка варвара семеновна варвара семеновна пышка пышка в.с. голобородько ирина олеговна ирина олеговна голобородько голобородько и.о.

1цикл с постусловием цикл с постусловием — цикл, в котором условие проверяется после выполнения тела цикла. отсюда следует, что тело всегда выполняется хотя бы один раз. в языке паскаль этот цикл реализует оператор repeat..until; в си — do…while. pascal: repeat         < тело  цикла> until < условие> си: do {         < тело цикла> } while(< условие> ) в трактовке условия цикла с постусловием в разных языках есть различия. в паскале и языках, произошедших от него, условие такого цикла трактуется как условие выхода (цикл завершается, когда условие истинно, в терминологии такие циклы называют ещё «цикл до»), а в си и его потомках — как условие продолжения (цикл завершается, когда условие ложно, такие циклы иногда называют «цикл пока»)…                           2цикл с постусловием  — цикл, в котором условие проверяется  после  выполнения тела цикла. отсюда следует, что тело  всегда выполняется  хотя бы один раз. в языке паскаль этот цикл реализует  операторrepeat..until; в си  —  do…while.

на языке pascal цикл с постусловием имеет следующий вид: :

repeat < тело цикла> until < условие выхода>

на языке си:

do { < тело цикла> } while (< условие продолжения цикла> )

в трактовке условия цикла с постусловием в разных языках есть различия. в паскале и языках, произошедших от него, условие такого цикла трактуется как  условие выхода  (цикл завершается, когда условие истинно, в терминологии такие циклы называют ещё «цикл до»), а в си и его потомках  — как  условие продолжения  (цикл завершается, когда условие ложно, такие циклы иногда называют «цикл пока»).

Каркас любого документа word, как уже говорилось, составляют объекты разных классов, объединенные в библиотеки. для документов word основной библиотекой, конечно же, является библиотека классов word9. центральным объектом каркаса документа является объект этой библиотеки  application, определяющий само приложение. поскольку в основе построения объектов office лежит встраивание, 2редактирование текста  –это придание тексту нужного стиля и читабельности, исправление ошибок                             3форматирование текста   — средства его изменения, такие как выбор начертания шрифта и использование эффектов, позволяющих менять вид  текста .