Задача 1
Умова задачі
Задані три кореня кубічного рівняння: X 1 , X 2 , X 3 . Знайдіть коефіцієнти цього рівняння.
Блок-схема
Лістинг з коментарями
Program Exercise_1;
var X1, X2, X3 : Real;, B, C, D: Real; ('X1: '); (X1); (' X2: '); (X2); (' X3: '); (X3);;
A: = 1;// коефіцієнт при x в ступені 3
B: = - (X1 + X2 + X3);// коефіцієнт при x в ступені 2
C: = X1 * X2 + X1 * X3 + X2 * X3;// коефіцієнт при x в ступені 1
D: = - (X1 * X2 * X3);// вільний член
Writeln ('A = 1'); ('B =', B: 0:1); ('C =', C: 0:1); ('D =', D : 0:1);
Readln;
end.
Таблиця виконання
X1X2X3ABCD1231-611-6 = 1 = - (1 +2 +3) = -6 = 1 * 2 +1 * 3 +2 * 3 = 11 = - (1 * 2 * 3) = -6
Таблиця тестів
Задача 2
Умова задачі
Чи пройде цегла зі сторонами a, b і c крізь прямокутний отвір зі сторонами r і s? Сторони отвори повинні бути паралельні гранях цегли. p align="justify"> Лістинг з коментарями
Program Exercise_2;
var: array [1 .. 3] of real;: array [1 .. 2] of real;, j: integer;: real;
// заповнюємо 1 массівi: = 1 to 3 doi of
: Write ('Введіть a:');
: Write ('Введіть b:');
: Write ('Введіть c:');; (a [i]);;
// заповнюємо 2 массівi: = 1 to 2 doi of
: Write ('Введіть r:');
: Write ('Введіть s:');; (b [i]);;
// сортування 1 массіваi: = 1 to 2 doj: = i +1 to 3 doa [i]
end;
// сортування 2 массіваb [1]
begin: = b [1]; [1]: = b [2]; [2]: = k;;
// порівняння наиб. елементів масивів
if (a [2]
Writeln ('Пройде') ('Не пройде');;.
Таблиця в...
