Учебное пособие информатика

Установите в компонент TabSheet1 (Ввод исходных данных) компоненты в соответствии с рис. 3.6, а в компонент TabSheet2 (Результаты расчётов) компоненты в соответствии с рис. 3.8. Компонент StringGrid (таблица) находится во вкладке Additional (рис. 3.7). Он позволяет организовать вывод данных в виде таблицы, состоящих из строк (Rows) и столбцов (Columns, сокращенно – Cols).

Рис. 3.6. Компоненты вкладки TabSheet1

Рис. 3.7. Компоненты вкладки TabSheet2

31

Установите свойства компонента StringGrid следующим образом: ColCount (число столбцов) – 3, RowCount (число строк) – 1, FixedCols (число фиксированных столбцов) – 0, FixedRows (число фиксированных строк) – 1.

Рис. 3.8. Компоненты вкладки TabSheet2

Для доступа к ячейкам таблицы применяется метод Cells [j,i], где j – номер столбца, i – номер строки. Два раза щёлкните по кнопке «Рассчитать значения», и напишите следующий код:

32

щелкнуть левой кнопкой мыши по экранной форме Form1. При этом

необходимо написать следующий код:

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

Измените функции Y(X) и Z(X) в соответствии с индивидуальным заданием (табл.2.1) и оформите отчёт аналогично примеру, приведённому в приложении 1.

34

Задание 4. Вычисление значений функции

Данное задание построено на навыках программирования в Lazarus,

.полученных при выполнении предыдущих заданий

Задание: Для заданной функции y=f(x) (табл. 2.1) на отрезках [а;b], [c;d], [e;f] найти сумму или произведение значений функции – соответственно Y1, Y2, Y3, вычисленных с шагом h. Найти результат R= f(Y1, Y2, Y3) (табл. 4.1).

Таблица 4.1. Варианты заданий. Границы отрезков и результат R= f(Y1, Y2, Y3)

35

Таблица 4.1 (Продолжение)

Примечание: В ячейках 8,9,10 сокращение «С» обозначет сумму значений, сокращение «П» - произведение значений функции y=f(x).

Ниже приведён пример выполнения этого задания.

36

Задание: для функции y=х4-х3-2х2+3х-3 на отрезке [-6,2;1,8] найти сумму значений Y1, на отрезке [6,4;10,3] найти произведение значений Y2, на отрезке [18,5;21,8] найти произведение значений Y3, вычисленных с шагом h=0.35.

Найти результат R=0,24٠Y1+0,5٠Y2-Y3.

1. Алгоритм программы

начало

Ввод исходных данных a,b,c,d,e,f,h

Y1=0; x=a

Y1=Y1+y; x=x+h

Y2=1; x=c

нет x≤d?

Y2=Y2*y; x=x+h

Y3=1; x=e

нет x≤f?

Y3=Y3*y; x=x+h

А

37

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Button1: TButton; Chart1: TChart;

Series1: TLineSeries; Label10: TLabel; Edit10: TEdit;

procedure Button1Click(Sender: TObject); private

{Private declarations } public

{Public declarations }

end;

var

a,b,c,d,e,f,r,y,x,y1,y2,y3:Real; Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); begin //Ввод исходных данных a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=StrToFloat(Edit3.Text); d:=StrToFloat(Edit4.Text); e:=StrToFloat(Edit5.Text); f:=StrToFloat(Edit6.Text); h:=StrToFloat(Edit7.Text);

Y:=0; // Вычисление значений функции на первом отрезке

X:=a;

While X<=b do begin y:=sqr(sqr(x))-power(x,3)-2*sqr(x)+3*x-3; Y1:=Y1+y;

x:=x+h;

39

end;

Y2:=1; // Вычисление значений функции на втором отрезке x:=c;

While X<=d do begin y:=sqr(sqr(x))-power(x,3)-2*sqr(x)+3*x-3; Y2:=Y2*y;

x:=x+h;

end;

Y3:=1; // Вычисление значений функции на третьем отрезке x:=e;

While X<=f do begin y:=sqr(sqr(x))-power(x,3)-2*sqr(x)+3*x-3; Y3:=Y3*y;

x:=x+h;

end;

R:=0.24*Y1+0.5*Y2-Y3; // Вычисление результата R Edit11.Text:=FloatToStr(R);// Вывод результатов на экран Edit8.Text:=FloatToStr(Y1);

Edit9.Text:=FloatToStr(Y2);

Edit10.Text:=FloatToStr(Y3); x:=a; //Построение графика

While X<=f do begin y:=sqr(sqr(x))-power(x,3)-2*sqr(x)+3*x-3; Chart1.SeRies1.ADDXY(x,y);

x:=x+h;

end;

end;

3. Результат работы программы

40