Const n=4; var arr: array[1..n, 1..n] of integer; i, j, t, buf: integer; begin for i:=1 to n do for j:=1 to n do begin write('Введите элемент: '); readln(arr[i,j]); end; writeln('Введеная матрица:'); for i:=1 to n do begin for j:=1 to n do write(arr[i,j]:4); writeln(); end; //Сортировка for j:=1 to n do for i:=1 to n-1 do for t:=i+1 to n do if arr[i,j] > arr[t,j] then begin buf := arr[i,j]; arr[i,j] := arr[t,j]; arr[t,j] := buf; end; writeln('Отсортированная матрица:'); for i:=1 to n do begin for j:=1 to n do write(arr[i,j]:4); writeln(); end; end.
Правильно пишется шестнадцатеричный. При переводе 2⇒16 число справа налево делится на группы из 4 цифр каждая, затем каждая группа заменяется на шестнадцатеричную цифру: 1000111111₂ = 10 0011 1111₂ = 23F₁₆ При переводе 10⇒12 число надо делить на 12 и выписать остатки от деления в обратном порядке. Остаток 10 заменить на A, остаток 11 - на B 923₁₀ = 64B₁₂ Два последних примера лучше делать за 2 действия: сначала перевести в 10-ю систему счисления, а потом - в 5 (или 12) 79₁₆ = 121₁₀ = 441₅ 1050₈ = 552₁₀ = 3A0₁₂
Нужно заменить кусок кода на этот
double x = double.Parse(textBoxl.Text);
double у = double.Parse(textBox2.Text);
double z = double.Parse(textBox3.Text);
//x = 0.1722;
//y = 6.33;
//z = 3.25;
double a = 5.0 * Math.Atan(x);
double b = 1.0 / 4.0 * Math.Acos(x);
double c = x + 3.0 * Math.Abs(x - y) + Math.Pow(x, 2);
double d = Math.Abs(x - y) * z * Math.Pow(10, -4) + Math.Pow(x, 2); double u = a - b * c / d;
textBox4.Text += Environment.NewLine + "U = " + u.ToString("#.###");