Написать по возможности одну программу для паскаль

программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0

  program 198;

var x,y: real;

begin;

readln (x; y);

if x> 0 and y> 0 then

writeln (1 chetvert);

end;

if x< 0 and  y> 0 then

writeln (2 chetvert);

end;

if x< 0 and  y< 0 then

writeln (3 chetvert);

end;

if x> 0 and  y< 0 then

writeln (4 chetvert);

end;

end.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.

алгоритм — это предназначенное для конкретного исполнения точное описание последовательности и действий, направленных на решение поставленной .

свойства алгоритма.

дискретность — разделение алгоритма на последовательность шагов.

результативность — получение из исходных данных результата за конечное число шагов.

массовость — возможность применения алгоритма к большому количеству различных исходных данных.

детерминированность (определенность) — исполнитель должен выполнять команды алгоритма в строго определенной последовательности.

выполнимость и понятность — алгоритм должен содержать команды, входящие в систему команд исполнителя и записанные на понятном исполнителю языке.

Function sq(a,b,c: real): real; var p: real; begin p: =(a+b+c)/2; result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; function tr(a,b,c: real): boolean; begin result: =(a+b> c)and(a+c> b)and(b+c> a) end; var a,b,c,k1,k2,h,t,s,r1,r2: real; begin writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2 '); readln(k1); if k1=1 then    begin    writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)? ');   readln(k2);   write('сторона а = ');   readln(a);   write('сторона b = ');   readln(b);   write('сторона с = ');   readln(c);   if tr(a,b,c) then   begin   s: =sq(a,b,c);   if k2=1 then    begin   r1: =(a+b+c)/(2*s);   writeln('радиус вписанной окружности = ' , r1);   end;   if k2=2 then    begin   r2: =a*b*c/(4*s);   writeln('радиус описанной окружности = ', r2);   end;   end else writeln('треугольник не существует');   end else   if k1=2 then   begin   writeln('что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2' );   readln(k2);   if k2=1 then   begin   write('высота = ');   readln(h);   write('cторона = ');   readln(t);   s: =1/2*h*t;   writeln('площадь = ',s);   end;   if k2=2 then   begin   write('a = ');   readln(a);   write('b = ');   readln(b);   write('c = ');   readln(c);   if tr(a,b,c) then     begin     s: =sq(a,b,c);     writeln('площадь = ',s) ;     end else writeln('треугольник не существует');   end;   end; end. пример:   найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2  2 что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2 1 высота = 3 cторона = 4 площадь = 6