практическая работа. пр 10. Цель формирование практических навыков работы в бригаде Задачи
![]()
|
![]() Цель: формирование практических навыков работы в бригаде Задачи: 1 Изучить коллективную разработку программных средств 2 Получить практические навыки коллективной разработки программ 3 Учиться использовать информационно-коммуникационные технологии. Формируемые компетенции: ОК 1-9, ПК 3.1- ПК 3.6 Оборудование: Компьютеры, совместимые с IBM PC, МУ к выполнению практической работы № 10 1 Проверка готовности выполнения практической работы: устный опрос ![]() ![]() y = ![]() ![]() В формулах расчета y использованы следующие условные обозначения: А1 - сумма элементов массива Х; А2 - сумма положительных элементов массива Х; М1 - количество элементов массива Х, значения которых меньше А1; М2 - количество отрицательных элементов массива Х. Листинг программы program b1v2; uses crt; type Mas=array [1..50] of integer; var x: Mas; i, N:integer; SP, S:integer; KolO, Kol:integer; y:real; procedure VVod (var B: mas); var i: byte; begin Randomize; for i:=1 to N do B[i]:=-50+Random(101); end; procedure ViVod (var B: mas); var i: integer; begin for i:=1 to N do write(B[i]:5); writeln; end; function a2 (var a: mas): integer; var i:integer; sp:integer; begin sp:=0; for i:=1 to N do if a[i]>0 then begin sp:=sp+a[i] end; a2:=sp end; function a1 (var D: mas) : integer; var i: byte; s: integer; begin s:=0; for i:=1 to n do s:=s+d[i]; a1:=s; end; function m2 (var a: mas) : integer; var i: byte; KolO: integer; begin KolO:=0; for i:=1 to n do if a[i]<0 then begin KolO:=KolO+1; end; m2:=KolO; end; function m1 (var a: mas) : integer; var i: byte; Kol: integer; begin Kol:=0; for i:=1 to n do if a[i] begin Kol:=Kol+1; end; m1:=Kol; end; begin clrscr; writeln ('Введите размерность: '); readln (N); vvod (x); writeln ('Исходный размер массива: '); vivod(x); writeln ('Сумма положительных элементов ', a2(x):5); writeln ('Сумма элементов ', a1(x):5); writeln ('Количество отричательных элементов ', m2(x):5); writeln ('Количество элементов ', m1(x):5); if a2(x)>0 then y:=0.0023+a2(x)*m2(x) else y:=(a2(x)+17800)/(sqr(cos(a2(x)))+m1(x)*a2(x)); writeln ('y=', y:5:2); end. Результат программы: ![]() Контрольные вопросы: Какие достоинства имеет коллективная разработка ПП? Достоинства коллективной работы: достаточно времени для выполнения работы помощь друг другу в исправлении каких-либо ошибок у каждого свое задание Перечислите категории коллектива создателей программы. Разработчики – программисты Кодировщики «Тестеры» Прочие работники Как реализуется эффективность коллективной разработки ПП? Работая в коллективе, отдельные специалисты должны взаимодействовать друг с другом, обеспечивая целостность проекта, что при отсутствии удовлетворительных средств описания поведения сложных систем, упоминавшемся выше, достаточно сложно. Причем, чем больше коллектив разработчиков, тем сложнее организовать процесс работы. Первым шагом в этом направлении является то, что весь коллектив работает «на одном языке», в том плане, что сотрудники понимают друг друга. Вторым шагом является то, что каждый занимается своей задачей, но занимается качественно. Третьим шагомявляется правильное планирование ресурсов: информации, исполнителей, наконец, компьютерного времени. Все эти проблемы решаются грамотно поставленным руководством проектом. 0> |