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

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

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. Нарушение авторских прав; Мы поможем в написании вашей работы!




Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Виды и жанры театрализованных представлений   Проживание бронируется и оплачивается слушателями самостоятельно...

Что происходит при встрече с близнецовым пламенем   Если встреча с родственной душой может произойти достаточно спокойно – то встреча с близнецовым пламенем всегда подобна вспышке...

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

Законы Генри, Дальтона, Сеченова. Применение этих законов при лечении кессонной болезни, лечении в барокамере и исследовании электролитного состава крови Закон Генри: Количество газа, растворенного при данной температуре в определенном объеме жидкости, при равновесии прямо пропорциональны давлению газа...

Ганглиоблокаторы. Классификация. Механизм действия. Фармакодинамика. Применение.Побочные эфффекты Никотинчувствительные холинорецепторы (н-холинорецепторы) в основном локализованы на постсинаптических мембранах в синапсах скелетной мускулатуры...

Шов первичный, первично отсроченный, вторичный (показания) В зависимости от времени и условий наложения выделяют швы: 1) первичные...

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