Помогите решить задачи в паскале

[Лвёночек]

не могу решить 3 задачи и закрыть сессию =( помогите хоть одну решить =(
1) выведите на печать номера точек, лежащих в круге радиусом R с центром в начале координат. Координаты точек заданы массивами X(N) и Y(N).
2) постройте матрицу A(N,N), элементы которой определяются равенствами a(ij)=i+2j, а также найдите произведение чётных элементов этой матрицы, удовлетворяющих условию a(ij)<P(0<P<3N)
3) выясните, верно ли, что в заданом предложении Р есть все буквы, входящие в заданое слово S.

[Don Karleone]

№ 1

const
  n = 20;

var
  X, Y: array [1..255] of real;
  i: byte;
  Py, r: real;

begin
  clrscr;
  randomize;
  write('Введите радиус окружности: r = ');
  readln(r);  {ввод радиуса}
  for i:=1 to n do  {заполняем массивы случайными числами}
    begin
      X[i]:=(random(41) - 20) * random;
      Y[i]:=(random(41) - 20) * random;
    end;
  write('Номера найденных точек: ');
  {цикл поиска точек, принадлежащих окружности}
  for i:=1 to n do
     if (X[i] >= -r) and (X[i] <= r)
       then
             begin
                Py:=Sqrt(Sqr(r) - Sqr(X[i])); 
                if (Y[i] <= Py) and (Y[i] >= -Py) then write(i,' '); 
             end;
   readln; 
end.

Вроде должно работать, хотя я не проверял.

[Stilet]

верно ли, что в заданом предложении Р есть все буквы, входящие в заданое слово S.

 var predlogenie,slovo:string;
 i:integer;
begin
 predlogenie:='i kmow the pieces fit';
 slovo:='ter';
 for i:=1 to length(slovo) do begin
  if pos(slovo[i],predlogenie)=0 then begin
   Write('No');readln; halt;
  end;
 end;
  { TODO -oUser -cConsole Main : Insert code here }
   Write('Yes');readln;
end.

Проверял.

[Лвёночек]

Спасибо большое, я сейчас заплачу от радости

[Serge_Bliznykov]

не буду утверждать, что алгоритм, предложенный Don Karleone неверен, но я бы написал гораздо банальнее:

 {цикл поиска точек, принадлежащих окружности}
  for i:=1 to n do
     if sqrt(sqr(x[i])+sqr(y[i]))<=r 
         then  ('Точка ',i:1,' с координатами (',x[i]:1,',',y[i]:1,')'); 

  readln;

[Анатоль]

если я правильно понял услвоие 2ой задачи то вот код.
var
n,i,j,p,rez : longint;
mas : array[1..100,1..100] of longint;
BEGIN
read(n,p);{считываем n и p}
for i := 1 to n do
for j := 1 to n do
Mas[i,j] := i+2*j;
rez := -1;{на тот случай если таких элементов нету}
for i := 1 to n do
for j := 1 to n do
if ((Mas[i,j] mod 2) = 0) and (Mas[i,j] < p) then
if (rez = -1) then
rez := Mas[i,j]
else
rez := rez*Mas[i,j];
if rez = -1 then
writeln('takix elementov nety')
else
writeln(rez);
END.

[Лвёночек]

Спасибо большое всем. Наконец я нашла решение недостоющих задач, чтобы сдать сессию.