Задание 1 Вариант 2 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение ВАРИАНТ 21. Напишите программу. На числовой прямой отмечены точки A1, А2, АЗ, ..., Аn. Выясните, какому из отрезков [Ai; Ai+1] принадлежит заданная точка X.Запишите...](/reshebniki/informatika/11/WBbosova/images1/sam5/2/1.png "Изображение ответа ВАРИАНТ 21. Напишите программу. На числовой прямой отмечены точки A1, А2, АЗ, ..., Аn. Выясните, какому из отрезков [Ai; Ai+1] принадлежит заданная точка X.Запишите...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
ВАРИАНТ 2
1. Напишите программу. На числовой прямой отмечены точки A1, А2, АЗ, ..., Аn. Выясните, какому из отрезков [Ai; Ai+1] принадлежит заданная точка X.
Запишите текст программы.
program s5_v2_1;
const
n = 5;
var
a: array[1..n] of integer;
i, x, c, j: integer;
begin
writeln('Ввод координат точек');
for i := 1 to n do
readln(a[i]);
//сортировка "пузырьком" по возрастанию
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] > a[j + 1] then
begin
c := a[j];
a[j] := a[j + 1];
a[j + 1] := c
end;
//for i := 1 to n do//вывод отсортированного массива
//write(a[i], ' ');
writeln;
write('x=');
readln(x);
if (x >= a[1]) and (x <= a[n]) then
begin
for i := 1 to n - 1 do
if (x >= a[i]) and (x <= a[i + 1])
then write('х принадлежит отрезку ', a[i], ':', a[i + 1])
end
else writeln('х не принадлежит ни одному отрезку')
end.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
