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.