Практические задания

1. Рассчитать стипендию студента в зависимости от успеваемости.

2. Рассчитать средний балл студента за сессию.

3. Рассчитать среднюю скорость бега студента при сдаче одного из нормативов: бег 100 метров, бег 2 км, бег 3 км.

4. Осуществить перевод температуры, заданной в градусах Цельсия, в Кельвины, по Фаренгейту и Реомюру, используя формулы

5. T(K) = t(^oC)+273, T(^oF) = 9/5*t(^oC)+32, T(^o) =5/4*t(^oC)

6. Сделать обратные преобразования, описанные в задании 4.

7. Вычислить определитель матрицы размером 2 на 2, используя формулу A_2-2 = a₁₁*a₂₂ - a₁₂*a₂₁

8. Вычислить определитель матрицы размером 3 на 3

A_3-3 = a₁₁*a₂₂*a₃₃ - a₁₁*a₂₃*a₃₂ – a₁₂*a₂₁*a₃₃ + a₁₂*a₂₃*a₃₁ + a₁₃*a₂₁*a₃₂ – a₁₃*a₂₂*a₃₁

9. Осуществить перевод длины в сантиметрах в миллиметры, метры (дюймы).

10. Сделать обратные преобразования, описанные в задании 8.

11. Организовать калькулятор с операциями +, -, /, *, sin, cos, tan.

12. Выделить у числа целую и дробную части.

13. Вычислить для числа значения возведения его в заданную степень.

14. Вычислить для двух элементов (0 или 1) значения по таблицам истинности (And, Or, Xor, Not).

15. Вычислить объем нескольких фигур.

16. Организовать перевод времени в различных часовых поясах.

17. Сделать перевод скорости из км/ч в м/с.

18. Сделать перевод скорости из м/с в км/ч.

19. Организовать вывод таблицы умножения для числа в диапазоне, задаваемом пользователем.

20. Организовать эхо - печать элементов, которые выбираются из нескольких списков или групп.

Занятие №2

Управляющие компоненты

Цель занятия

Научиться использовать управляющие компоненты.

Рассматриваемые компоненты: Timer, PageControl, DateTimePicker, TrackBar, UpDown, ProgressBar.

Методические указания

1. КомпонентTimer(страницаSystem)

Таймер - это невизуальный компонент, который используется для запуска процедур, функций и событий в указанные интервалы времени.

Основные свойства:

• Interval – интервал времени в миллисекундах.

• Enabled – управление работой таймера (используется для запуска/остановки таймера)

  • true – таймер запущен

  • false – таймер остановлен

Эти свойства можно менять в процессе проектирования в окне Инспектора Объектов и в процессе выполнения программы.

Основное событие:

• OnTimer – выполняется при истечение времени, указанного в свойстве Interval

• Пример. В качестве примера создадим бегущую строку.

Определим строку, которую будем использовать в качестве бегущей, как переменную типа String. Описать переменную нужно в разделе описания переменных в блоке implementation редактируемого модуля программы

Строка будет располагаться в окне редактирования Edit. Чтобы сделать строку бегущей, надо использовать таймер. Для этого на форме надо разместить компонент Timer и задать его свойства

• Interval = 100

• Enabled = true

В обработчик события OnTimer (вызвать ее можно двойным щелчком на компоненте Timer) вставить операторы, осуществляющие циклический сдвиг строки:

…

implementation

var

Str : string;

…

procedure TForm1.Timer1Timer (Sender : TObject)

var

first : char; // первый символ

i : integer;

begin

Edit1.Clear;

if not(Str.IsEmpty) // Если строка не пуста

then

begin

Edit1.Text := Str; first := Str[1];

for i=1 to Str.Length do //Циклический сдвиг строки

Str[i] = Str[i+1]; //на один символ влево

Str[Str.Length] = first;

end;

end;

Теперь каждый раз по истечении 100 миллисекунд (0,1 сек) строка в окне редактирования Edit будет циклически сдвигаться влево, т.е. это будет бегущая строка.