Question

Алгоритм мишень цел n, k, i вещ массив p[1000] вещ r1, r2 начало ввести n, массив p и радиусы r1, r2 /* исходные данные */ вывести заголовок и значения n, p, r1, r2 k ¬0 для i от 1 до n шаг 1 выполнять/* подсчитать число точек */ если r1 < ri и ri < r2 то k ¬k +1 конец-если конец-цикл вывести заголовки выходных данных и значений k конец теперь спланируем тестирование. проверку программы выполним при следующих исходных данных. зададим число точек на плоскости: n = 10. подберем расстояния и радиусы: 0.03 21.0 12.89 7.41 99.99 p = 12.34 56.78 90.98 7.6 0.54 r1 = 12.35 r2 = 56.90. выходные данные в этой будут иметь вид: мишень исходные данные: n= 10 массив p[n]: 0.03 21.0 12.89 7.41 99.99 12.34 56.78 90.98 7.6 0.54 r1 = 12.35 r2 = 56.90 ответ: внутри 3 точки (три точки находятся внутри кольца). написать программа в паскале и алгоритм блок-схему.

Answer 1

uses crt;
var
  n,k,i:integer;
  r1,r2:real;
  p: array[1..1000] of real;
begin
  k:=0;
  write('n='); read(n);
  writeln('P[n]:');
  for i:=1 to n do
    read(p[i]);
  write('r1='); read(r1);
  write('r2='); read(r2);
  for i:=1 to n do
  begin
    if (r1<p[i]) and (p[i]<r2) then k:=k+1;
  end;
  writeln;
  write('Внутри ',k,' точки.');
end.