Напечатайте программу на языке Паскаль нахождения дискриминанта D=b2 – 4ac квадратного уравнения а*х2+b *х+с=0 для конкретных значений коэффициентов а=3,в=5,с=2. Напишите строку вывода результата с комментарием.
Ну вот как-то так, если что-то не ясно - спрашивай. Инициализации начальных элементов нет, так что без соответствующей правки она не заработает.
int main() { // Something int a[n][m]; // Init
// Находим максимум int im = 0, jm = 0, max = a[0][0]; for (int i = 0 ; i < n; ++i) for (int j = 0; j < m; ++j) if (a[i][j] > max) { max = a[i][j]; im = i; jm = j; }
// Двигаем максимум вниз swapCollumn(a, n, m, im, n-1); swapRow(a, n, m, jm, m-1);
}
//Премещаем 2 столбца местами void swapCollumn(int ** a, int n, int m, int c1, int c2) { if (c1 < 0 || c2 < 0 || c1 >= n || c2 >= n) return; for (int i = 0; i < m; ++i) swap(&a[c1][i], &a[c2][i]); }
//Перемещаем 2 строки местами void swapRow(int ** a, int n, int m, int r1, int r2) { if (r1 < 0 || r2 < 0 || r1 >= m || r2 >= m) return; for (int i = 0; i < n; ++i) swap(&a[i][r1], &a[i][r2]); }
void swap(int * el1, int el2) { int t = *el1; *el1 = *el2; *el2 = *el1; }
1) program average; var i: integer; answer, S, tmp: real; begin for i := 1 to 5 do begin readln(tmp); S := S + tmp end; answer := S / 5; writeln(answer) end. 2) program equation; var A, B, C, D, x1, x2: real; begin writeln('ввеедите коэфициенты квадратного многочлена'); readln(A); readln(B); readln(C); if A <> 0 then begin D := B*B - 4*A*C; if D < 0 then writeln('действительных корней нет') else if D = 0 then begin x1 := -B/(2*A); writeln('Единственный корень: ',x1) end else begin x1 := (-B + sqrt(D)) / (2*a); x2 := (-B - sqrt(D)) / (2*a); writeln('Два корня: ',x1,', ',x2) end; end else writeln('старший коэфициент не может равняться 0') end.
ответ: решение ниже
Объяснение:
program ky;
var
a, b, c: integer;
begin
A := 3;
b := 5;
c := 2;
Writeln('ответ ', sqr(b) - 4 * a * c,';');
end.