// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 unit MatInt;
interface
type Matrix=array[,] of integer;
function MatCreate(m,n:integer):Matrix; procedure MatPrint(a:Matrix;w:integer); procedure MatMax(a:Matrix;var x,imax,jmax:integer);
implementation
function MatCreate(m,n:integer):Matrix; // создает матрицу и инициализирует её нулями begin SetLength(Result,m,n); end;
procedure MatPrint(a:Matrix;w:integer); // выводит матрицу, отводя w позиций под элемент begin var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do begin for var j:=0 to n do Write(a[i,j]:w); Writeln end end;
procedure MatMax(a:Matrix;var x,imax,jmax:integer); // возвращает значение максимального элемента и его координаты begin imax:=0; jmax:=0; var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j); Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1] end;
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 uses MatInt; begin var a:=MatCreate(5,8); var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do a[i,j]:=Random(-50,50); MatPrint(a,4); var irow,jcol,max:integer; MatMax(a,max,irow,jcol); Writeln('Максимальный А[',irow,',',jcol,']=',max) end.
public class prosto {
public static void main(String[] args) throws IOException {
// TODO Auto-generated method stub
System.out.println("Программа определения простого числа");
System.out.println("");
int n, s=0, i=2;
System.out.println("Введите натуральное число (>0)>");
Scanner scan = new Scanner(System.in);
n = scan.nextInt();
if (n==1) System.out.println(n+" - число не просто и не составное");
else
{
while (i*i <= n) {
if (n % i == 0) ++s;
++i;
}
if (s == 0) System.out.println(n+" - простое число!");
else System.out.println(n + " - составное число!");
}
System.out.println(i-2+" - итераций");
System.out.print("Нажмите ENTER для выхода...");
System.in.read(); //задержка (аналог system("PAUSE") в C++)
scan.close();
}
}