Курсовая работа: Современное состояние вычислительной техники

p:=0; o:=0;

for j:=1 to 6 do

if b[i,j] >=0 then

p:=p+1 else o:=o+1;

c[j]:=p; d[j]:=o;

end;

for i:=1 to 7 do

writeln(‘c[‘,i,’]=’,c[i], ‘d[‘,i,’]=’,d[i]);

end.

ввод:

1	-2	1	-2	3	12
4	4	1	0	-4	-5
2	-3	5	3	6	4
0	-5	2	4	7	-7
-1	0	-4	0	0	-6
0	5	1	0	-3	5
1	2	-3	-3	-10	1

ответ:

c[1]=4 d[1]=2

c[2]=4 d[2]=2

c[3]=5 d[3]=1

c[4]=4 d[4]=2

c[5]=3 d[5]=3

c[6]=5 d[6]=1

c[7]=3 d[3]=3

1.2. Построение графика функции в алфавитно-цифровом или графическом режиме

Пусть нужно вывести на алфавитно-цифровой экран монитора график функции y= f(x) в заданном диапазоне изменения аргумента х от а до b с числом точек графика n (n£25). Перед выводом графика нужно напечатать вычисленные значения y_i в виде таблицы, также напечатать наибольшее и наименьшее значения функции f(x).

Рассмотрим решение этой задачи на конкретном примере:

. Число точек графика равно 20.

Примем ширину поля графика w, равной 61 позиции. Отступим от левого края экрана на m= 10 позиций. Для вывода строки графика выделим символьный массив С, состоящий из (w+m) элементов, т.е. 71 элемента. Масштаб по оси х примем равным шагу h при перемещении на одну строку. Масштаб по оси y выберем таким, чтобы максимально использовать поле графика w. Для это необходимо вычислить

y_max = max {y_i } и y_min = min{y_i }

i i

Определим масштаб m_y по формуле:

где ] [ - целая часть выражения; 0.5 добавлено для округления до ближайшего целого.

Масштаб m_y означает, что при каждом изменении значения функции на величину m_y символ, изображающий точку на графике, смещается в очередную позицию по строке.