Панель управления\Оформление и персонализация/параметры папок,в вкладке Вид там почти в конце "скрывать расширения для зарегистрированных типов файлов" там галочку убери
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017 // Внимание! Если программа не работает, обновите версию!
function ReadComplex:Complex; begin var (r,i):=ReadReal2; Result:=cplx(r,i) end;
procedure WriteComplex(x:Complex); begin if x.Imaginary=0 then Write(x.Real) else begin if x.Real<>0 then Write(x.Real); if (x.Imaginary>0) and (x.Real<>0) then Write('+'); Write(x.Imaginary,'i') end end;
begin var n:=ReadInteger('N ='); Writeln('Введите ',n,' комплексных чисел'); Writeln('Формат ввода числа: действ.часть, пробел, мнимая часть'); var s:=cplx(0.0,0.0); loop n do s+=ReadComplex; Write('S='); WriteComplex(s) end.
Пример N = 5 Введите 5 комплексных чисел Формат ввода числа: действ.часть, пробел, мнимая часть 2.3 -3.12 -1.7 8 6.14 0.2 -2.4 -3.2 0 1.6 S=4.34+3.48i
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Write('Количество строк и столбцов в массиве:'); var (n,m):=ReadInteger2; Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var t:=a.ElementsWithIndexes.Where(x->x[0] mod 5=0).Take(1); a.SwapRows((t.First)[1],n-1); Writeln('*** Результирующий массив ***'); a.Println(4) end.
Пример Количество строк и столбцов в массиве:4 5 *** Исходный массив [4,5] *** -32 -12 94 -28 -42 -15 29 80 28 -69 -5 68 63 -12 22 59 84 65 14 -86