МОЖНО СДЕЛАТЬ ОДИН ЛЮБОЙ ВАРИАНТ Задание 1. Используя формуляр-образец (угловой), составить и оформить
приказ по основной деятельности. Все недостающие данные и реквизиты добавить
самостоятельно.
ВАРИАНТ № 1.
Генеральный директор Публичного акционерного общества «Аэрофлот - Российские
международные авиалинии» (Москва) О.А. Петров издал приказ о Концепции
документационного обеспечения управления ПАО «Аэрофлот». В целях реализации
Стратегической концепции развития ПАО «Аэрофлот» и в целях совершенствования
форм и методов организации работы с документами руководитель утвердил Концепцию
документационного обеспечения ПАО «Аэрофлот»; Управляющему делами И.О. Иванову
дал поручение организовать обследование состояния работы с документами в
подразделениях общества до 25.01.2019; руководителям структурных подразделений
проанализировать состояние работы с документами в подразделениях и до 01.01.2019
представить справки о состоянии работы с документами в подразделениях. Контроль за
исполнением поручений был возложен на руководителя администрации общества
А.П. Соколова.
ВАРИАНТ № 2.
Публичное акционерное общество «Московский машиностроительный завод»
приступило к модернизации производства в целях налаживания выпуска нового типа
продукции – бронированного автомобиля высокой проходимости для Министерства
обороны РФ.
В целях ускорения выпуска новой продукции и ритмичной работы предприятия
генеральный директор «Мосмаш» ставил задачу перед отделом главного механика
(Филимонов В.П.) закончить реконструкцию главного конвейера завода до
1 июня 2020 года. Отделу главного технолога завода (Серов В.С.) и конструкторскому
отделу (Васин Е.П.) предписывалось закончить технологическую подготовку
производства и подготовку всей необходимой технологической и конструкторской
документации по разработке и постановке на промышленное производство нового
автомобиля до 1 августа 2020 года. Начальнику отдела продаж Никонорову Н.Р.
поручалось осуществить поставку первой партии автомобилей в Уральский военный
округ. Приказ был согласован коммерческим директором Куприяновым Н.П.
Контроль за исполнением поручений руководителя осуществлял коммерческий
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var d:=a.ElementsWithIndexes.Where(t->t[1]=t[2]).ToArray;
Writeln('Сумма элементов на главной диагонали: ',d.Sum(t->t[0]));
var q:=d.Min;
Writeln('Минимальный элемент [',q[1]+1,',',q[2]+1,']=',q[0]);
end.
Пример
Количество строк и столбцов в матрице: 5 6
*** Исходная матрица ***
-5 -34 -95 -24 -22 -24
16 -43 -57 -55 44 -34
-89 26 -25 26 63 75
-53 53 23 -43 -65 -29
12 -74 -39 71 84 12
Сумма элементов на главной диагонали: -32
Минимальный элемент [2,2]=-43
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Rewrite(f,'books.dat');
Writeln('Ввод данных по книгам');
var s1,s2:string;
var i1,i2:integer;
var book:tBook;
repeat
s1:=ReadlnString('Автор или * для окончания ввода:');
if s1<>'*' then begin
s2:=ReadlnString('Название книги:');
i1:=ReadlnInteger('Количество страниц:');
i2:=ReadlnInteger('Год издания:');
(book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
Write(f,book)
end
until s1='*';
Writeln('*** Ввод завершен ***');
f.Close
end.
Тестовое решение
Ввод данных по книгам
Автор или * для окончания ввода: Жюль Верн
Название книги: 80 тысяч километров под водой
Количество страниц: 573
Год издания: 1951
Автор или * для окончания ввода: Сергей Лукьяненко
Название книги: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Название книги: Властелин мира
Количество страниц: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***
2. Программа для выборки
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Reset(f,'books.dat');
var s:=ReadlnString('Автор книги:');
var y:=Readinteger('Год издания, не ранее:');
var k:=0;
var book:tBook;
while not f.Eof do begin
Read(f,book);
if (book.author=s) and (book.godizd>=y) then begin
Writeln(book);
Inc(k)
end;
end;
if k=0 then Writeln('Таких книг не найдено');
f.Close
end.
Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Властелин мира,104,2011)