Var f:byte; x:real; Begin WriteLn('Выберите тип математической функции:'); WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.'); ReadLn(f); While f <> 0 do Begin Write('Введите x: ');ReadLn(x); Case f of 1: if x < 0 then WriteLn(x,'*(',x,') = ',x*x) else WriteLn(x,'*',x,' = ',x*x); 2: if x < 0 then WriteLn(x,'*(',x,')*(',x,') = ',x*x*x) else WriteLn(x,'*',x,'*',x,' = ',x*x*x); 3: if x < 0 then WriteLn('√',x,' = ',Sqrt(-x),'i') else WriteLn('√',x,' = ',Sqrt(x)); 4: if x = 0 then WriteLn('Ошибка: на ноль делить нельзя!') else if x < 0 then WriteLn('1/(',x,') = ',1/x) else WriteLn('1/',x,' = ',1/x); End; WriteLn; WriteLn('Выберите тип математической функции:'); WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.'); ReadLn(f); End; End.
Const N = 6; M = 7; Var A:array[1..N,1..M] of integer; i,j,k,MM,B:integer; Begin Randomize; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn End; WriteLn; WriteLn('Отсортированный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin MM:=j; if i mod 2 = 0 then Begin For k:= j+1 to M do if A[i,MM] > A[i,k] then MM:=k End else For k:= j+1 to M do if A[i,MM] < A[i,k] then MM:=k; B:=A[i,MM]; A[i,MM]:=A[i,j]; A[i,j]:=B; Write(A[i,j]:3,' ') End; WriteLn End End.
