разработка приложений в ВС

у

i

z

ТУ

9. a = xx

10. a =

sin(r)

Н

Б

ЛАБОРАТОРНАЯ РАБОТА 2

й

Разработка приложения, реализующего

разветвляющийся вычислительныйи

процесс

р

Цель: научиться пользоваться стандартными компонентами

организации переключенийо(TCheckBox, TRadioGroup и др.).

Используя компонентыторганизации переключений разрабо-

и

з

тать интерфейс и программу для заданного разветвляющегося

алгоритма.

о

Краткие сведения

п

Pascal

е

Операторы if и case языка

Для программирования разветвляющихся алгоритмов в язы-

Рке Pascal используются переменные типа boolean, которые мо-

гут принимать только два значения true

и false (да, нет), а

( f ( x ) + y f - ^ f ( x ) y , ху> О

У

1.

а =

( / М + ^

- ^ Т

Щ

ху<0

Н

( / ( * ) + ^)2+1,

XV = 0.

Т

ln(/(x)) + ( / ( x ) 2 + j / ) \

х/у>Б0

и

2.

Ъ =

fo\f(x)/y\

р

йх/у<

О

+ ( f ( x ) + y)\

о

х = 0

( f ( x f + y ) \

О,

т

у = 0.

f(x?

и

х-у

= О

+у2

+siny,

3.

:

2

+ COS

п

с

(/(*)з-.у)

е

о{y-f(x)f+tg(yl

х-у<

0.

(Ах)

- У? + arctg(/(x)),

х> у

Р4.

d =

(У ~ А*)? + arctg(/(x)),

у >х

(у + f(x)?

+ ОД

у = х.

i^jf(x),

i - нечетное, x > 0

5. е = if 2^|/(x)|,

i - четное, x < 0

yl\if(A>

иначе.

1еЛЩ

0,5<xb<l0

У

6 .g:

J f{x)+b\,

0,1 <xb<

0,5

Т

Н

2f { x f ,

иначе.

Б

ef(*\

l<xb<\0

7- g =

7 | / W + 4 * 6 | ,

й

12<x& <40

b f { x f ,

иначе

р

.

о

- 1 < m < x

sin(5/(jc) + 3m|/(x)|),

8 - 7 =

т

x>m

cos(3/(x) + 5m\f(x]\

и

иначе.

з

(f(x)+mf,

2/(xf+3p2,

x>p

п

е

о\f(x)-p\,

3 < x <

9. / =

Р

( f ( x ) - p f ,

x = p.

ln(|/(x)|+|9|), И

>10

10. *

=

ef{x)+q,

|xg|<10

f ( x ) + q,

Ы = 10.

Краткие сведения

У

Операторы организации циклов repeat, while, for

Т

Н

тех же операторов при различных значениях промежуточных

данных. Число повторений может быть заданоБв явной или не-

и

явной форме. Для организации повторений в языке Pascal пре-

Repeat

форму

дусмотрены операторы Repeat, Whileйи For.

Оператор Repeat имеет

:

о

<операторы>

т

и организует

повторение операторов, помещенных между клю-

until <условие>;

з

чевыми

словам

и repeat и until, до тех пор, пока не выполнится

п

<условие> = true, после чего управление передается следую-

щему з

циклом оператору.

Операто

Р

р While имеет форму:

Т

и организует повторное вычисление операторов при нарас-

тающем изменении переменной цикла i от начальногоУзначе-

Н

ния il до конечного i2 с шагом, равным единице. Заметим,

Б

что если i2 < il, то <операторы> не выполнятся ни разу.

Модификация оператора имеет вид:

For i := i2 downto il do

й

begin

и

<операторы>

end;

о

и организует повторение вычислений при убывающем изме-

нении i на единицу.

т

р

Средства отладки программ в Delphi

о

В написаннойипрограмме после ее запуска, как

правило,

обнаруживаютсязошибки. Ошибки первого уровня

(ошибки

вниз, после исправления каждой ошибки необходимо компи-

лировать программу снова.

У

Ошибки второго уровня - ошибки времени выполнения. Они

Т

связаны с ошибками выбранного алгоритма решения или с не-

Н

правильной программной реализацией алгоритма. Эти ошибки

Если тестовые расчеты указывают на ошибку, то для ее поиска

й

следует использовать встроенные средства отладки среды Delphi.

В простейшем случае для локализации места ошибки реко-

и

мендуется поступать следующим образом. В окне редактиро-

вания текста установить

рв строке перед проверяемым

участком, выделить

т оператор нажатием мыши на полосе

курсо

слева от текста программы, нажать клавишу F4 (выполнение

это

и

з

до курсора). При этом выполнение программы будет останов-

лено на

строке

, содержащей курсор. Теперь можно увидеть,

поместит

чему равны значения интересующих переменных. Для этого

нужно

ь на переменную курсор и в качестве подсказ-

ки на экран

будет высвечено ее значение. В другом варианте

Р

Постановка задачи

У

Т

Разработать приложение с реализацией циклических вычис-

Н

лений в соответствии с индивидуальным заданием.

Задания

Б

й

В заданиях (табл. 1) необходимо вывести на экран таблицу

и

значений функции Y(x) и ее разложения в ряд S(x) для х, изме-

няющихся от хп

до хк

с шагом h = (xk-

хп)/п.

Близость зна-

р

чений S(x) и У(х) во всем диапазоне значений х указывает на

о

правильность вычисления S(x) и Y(x).

т

Таблица 1

и

о

Варианты заданий

№ хп

ч

з S(x)

n

Y(x)

е

v3

v2n+l

sinx

1

0,1

1

+...+ ( I

f *

,

16

пX *

Р

3!

V '

(2/i+ l)

2

0,1

1

,

x2

x2»

10

Л ,

-X

1 +

+ .. + 7—r

e

+e

2

(2я)

2

Я

It

n

(s

\

3

од

1

cos—

cos и—

12

XCOSj

1 +

+

4xn

e

4

соя xsm—

1!

n\

\

4 J

Окончание табл. 1

№ хп

ч

S(x)

п

т

4

од

1

г2

v2"

8

COSX

2!

V

'

(2и)

5

0,1

1

.

- 2

+...+

2п + \

2п

14

(l+ 2

х2

1 + Зх

п\

х1п

Т

6

0,1

1

Х +х3

+ ... + 7х2п+1

г-

8

ех-е~х

У

3!

(2я + 1)

2

г3

г5

+...+(

^

,

т2и+1

1+ х

2

х

X

7

0,1

1

*

*

х

12

3

15

4и

-1

2

arctgx-

2

Н

,

2х

(2xf

й

8

0,1

1

10

Б

в2*

1 + — + ... + -——

1!

п\

Y3

р

( 2

> £

9

0,1

1

х

Х

+... + (

1 )пХ

и14

— + —+ 1 е2

3

v

'

2« + 1

V4

2

У

V3

т

Г2П+1

10

0,1

0,5

и

ох

15

arctg(x)

х

х

3

+... + (

17

у2и + 1

з

о

ЛАБОРАТОРНАЯ РАБОТА 4

Разработка приложения с использованием массивов

Цель:

Р

пизучить свойства компонента TStringGrid. Написать

программу с использованием массивов.

ключевого слова Array следующим образом:

Т

Array [описание индексов] of <тип элементов массива >;

Примеры описания массивов:

Н

У

Б

Const N=20; // Задание максимального значения индекса;

Туре

TVector = array [1 ..N] ofreal;

// Описание типа одномерного массива;

Var

й

А : TVector;

//А -

масси

в типа TVector;

Ss : array[l.. 10] of integer;

//Ss -

в из десяти целых чисел;

р

Y: array[1..5,1.. 10] ofchar; //Y - двумерный массив символьного типа.

о

т

использоваться в выражениях так же,

Элементы массивов могу

как и обычные переменные, например:

и

з

F:=2*a[3] + a[ss[l] + l]*3;

A[n]:= 1+sqrt(abs(a[n-1]));

о

п

Компонент TStringGrid

При работе с массивами ввод и вывод информации на эк-

Р