Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Паскалю / Простой пример объектно.doc
Скачиваний:
30
Добавлен:
02.05.2014
Размер:
87.04 Кб
Скачать

Разработка методов Метод инициализации линейного уравнения

I. Спецификация

1. Назначение: заполнение полей а1 (коэффициент при неизвестном х) и а0 (свободный член) исходными данными.

2. Имя: INIT

3. Вид: процедура

4. Перечень параметров (все параметры входные):

Назначение

Имя

Тип

Вид

Значение коэффициента при неизвестном х

a

real

параметр-значение

Значение свободного члена

b

real

параметр-значение

5. Заголовок: PROCEDURE INIT(a,b:REAL);

II. Метод решения

  1. a1:=a

  2. a0:=b

V. Программная модель

procedure tlinur.init(a,b:real);

begin

a1:=a;

a0:=b

end;

Метод решения линейного уравнения

I. Спецификация

  1. Назначение: решение линейного уравнения вида a1x+a0=0 для любых вещественных a1 и a0

  2. Имя: LINUR

  3. Вид: процедура

  4. Перечень параметров: без параметров

  5. Заголовок: PROCEDURE LINUR;

II. Метод решения

V. Программная модель

procedure tlinur.linur;

begin

if a1<>0 then

begin

k:=1;

x1:=-a0/a1

end

else

if a0=0 then k:=-1

else k:=0

end;

Метод вывода решения линейного уравнения

I. Спецификация

1. Назначение: вывод на экран результатов решения линейного уравнения

  1. Имя: PRINT

  2. Вид: процедура

  3. Перечень параметров: без параметров

  4. Заголовок: PROCEDURE PRINT;

II. Метод решения

выбор по значению k из вариантов

V. Программная модель

procedure tlinur.print;

begin

case k of

-1:writeln('любое значение');

0:writeln('решений нет');

1: writeln('один корень=',x1)

end

end;

Метод инициализации квадратного уравнения

I. Спецификация

1. Назначение: заполнение полей а2 (коэффициент при квадрате х), а1 (коэффициент при неизвестном х) и а0 (свободный член) исходными данными.

2. Имя: INIT

3. Вид: процедура

4. Перечень параметров (все параметры входные):

Назначение

Имя

Тип

Вид

Значение коэффициента при квадрате неизвестного x

a

real

параметр-значение

Значение коэффициента при неизвестном х

b

real

параметр-значение

Значение свободного члена

с

real

параметр-значение

5. Заголовок: PROCEDURE INIT(a,b,c:REAL);

II. Метод решения

  1. a2:=a

  2. a1:=b

  3. a0:=c

V. Программная модель

procedure tkvur.init(a,b,c:real);

begin

a2:=a;

a1:=b;

a0:=c

end;

Метод решения квадратного уравнения

I. Спецификация

  1. Назначение: решение квадратного уравнения вида a2x2+a1x+a0=0 в области вещественных чисел.

  2. Имя: KVUR

  3. Вид: процедура

  4. Перечень параметров: без параметров

  5. Заголовок: PROCEDURE KVUR;

II. Метод решения

III. Информационная модель

Назначение

Имя

Тип

Дискриминант

d

real

V. Программная модель

procedure tkvur.kvur;

var d:real;

begin

if a2<>0 then

begin

d:=(sqr(a1)-4*a2*a0);

if d>=0 then

begin

x1:=(-a1+sqrt(d))/(2*a2);

x2:=(-a1-sqrt(d))/(2*a2);

k:=2

end

else

k:=0

end

else linur

end;

Метод вывода решения квадратного уравнения

I. Спецификация

1. Назначение: вывод на экран результатов решения квадратного уравнения

  1. Имя: PRINT2

  2. Вид: процедура

  3. Перечень параметров: без параметров

  4. Заголовок: PROCEDURE PRINT2;

II. Метод решения

выбор по значению k из вариантов

V. Программная модель

procedure tkvur.print2;

begin

case k of

-1..1:print;

2:writeln('два корня x1=',x1,' x2=',x2)

end

end;

Метод решения биквадратного уравнения

I. Спецификация

  1. Назначение: решение биквадратного уравнения вида a2x4+a1x2+a0=0 в области вещественных чисел.

  2. Имя: BIKVUR

  3. Вид: процедура

  4. Перечень параметров: без параметров

  5. Заголовок: PROCEDURE BIKVUR;

II. Метод решения

  1. Вычисляем квадраты возможных корней, для этого решаем биквадратное уравнение как квадратное

KVUR ;

  1. В зависимости от количества полученных корней продолжаем решение. В зависимости от полученного значения k вычисляем корни

Выбор по значению k из вариантов

III. Информационная модель

Назначение

Имя

Тип

Дискриминант

d

real

V. Программная модель

procedure tbikvur.bikvur;

begin

kvur;

case k of

1: if x1>=0 then

begin

x1:=sqrt(x1);

x2:=-x1;

k:=2

end

else k:=0;

2: if x1>=0 then

begin

x1:=sqrt(x1);

x3:=-x1;

if x2>=0 then

begin

x4:=-sqrt(x2);

x2:=x3;

x3:=-x4;

k:=4

end

else

begin

x2:=x3;

k:=2

end

end

else

if x2>=0 then

begin

x1:=sqrt(x2);

x2:=-x1;

k:=2

end

else k:=0

end

end;

Метод вывода решения биквадратного уравнения

I. Спецификация

  1. Назначение: вывод на экран результатов решения биквадратного уравнения

  1. Имя: PRINT4

  2. Вид: процедура

  3. Перечень параметров: без параметров

  4. Заголовок: PROCEDURE PRINT4;

II. Метод решения

выбор по значению k из вариантов

V. Программная модель

procedure tbikvur.print4;

begin

case k of

-1..2:print2;

4:writeln('четыре корня x1=',x1,' x2=',x2,' x3=',x3,' x4=',x4)

end

end;

8