Математика и программирование


Download 253.07 Kb.
Pdf ko'rish
bet8/22
Sana09.09.2022
Hajmi253.07 Kb.
#803196
1   ...   4   5   6   7   8   9   10   11   ...   22
Bog'liq
VLeonov ebook 05
guid, 9-амалий машғулот, график янги, FORM-2020 paper 224 Конф-Ханой, лаб работа №5 -4 часа (1), Uchidan kinematik qo, Мустакил иш Сафаров Ориф, 12.04.2021 (восстановлен), Презентация1, Uchidan kinematik qo, cyberleninka.ru article n kruchenie-prizmaticheskih-sterzhney-sostavlennyh-iz-razlichnyh-materialov, Буралишга кириш, Furqat bitiruv malakaviy ishi bakalavr, Вакцинация холати НАМУНА, Жиззах 2021 (906-910)
end
стало 
procedure TForm1.SpeedButton1Click(Sender: TObject); 
var 
x, y : single; 
i : integer; 
// переменная цикла
begin 
for i := 1 to 4 do 
begin 
x := i; y := MyFunction(x);
// вычисляем i-ю точку
Chart1.Series[0].AddXY(x, y); 
// добавляем i-ю точку


133 
end
end; 
В прежнем варианте мы 4 раза делали одно и то же: вычисляли и добавляли точку в 
график. А в новом варианте используем цикл, т.е. многократно повторяющуюся группу 
действий. Нельзя сказать, что мы «ходим по кругу», т.к. при каждом новом повторении 
изменяется значение переменной цикла i и, следовательно, значение переменной x
которая последовательно принимает значения 1, 2, 3, 4. Таким образом, новый код при 
исполнении даёт тот же результат, что и прежний, но при этом является более 
эффективным. Например, мы легко можем изменить количество проходов цикла и, 
следовательно, количество точек на графике: 
было 
стало 
for i:= 1 to 4 do 
for i:= 0 to 4 do 
Скомпилируем и запустим проект на исполнение. Результат показан на рис. 5.9. Мы 
видим, что точек на графике стало больше за счет увеличения количества проходов в цикле. 
В первоначальном варианте кода нам пришлось бы добавлять дополнительные строки 
кода. А в новом – достаточно изменить пару числовых констант. 
было: 4 точки 
стало: 5 точек 
Рис. 5.10. Увеличение числа точек на графике 
Чтобы на графике появились красивые квадратики, обозначающие вычисленные 
точки, нужно в design-time дважды щёлкнуть на TChart, выбрать узел Series, кликнуть на 
единственной линии графика Series1, перейти на закладку Forman->Pointer и установите 
«галочку» Visible (рис. 5.11).


134 
Рис. 5.11. Настройка отображения точек графика 
Перейдём к следующему реализации добавления точки к графику без изменения 
программного кода. Чтобы построить график функции на произвольном интервале с 
заданным количеством точек, нужно выполнить ряд шагов: 
• задать количество точек на графике; 
• определить начальную и конечную точки диапазона; 
• рассчитать координаты каждой точки; 
• добавить координаты каждой точки в линию графика. 
На рис. 5.12 показано, как мы будем вычислять координаты, зная начальную и 
конечную точки, а также их количество на графике. 

Download 253.07 Kb.

Do'stlaringiz bilan baham:
1   ...   4   5   6   7   8   9   10   11   ...   22




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2022
ma'muriyatiga murojaat qiling