int RowWithMax(double m[n][n], int j)
{
double max_el = m[j][j];
int max_i = j;
for (int i = j; i < n; i++)
{
if (abs(m[i][j]) > abs(max_el))
{
max_el = m[i][j];
max_i = i;
}
}
return max_i;
}
void RowChange(double m[n][n], double f[n], int i1, int i2)
{
for (int j = 0; j < n; j++)
{
/*m[i1][j] = m[i1][j] + m[i2][j];
m[i2][j] = m[i1][j] - m[i2][j];
m[i1][j] = m[i1][j] - m[i2][j];*/
swap(m[i1][j], m[i2][j]);
}
swap(f[i1], f[i2]);
}
double StraightRun(double m[n][n], double f[n], int i) //прямой метод
{
double el;
double det = 1;
int reverse = 0;
int max_i = RowWithMax(m, i);
if (i != max_i)
{
RowChange(m, f, i, max_i);
//reverse++;
det *= (-1);
}
el = m[i][i];
det *= el;
f[i] /= el;
for (int i1 = n - 1; i1 >= i; i1--)
{
m[i][i1] /= el;
}
for (int i2 = i + 1; i2 < n; i2++)
{
el = m[i2][i];
f[i2] -= f[i] * el;
for (int j = n - 1; j >= i; j--)
{
m[i2][j] -= el * m[i][j];
}
}
return det/**pow(-1, reverse)*/;
}
ответ: На во ответил правильно, не понял тебе перевод нужен
Объяснение:не знаю ли тебе это:
program test;
uses crt;
var i,right,mark,v: longint;
answer,true1,true2,true3,true4,true5: char;
begin
right:=0; // Счётчик правильных ответов
v:=5; // Количество во Правильный ответ на во Во Вариант ответа');
writeln('b) вариант ответа');
writeln('c) Вариант ответа');
read(answer);
if answer=true1 then inc(right);
end;
if i=2 then begin
writeln('Во Вариант ответа');
writeln('b) Вариант ответа');
writeln('c) Вариант ответа');
read(answer);
if answer=true2 then inc(right);
end;
if i=3 then begin
writeln('Во Вариант ответа');
writeln('b) Вариант ответа');
writeln('c) Вариант ответа');
read(answer);
if answer=true3 then inc(right);
end;
if i=4 then begin
writeln('Во Вариант ответа');
writeln('b) Вариант ответа');
writeln('c) Вариант ответа');
read(answer);
if answer=true4 then inc(right);
end;
if i=5 then begin
writeln('Во Вариант ответа');
writeln('b) Вариант ответа');
writeln('c) Вариант ответа');
read(answer);
if answer=true5 then inc(right);
end;
end;
if right>1 then mark:=right
else mark:=2; // Оценка, если во больше 5, то там другая формула.
writeln('Ваша оценка ',mark,'. Вы дали ',right,' правильных ответов');
