gin
writeln ('Введіть масив b (7,6) ');
for i: = 1 to 7 do
for j: = 1 to 6 do
readln (b [i, j]);
for i: = 1 to 7 do
begin
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. p> Приймемо ширину поля графіка 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 символ, який зображає точку на графіку, зміщується в чергову позицію по рядку.
За обчисленими значеннями y min і m y визначимо номер позиції k, в якій зображується вісь 0 x :
В
Для визначення номера l позиції в рядку, в якій треба зобразити значення y i , скористаємося формулою
.
Для виведення власне графіка в циклі в черговий рядку, відповідної значенням аргументу x i і функції y i , виведемо символ 'I' у позиції з номером k і символ '*' у позиції з номером l (за l = k в даній позиції слід виводити символ '*').
Схема алгоритму рішення задачі має вигляд:
В
Початок 11
1 a, b, n
w, m 12
C k = 'I'
2 Заповнення
масиву З 13 Тема
пробілами
14 i = 1, n
3 h =
y max = -10 5 15
y min = +10 5
x = a
16 C l = `*`
4 i = 1, n 17 друк
масиву C
5 y i = ...
