2. Постановка задачи
Разработать линейное приложение с использованием компонент TLabel, TEdit, TMemo, TButton в соответствии с индивидуальным вариантом задания.
3. Задания
1.
2.
.
3.
4.
=
.
5.
=
+sin
arctg(z).
6.
.
7.
=
5arctg
.
8.
.
9.
.
10.
.
11.
.
12.
.
13.
.
14.
.
15.
.
16. Вывести на экран 1 или 0 в зависимости от того, имеют ли три заданных целых числа одинаковую четность или нет.
17. Найти сумму цифр заданного четырехзначного числа.
18. Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа.
19. Вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.
20. Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.
21. Вывести на экран 1 или 0 в зависимости от того, есть ли среди первых трех цифр дробной части заданного положительного вещественного числа цифра нуль.
22. Вывести на экран 1 или 0 в зависимости от того, есть ли среди цифр заданного трехзначного числа одинаковые.
23. Присвоить целой
переменной
третью от конца цифру в записи
положительного целого числа
.
Присвоить целой переменной первую цифру из дробной части положительного вещественного числа.
Лабораторная работа 2 Разработка приложения, реализующего разветвляющийся вычислительный процесс
Цель лабораторной работы: научиться пользоваться стандартными компонентами организации переключений (TCheckBox, TRadioGroup и др.). Используя компоненты организации переключений разработать интерфейс и программу для заданного разветвляющегося алгоритма.
1. Краткие сведения
1.1. Операторы if u case языка Pascal
Для программирования разветвляющихся алгоритмов в языке Pascal используются переменные типа boolean, которые могут принимать только два значения - true и false (да, нет), а также операторы if и case. Оператор if проверяет результат логического выражения или значение переменной типа boolean и организует разветвление вычислений. Оператор case организует разветвления в зависимости от селектора - значения некоторой переменной, например, n целого типа:
case n of
0: u:= x + y;
1: u:= x - y;
2: u:= x * y;
else u:= 0;
end;
В соответствии со значением n вычисляется значение переменной u. При этом, если n=0, то u=х+у, если n=1, то u=x-y, если n=2, то u=x*y и, наконец, u=0 при любых значениях n, отличных от 0, 1 или 2.
1.2. Кнопки-переключатели в Delphi
При создании программ в Delphi для организации разветвлений часто используются компоненты в виде кнопок-переключателей. Состояние такой кнопки (включено - выключено) визуально отражается на форме. На форме (см. рисунок 2.1) представлены кнопки-переключатели двух типов (TСheckBox и TRadioGroup).
Компонент TCheckBox организует кнопку независимого переключателя, с помощью которой пользователь может указать свое решение типа да/нет. В программе состояние кнопки связано со значением булевской переменной, которая проверяется с помощью оператора if.
Компонент TRadioGroup организует группу кнопок – зависимых переключателей. При нажатии одной из кнопок группы все остальные кнопки |отключаются. В программу передается номер включенной кнопки (0, 1, 2,..), который анализируется с помощью оператора case.