Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

X: vec;





I,n: ind;

Max, s: real;

Задание1: Даны натуральные числа n, a1, a2, …,an. Определить количество ak последовательности a1,a2,…,an, являющихся чётными числами и вывести их.

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

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

Математическая модель представляется так: исходные данные – n, a1, a2, …,an, результат – k, ak- четный член последовательности.

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

Программа: Установите компоненты на форме и измените свойство 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, xi- член последовательности.

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

Программа: Установите компоненты на форме и измените свойство 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)=anxn+an-1xn-1+…+a0 (n 20) при заданном значении x.

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

P(x)=(…((a0x+a1)x+a2)x+…+an-1)x+an.

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

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

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

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

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

P(x)=anxn+an-1xn-1+…+a0 (n 20).

Математическая модель представляется так: исходные данные – n, a0,a1, a2, …,an, результат – 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







Дата добавления: 2015-08-17; просмотров: 553. Нарушение авторских прав; Мы поможем в написании вашей работы!




Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Классификация потерь населения в очагах поражения в военное время Ядерное, химическое и бактериологическое (биологическое) оружие является оружием массового поражения...

Факторы, влияющие на степень электролитической диссоциации Степень диссоциации зависит от природы электролита и растворителя, концентрации раствора, температуры, присутствия одноименного иона и других факторов...

Йодометрия. Характеристика метода Метод йодометрии основан на ОВ-реакциях, связанных с превращением I2 в ионы I- и обратно...

Билет №7 (1 вопрос) Язык как средство общения и форма существования национальной культуры. Русский литературный язык как нормированная и обработанная форма общенародного языка Важнейшая функция языка - коммуникативная функция, т.е. функция общения Язык представлен в двух своих разновидностях...

Патристика и схоластика как этап в средневековой философии Основной задачей теологии является толкование Священного писания, доказательство существования Бога и формулировка догматов Церкви...

Основные симптомы при заболеваниях органов кровообращения При болезнях органов кровообращения больные могут предъявлять различные жалобы: боли в области сердца и за грудиной, одышка, сердцебиение, перебои в сердце, удушье, отеки, цианоз головная боль, увеличение печени, слабость...

Studopedia.info - Студопедия - 2014-2025 год . (0.009 сек.) русская версия | украинская версия