Var X,y,r,s,t:real;
Между begin и end необходимо добавить следующий текст:
//вводятся промежуточные переменные r, s, t
//градусная мера заменяется радианной
r:=(31+3/60)*pi/180;
x:=exp(1+sin(r)/cos(r));
s:=ln(x*x)+sqr(ln(x)/ln(10));
t:=sin(x)/cos(x)+a/(a+1/x);
//последовательно используется переменная y
y:=sqrt(1/s);
y:=sqr(b+a*exp(x)/y);
y:=y-sin(x+b)/t;
//вывод результатов
Edit3.Text:=FormatFloat('0.00000',x);
Edit4.Text:=FormatFloat('0.0',y);
19. В разделе var модуля объявить переменные a и b:
var a, b:real;
20. Сохранить проект.
21. Запустить программу на выполнение, выполнив команду Run-Run.
22. После запуска на экране появится форма. В поля Edit1 и Edit2 нужно ввести исходные данные (разделитель целой и дробной части - запятая). Затем нажать кнопку Расчёт.
Вид окна с результатами:
Рабочее задание
Задание 1.
Разработать приложение для вычисления функции, заданной в таблице 1.3. Используйте переменные и константы. Ответить на контрольные вопросы.
В среде программирования Delphi cоздать новый проект, выбрав пункт меню File/New Application.
Сохранить этот проект в папке
"С:\ИТАС1\Программирование\Ваша_группа\Ваша_фамилия\Lab1\Lab1_1"
c помощью команды File-Save All (Unit1.pas под новым именем Main11_N.pas, а Project1.dpr под новым именем Lab11_N.dpr, где N – номер варианта).
Задание 2.
Разработать приложение для решения задач по стереометрии. Для ввода исходных данных использовать компоненты Edit c фильтрацией вводимых значений. Все входные и выходные элементы должны иметь названия (компонент Label).
В среде программирования Delphi cоздать новый проект, выбрав пункт меню File/New Application.
Сохранить этот проект в папке
"С:\ИТАС1\Программирование\Ваша_группа\Ваша_фамилия\Lab1\Lab1_2"
c помощью команды File-Save All (Unit1.pas под новым именем Main12_N.pas, а Project1.dpr под новым именем Lab12_N.dpr, где N – номер варианта).
Задание 3.
Разработать приложение для решения задач целочисленной арифметики. Для ввода исходных данных использовать компоненты Edit c фильтрацией вводимых значений. Все входные и выходные элементы должны иметь названия (компонент Label).
В среде программирования Delphi cоздать новый проект, выбрав пункт меню File/New Application.
Сохранить этот проект в папке
"С:\ИТАС1\Программирование\Ваша_группа\Ваша_фамилия\Lab1\Lab1_3"
c помощью команды File-Save All (Unit1.pas под новым именем Main13_N.pas, а Project1.dpr под новым именем Lab12_N.dpr, где N – номер варианта).
Задание 4.
Разработать приложение для вычисления площади заштрихованной фигуры, если известен радиус окружности (варианты 1, 3, 5) или сторона квадрата (варианты 2, 4). Для ввода исходных данных использовать компоненты Edit c фильтрацией вводимых значений. Все входные и выходные элементы должны иметь названия (компонент Label).
На форму поместить рисунок фигуры (файл *.bmp). Рисунок создать в приложении Paint и загрузить его через компонент TImage (страница Additional), используя свойство Picture.
В среде программирования Delphi cоздать новый проект, выбрав пункт меню File/New Application.
Сохранить этот проект в папке
"С:\ИТАС1\Программирование\Ваша_группа\Ваша_фамилия\Lab1\Lab1_4"
c помощью команды File-Save All (Unit1.pas под новым именем Main14_N.pas, а Project1.dpr под новым именем Lab14_N.dpr, где N – номер варианта).
Написать отчет, содержащий (по каждому заданию):
- рабочее задание;
- блок-схему алгоритма вычисления функции;
- изображение формы;
- таблицу со свойствами компонентов в виде
|
Имя компонента |
Свойство |
Значение |
|
|
|
|
- текст программы;
- результаты расчета.
Таблицы вариантов
|
Номер задания |
Варианты | |||||||||||
|
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 | |
|
1 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
|
2 |
1 |
2 |
3 |
1 |
2 |
3 |
1 |
2 |
3 |
1 |
2 |
3 |
|
3 |
5 |
4 |
3 |
2 |
1 |
5 |
4 |
3 |
2 |
1 |
5 |
4 |
|
4 |
3 |
2 |
4 |
5 |
1 |
3 |
2 |
4 |
1 |
5 |
3 |
2 |