Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

алгоритм Мишень

цел 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 точки (три точки находятся внутри кольца).помогите написать программа в паскале и алгоритм блок-схему.пожалуйста срочно!

Ответ оставил Гость

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
  end;
  writeln;
  write(Внутри ,k, точки.);
end.

Оцени ответ