X: vec;

I,n: ind;

Max, s: real;

Задание1: Даны натуральные числа n, a₁, a₂, …,a_n. Определить количество a_k последовательности a₁,a₂,…,a_n, являющихся чётными числами и вывести их.

Технология выполнения задания

Постановка задачи: Создать приложение для нахождения четных членов последовательности и определения их количества.

Математическая модель представляется так: исходные данные – n, a₁, a₂, …,a_n, результат – k, a_k- четный член последовательности.

Алгоритм решения задачи: запишем алгоритм решения поставленной задачи с помощью блок-схемы (описываем только процедуру вычисления значения функции).

Программа: Установите компоненты на форме и измените свойство Caption для каждого компонента в соответствии с рисунком 17.

Для четных чисел данной последовательности установить компонент ListBox. Для компонента BitBtn1 (кнопка Закрыть) в инспекторе объектов измените свойство Kind – bkClose.

Двойным щелчком по компоненту Button1 (кнопка Вычислить) автоматически создается в окне кода стандартная структур. В данную структуру впишите часть программы (у каждого варианта своя индивидуальная часть программы). Для задания 1 эта часть выглядит следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

const n=15;

var q,b:array[1..n] of integer;

i,k:byte;

s:string

Begin

k:=0;

for i:=1 to n do

Begin

s:=inputbox('введите последовательность','n'+IntToStr(i),'0');

q[i]:=StrToint(s);

b[i]:=round(q[i]/2);

if (q[i] mod 2=0) and (b[i] mod 2<>0) then

Begin

k:=k+1;

ListBox1.Items.Add(IntToStr(q[i]));

End;

End;

Label2.Caption:='Количество четных членов последовательности '+IntToStr(k);

End;

Рисунок 17 - Образец размещения компонент на форме

Задание2:Дана последовательность вещественных чисел х1,х2,…,хn (n<=30). Найти их среднее значение.

Технология выполнения задания

Постановка задачи: Создать приложение для нахождения среднего значения вещественных чисел х1,х2,…,хn (n<=30).

Математическая модель представляется так: исходные данные – n, х1,х2,…,хn, результат – s, x_i- член последовательности.

Алгоритм решения задачи: запишем алгоритм решения поставленной задачи с помощью блок-схемы (описываем только процедуру вычисления значения функции).

Программа: Установите компоненты на форме и измените свойство Caption для каждого компонента.

Для чисел данной последовательности установить компонент ListBox. Для компонента BitBtn1 (кнопка Закрыть) в инспекторе объектов измените свойство Kind – bkClose.

Двойным щелчком по компоненту Button1 (кнопка Вычислить) автоматически создается в окне кода стандартная структур. В данную структуру впишите часть программы (у каждого варианта своя индивидуальная часть программы). Для задания 2 эта часть выглядит следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

const nmax=30;

Var

x: array[1..nmax] of real;

i,n:integer;

s:real;

Begin

n:=strtofloat(edit1.text);

for i:=1 to n do

x[i]:=StrToint(inputbox('введите последовательность','x'+IntToStr(i),'0'));

s:=0;

for i:=1 to n do

s:=s+x[i];

s:=s/n;

Label2.Caption:='среднее = '+IntToStr(s);

End;

Задание3:Вычислить значение полинома P(x)=a_nxⁿ+a_n-1x^n-1+…+a₀ (n 20) при заданном значении x.

Для решения задачи воспользуемся схемой Горнера вычисления значения полинома, основанной на представлении его в следующей форме:

P(x)=(…((a₀x+a₁)x+a₂)x+…+a_n-1)x+a_n.

Значение полинома получается n-кратным выполнением оператора присваивания

p:=p*x+a_i, i=1,2,…,n

при начальном значении p=a₀.

Технология выполнения задания

Постановка задачи: Создать приложение для нахождения значения полинома

P(x)=a_nxⁿ+a_n-1x^n-1+…+a₀ (n 20).

Математическая модель представляется так: исходные данные – n, a_0,a₁, a₂, …,a_n, результат – p.

Алгоритм решения задачи: запишем алгоритм решения поставленной задачи с помощью блок-схемы (описываем только процедуру вычисления значения функции).

Программа: Установите компоненты на форме и измените свойство Caption для каждого компонента. Для четных чисел данной последовательности установить компонент ListBox. Для компонента BitBtn1 (кнопка Закрыть) в инспекторе объектов измените свойство Kind – bkClose.

Двойным щелчком по компоненту Button1 (кнопка Вычислить) автоматически создается в окне кода стандартная структур. В данную структуру впишите часть программы (у каждого варианта своя индивидуальная часть программы). Для задания 3 эта часть выглядит следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

const nmax=20;

type

ind=0..nmax;

coef=array[ind] of real;

var a: coef;

i,n:ind;

x,p:real; s:string;

Begin