Реализация языка программирования Пролог:

Kompozer Prolog

Strawberry Prolog

Quintus Prolog

Micro Prolog

​

import java.util.Scanner;

public class Main {
public static void main(String[] args) {
Scanner in = new Scanner(System.in);
int n = in.nextInt();
double[] a = new double[n];
for (int i = 0; i < n; i++) {
double rand = Math.random();
a[i] = rand <= 0.5 ? rand*(-40) : rand*40;
}
double max = -100, min = 100;
int maxi = -1, mini = -1;
for (int i = 0; i < a.length; i++) {
if (a[i] > max) {
max = a[i];
maxi = i;
}
if (a[i] < min) {
min = a[i];
mini = i;
}
}
double temp = a[maxi];
a[maxi] = a[mini];
a[mini] = temp;
}
}

Var a,b,c,d,x,y: real;
begin
  write('задайте a b c d через пробел:  ');
  readln(a,b,c,d);
  write('координаты точки x y через пробел: ');
  readln(x,y);
  if a>b then swap(a,b);
  if c>d then swap(c,d);
  if ((y>=a) and (y<=b) and (x>=c) and (x<=d)) then
  writeln('точка принадлежит области')
  else writeln('точка не принадлежит области');
end.
  
задайте a b c d через пробел:  1 2 3 4
координаты точки x y через пробел: 3.5 1.5
точка принадлежит области

задайте a b c d через пробел:  1 2 3 4
координаты точки x y через пробел: 2 2
точка не принадлежит области