1.Cells [3, i]) );. FixedCols: = 1;. FixedRows: = 1;;.
Лістинг програми:
В
Завдання 3. Організація циклів у програмі
Мета завдання
Отримання навичок у виборі і використанні операторів циклу і таблиці StringGrid.
Знайомство з ітераційними процесами
Постановка завдання
1. Використовуючи оператор циклу, знайти суму елементів, зазначених у конкретному варіанті. Результат надрукувати у вигляді таблиці із зазначенням № кроку, значення поточного члена ряду, суми ряду в поточному кроці:
№ шагаЗначеніе поточного члена рядаСумма ряду в поточному кроці
2. Побудувати графік, що показує зміну всіх параметрів таблиці.
Варіант завдання:
Знайти суму 15 членів ряду, в якому
Код програми:
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, TeEngine, Series, ExtCtrls, TeeProcs, Chart; = class (TForm): TChart;: TStringGrid;: TLineSeries;: TLineSeries; FormCreate (Sender: TObject); a (const n: Integer): Real;
{Public declarations};: TForm1;
{$ R *. dfm} TForm1.a (const n: Integer): Real;: = Exp (Sqr (Ln (n)))/exp (ln (n) * ln (ln (n)));; TForm1.FormCreate (Sender: TObject); = 2; = 15; = N + FirstN - 1;: Integer;: Real;: Real;. RowCount: = N + 1;. FixedCols: = 1;. FixedRows: = 1;. Cells [0, 0]: = '№ Кроку';. Cells [1, 0]: = 'Поточний';. Cells [2, 0]: = 'Сума';: = 0; i: = 1 to N do: = a (i + (FirstN - 1));: = sum + cur;. Cells [0, i]: = IntToStr (i);. Cells [1, i]: = FloatToStr (cur);. Cells [2, i]: = FloatToStr (sum);. AddXY (i, cur);. AddXY (i, sum);;;.
Лістинг:
В
функція графіка ітераційний масив
Завдання 4. Робота з масивами чисел
Мета завдання:
Отримання практичних навичок у роботі з масивами
Знайомство з алгоритмами впорядкування
Постановка завдання:
1. Для конкретного варіанту скласти масив вихідних даних, передбачивши можливість заповнення масиву у вигляді таблиці в ручну і автоматично.
2. Вивчивши алгоритми впорядкування, вибрати один з них. Написати програму, яка працює з будь-яким допустимим набором даних.
. Вхідну інформацію...
