atToStrF (f, ffFixed, 6,2) + chr (13); (x = 4) then: = 5 * sqr (cos (x));: = st + FloatToStrF (x, ffFixed, 6,2) + '' + FloatToStrF (f, ffFixed, 6,2) + chr (13);
else st: = st + 'Функція не визначена' + chr (13);
x: = x +0.4;;. Caption: = st;;
В
В
Проект в режимі конструювання
В
Проект в режимі запуску Завдання 1
В
Проект в режимі запуску Завдання 2
Задача 3.
Скласти алгоритм, написати програму, створити проект - додаток під Windows, яке дозволяє провести обчислення за завданням 1, наведеному в в табл.2.
1. Для цього, використовуючи компонент StringGrid, ввести одновимірний масив з цілих чисел в діапазоні - 20. +20. У модулі проекту необхідно:
описати масив; ввести елементи масиву із заданого діапазону;
виконати з елементами масиву дії, задані в табл.2;
вивести результати обчислень на екран у відповідні компоненти;
постачити елементи інтерфейсу пояснювальними написами;
зберегти проект рішення у своїй папці на диску D: Temp Tabl модуль під ім'ям Main. pas, а проект під ім'ям Mas1. dpr.
Таблиця 2
NІмя массіваЗаданіе9G (16) Вивести послідовність g 1 , g 9 , g 2 , g 10 ,., g 8 , g 16 і обчислити добуток пар елементів масиву G.
procedure TForm1. Button1Click (Sender: TObject);: byte;: array [1.16] of integer;: string;: = ''; i: = 1 to 16 do [i]: = StrToInt (StringGrid1. Cells [i-1, 0] ); i: = 1 to 8 do: = st + IntToStr (G [i]) + '' + IntToStr (G [8 + i]) + chr (13);. Caption: = st;;
{$ I unit1. lrs}.
В
Проект в режимі проектування
В
Проект в режимі запуску
2. Висновки
У контрольній роботі виконані 3 завдання на різні алгоритмічні структури, що описують такі процеси:
. Розгалужуються
. Циклічний ітеративний
. Циклічний регулярний, використовуваний для роботи з масивами. p align="justify"> Кожна структура реалізується за допомогою відповідних опе...
