/i> 2 - 4ac> 0
В
Рішення
Блок-схема
В
Частина блок-схеми (обчислювальні блоки) для процедури Сv_u - вирішення квадратного рівняння з заданими коефіцієнтами a, b, c
В
Лістинг програми
program Zadanie_8; CRT;, b, c, k1, k2: real;
{Процедура обчислення коренів квадратного рівняння}
procedure kv_ur (var a: real; b: real; c: real; k1: real; k2: real);: real;: = b * b-4 * a * c;: = sqrt (d); : = (-b + d)/2/a;: = (-bd)/2/a; ('Коефіцієнти a =', a: 6:2, 'b =', b: 6:2, 'c = ', c: 6:2);
writeln ('Корені квадратного рівняння:', 'k1 =', k1: 8:4, 'k2 =', k2: 8:4);;;
{Перший варіант коефіцієнтів} ('Введіть коефіцієнти a, b, c:');
readln (a, b, c); _ur (a, b, c, k1, k2);
{Другий варіант коефіцієнтів}; ('Введіть коефіцієнти a, b, c:');
readln (a, b, c); _ur (a, b, c, k1, k2);
end.
Результат виконання програми
В
Контрольне завдання № 9
Елементи двовимірних масивів вибрати довільно. Вивести їх на друк у форматі і з заголовком. Для вирішення даної задачі використовувати підпрограму типу FUNCTION.
У матрицях У (2,8) і О (4,3) визначити суму елементів третього стовпця матриці. програма масив одновимірний рівняння
Рішення
Блок-схема
В
Масиви формуються за допомогою вбудованої функції random ().
Функція Pechat () здійснює друк масиву в прямокутному вигляді.
Функція Sred (,,, k) підраховує середнє значення елементів k-го стовпця матриці.
Лістинг програми
Program Zadanie_9; CRT; = array [1 .. 10, 1 .. 10] of real;, i, j, n1m, n2m, n1p, n2p: integer;: real;, mo: mm;
{Функція друку масивів} Pechat (n1: integer; n2: integer; h: mm): real;, j: integer; ('Масив розмірності', n1, 'x', n2);
write (''); l: = 1 to n2 * 9 do write ('_');; i: = 1 to n1 doj: = 1 to n2 do ('I', h [i, j]: 6:3); ('I'); (''); l: = 1 to n2 * 9 do write ('-');
writeln;;;;
{Функція підрахунку середнього значення j-го стовпця}
Function Sred (n1: integer; n2: integer; h: mm; j: integer): real;: integer;: real;: = 0.0; k: = 1 to n1 do: = s + h [k, j];: = s/n1;
end;;
{Формува...
