Блог для маленьких школьников и их родителей

Рубрики блога

Вопросы и ответы Информатика 5 - 9 класс

18

Июнь

Решить с помощью функции

Автор: vargxxxu

Предмет: Информатика

Уровень: 5 - 9 класс

Решить с помощью функции

Ответов к вопросу: 1

ddffghhh89

Ответить

18.06.2024 | 15:57

Ответ:
Примерно так это должно выглядеть:
type

matrix= array [1.2, 1.2] of integer; //Матрица с 4 ячейками(2 столбца + 2 строки)

var

x, y, z :matrix;

a, b, c, i, j, w: integer;

function NMatrix(a, b, c:integer):integer;

var

d: integer;

x1, x2: real;

begin
write(‘Сгенерированное уравнение: ‘);

writeln(a+'(x^2)+’+b+’x+’+c+’=0’);

d:=(b*b)-4*a*c;

writeln(‘Дискриминант: ‘, d);

if d<0 then
writeln(‘Нет корней’);

if d=0 then
writeln(‘x1=’,(-b/(2*a)):0:3);

if d>0 then begin

x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

writeln(‘x1=’,x1:0:3);

writeln(‘x2=’,x2:0:3);

end;

end; // Конец функции

begin

writeln(‘————————————‘);

writeln(‘—Решение уравнений с матрицами—‘);

writeln(‘————————————‘);

for i:=1 to 2 do begin

for j:=1 to 2 do begin

x[i,j]:=random(3); // Генерация значений у матриц X,Y,Z

y[i,j]:=random(5);

z[i,j]:=random(3);

a:=a+x[i,j]; // Суммы значений всех элементов матриц
b:=b+y[i,j];

c:=c+z[i,j];

end;

end;

NMatrix(a,b,c);

end.

Ответить на вопрос:

Вам так же может быть интересно:

Невероятная история! Белка и Стрелка. Собаки-космонавты

Читать запись полностью

Чем полезны шахматы для наших детей?

Читать запись полностью

Что значит быть вежливым человеком?

Читать запись полностью