Задание 16

ЗАКАЗЧИК	ТОВАР	КОЛИЧЕСТВО	ЦЕНА	ДАТА ИЗГОТ.	СУММА
Барк	Рубашка	1235	27	05/02/97	33345
Барк	Сапоги	475	75	22/08/97	15778
Барк	Туфли	31	45	25/03/97	1395
Гринн	Пальто	157	99	12/02/97	15543
Гринн	Тапочки	250	6	01/05/96	1500
Гринн	Шляпа	322	49	23/04/97	15778
ИТОГ		2470			84557

Задание 17

Интенсивность заболеваний

Задание 18

Целы работы. Разработать блок схему алгоритма, составить схему программы, написать и протестировать программу в среде DELPHI.

Задание 19

Задание №4.Дано 100 целых чисел. Определить, сколько из них принимает наибольшее значение.

Описание переменных.

А – элементы массива;

N – размерность массива;

Amax – переменная, содержащая максимальный элемент массива;

K – счетчик элементов, принимающих максимальное значение;

I – параметр цикла.

Описание работы алгоритма.

Блок 1 алгоритма является начальным. В блоке 2 алгоритма осуществляется описа-ние переменных. Блоки 3,4 и 5 формируют цикл со счетчиком от 1 до n.В блоке 4 алгори-тма вводятся значения элементов массива. В блоке 5 алгоритма происходит вывод элем-ентов массива на экран компьютера. В блоке 6 алгоритма переменным по командам: Amax:=A[1] и К:=1 присваиваются начальные значения. Блоки 7 – 12 формируют цикл со счетчиком. В блоке 7 алгоритма параметр цикла со счетчиком i изменяет свое значение от начального равного 2 до конечного значения равного n. В блоке 8 алгоритма анализ-ируется условие А[i]> Amax,если очередной элемент массива больше максимального то по выходу ДА, в блоке 9 алгоритма по команде Amax:=A[i], переменной Amax присваива-ется большее значение массива. В блоке 10 алгоритма по команде K:=1 счетчику одина-ковых чисел – К присваивается значение единицы. По выходу НЕТ блока 8, в блоке 11 алгоритма анализируется условие равенства Amax:=A[i], максимального элемента с дру-гими элементами массива. По выходу ДА блока 11, в блоке 12 алгоритма по команде К:=К + 1 происходит увеличение значения счетчика К, равных максимальному значению массива чисел на единицу. В блоке 13 алгоритма происходит увеличение значения К, равных максимальному значению массива чисел на единицу. В блоке 13 алгоритма происходит выдача результатов: максимального числа и количество максимальных чисел. Блок 14 алгоритма является конечным.

ТЕКСТ ПРОГРАММЫ

Procedure TForm1.Button1 Click(Sender: TObject);

Const n=100;

Var k, I, Amax: integer;

A: array [1..n] of bute;

Begin

Label3.caption :=’’;

For I:= 1 to n do

Begin

A[i]:=random(5);

Label3.Caption:=Label3.Caption + IntToStr(A[i])=’,’

End

Else if A[i]=Amax

Then k:=k+1;

Lebel4.Caption:=’Количество максимальных элементов(‘+ IntToStr(Amax)+равно’+IntToStr(k)

End;

End.

РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ

Тест №	Выходные данные	Результаты
1	0,0,4,1,1,3,1,0,1,2,0,2,0,4,0,1,4,1,3,1,3,4,3,1,0,1,2,1,4,1,2,0,4,1,3,4,2,4,4,0,0,0,2,0,2,0,3,3,3,3,2,1,3,2,4,3,4,1,3,1,0,3,2,4,2,2,4,3,1,0,3,4,3,3,0,0,4,3,2,4,3,1,0,3,1,4,0,1,2,4,0,0,1,2,2,1,0,3,3.	Количество максимальных элементов(4 равно 18)
2	0,0,3,1,1,3,1,0,1,2,0,2,0,4,0,1,4,1,3,1,3,4,3,1,0,1,2,1,4,1,2,0,4,1,3,4,2,4,4,0,0,0,2,0,2,0,3,3,3,3,2,1,3,2,4,3,4,1,3,1,0,3,2,4,2,2,4,3,1,0,3,4,3,3,0,0,4,3,2,4,3,1,0,3,1,4,0,1,2,4,0,0,1,2,2,1,0,3,3.	Количество максимальных элементов(3 равно 25)
3	0,0,4,1,1,3,1,0,1,2,0,2,0,4,0,1,4,1,3,1,3,4,3,1,0,1,2,1,4,1,2,0,4,1,3,4,2,4,4,0,0,0,2,0,2,0,3,3,3,3,2,1,3,2,4,3,4,1,3,1,0,3,2,4,2,2,4,3,1,0,3,4,3,3,0,0,4,3,2,4,3,1,0,3,1,4,0,1,2,4,0,0,1,2,2,1,0,3,3.	Количество максимальных элементов(4 равно 15)
4	0,0,4,1,1,3,1,0,1,2,0,2,0,4,0,1,4,1,3,1,3,4,3,1,0,1,2,1,4,1,2,0,4,1,3,4,2,4,4,0,0,0,2,0,2,0,3,3,3,3,2,1,3,2,4,3,4,1,3,1,0,3,2,4,2,2,4,3,1,0,3,4,3,3,0,0,4,3,2,4,3,1,0,3,1,4,0,1,2,4,0,0,1,2,2,1,0,3,3.	Количество максимальных элементов(4 равно 10)