Поиск коэффициентов кубического уравнения. Расчет количества итераций для заданной погрешности по реккурентному соотношению. Заполнение матрицы по условию. Поиск наибольшего целочисленного элемента массива, не имеющего себе равных в другом массиве.
Задача 1 Условие задачи Заданы три корня кубического уравнения: X1, X2, X3. Блок-схема Листинг с комментариями Program Exercise_1; var X1, X2, X3: Real; A, B, C, D: Real; begin Write (X1: ); Readln(X1); Write (X2: ); Readln(X2); Write (X3: ); Readln(X3); Writeln; 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); Writeln (B = , B:0:1); Writeln (C = , C:0:1); Writeln (D = , D:0:1); Readln; end. Листинг с комментариями Program Exercise_2; var a:array [1..3] of real; b:array [1..2] of real; i, j:integer; k:real; begin // заполняем 1 массив for i:=1 to 3 do begin case i of 1: Write (Введите a: ); 2: Write (Введите b: ); 3: Write (Введите c: ); end; Readln (a[i]); end; // заполняем 2 массив for i:=1 to 2 do begin case i of 1: Write (Введите r: ); 2: Write (Введите s: ); end; Readln (b[i]); end; // сортировка 1 массива for i:=1 to 2 do for j:=i 1 to 3 do if a[i]k[imax] then imax:=j; b:=k[i]; k[i]:=k[imax]; k[imax]:=b; end; Writeln (new_k: ); for i:= 1 to m do Write (k[i]:4); Writeln; // Проверяем (с max) элементы k[i] на наличие их в массиве l r:= 1; flag:=true; while flag and not (r=m 1) do // чтобы не выйти за пределы массива begin for i:=1 to n do if k[r]=l[i] then begin r:=r 1; // переходим к следующему элементу массива k break; end else flag:=false; end; if flag then writeln (net takogo); end; Writeln; Writeln (Otvet: , k[r]); Writeln; Readln; end.
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
