Варианты задания 2

Таблица 3.2.

1) 8)	2) 9)
3) 10)	4) 11)
5) 12)	6) 13)
7) 14)

Таблица 3.3.

1, 6, 11	1. Найти количество тех членов последовательности, которые кратны 5 и не кратны 7. 2. Вычислить среднее арифметическое всех положительных нечетных членов последовательности.
2, 7, 12	1. Определить количество членов, имеющих четные порядковые номера и являющихся нечетными числами. 2. Вычислить среднее арифметическое чисел, которые больше полусуммы первых двух чисел.
3, 8, 13	1. Определить наименьшее из нечетных чисел и его номер. 2. Вычислить среднее арифметическое отрицательных чисел с четными номерами.
4, 9, 14	1. Найти среднее арифметическое членов, имеющих нечетные порядковые номера и являющихся четными числами. 2. Найти и вывести на экран те члены последовательности, которые при делении на 7 дают остаток 1, 2 или 5.
5, 10, 15	1. Найти среднее арифметическое тех членов последовательности, которые нечетные и отрицательны. 2. Вычислить произведение тех членов последовательности, которые кратны 3 и не кратны 5.

Пример выполнения задания 2

Для N точек, значения которых задаются случайным образом в заданном диапазоне вывести таблицу сообщений о попадании точки в область. Подсчитать количество точек (K), попавших в область. Вывод выполнить в поле Memo в виде “X Y Результат”.

Для ввода значений радиуса (R) и количества точек (N) использовать компонент SpinEdit (страница Samples).

Уравнения линий

Окружность

Прямые

(1)

(2)

procedure TForm1.Button1Click(Sender: TObject);

var R, //радиус окружности

n, //число точек

x,y, //координаты точки

k, //число точек, попавших в область

i:integer; //параметр цикла

s:string; //строка с сообщением

begin

R:=StrToInt(SpinEdit1.Text);

n:=StrToInt(SpinEdit2.Text);

Memo1.Clear;

Memo1.Lines.Add(' X Y Результат');

Memo1.Lines.Add('------------------------------------------------');

Randomize;

k:=0;

//цикл

for i:=1 to n do

begin

//задание координат точки

x:= RandomRange(-5,5);

y:= RandomRange(-5,5);

//проверка точки

if (x<=0) and (y>=0) and (x*x+y*y<=r*r) or

(x>=0) and (y>=-2*x) and (y>=2*(x-R)) and (y<=0)

then

begin

s:='Принадлежит';

k:=k+1;

end

else s:='Не принадлежит';

//вывод

Memo1.Lines.Add(IntToStr(x)+' '+ IntToStr(y)+' '+s);

Memo1.Lines.Add('-----------------------------------------------');

end; //конец цикла

Memo1.Lines.Add('');

Memo1.Lines.Add('Число точек, попавших в область, равно '

+IntToStr(k))

end;