Завдання для виконання

Користувач вводить номер стану світлофора, а програма виводить кольори запалених у цей момент лампочок. Є 5 станів світлофора: червоний, червний+жовтий, зелений, мигаючий зелений, жовтий.

Домашнє завдання

1. Модернізувати програму таким чином, щоб під 6-им станом світлофора знову розумівся 1-ий, під 7-им — 2-ий і т. д.

2. Крім кольору «автомобільного» світлофора, виводити одночасно колір світла, яке зараз світиться для пішоходів.

3. Додати зображення світлофора, який би змінював колір лампочок в залежності від активного стану.

Контрольні питання

1. Поняття умовного оператора

2. Конструкція оператора If

3. Які форми запису умовного оператора ви знаєте?

4. Що таке оператор вибору?

5. Алгоритм роботи оператора case.

6. Що ми називаємо вкладеною умовою?

Практичне заняття № 2

Тема: Оператори циклів. Цикл For.

Мета: Ознайомити студентів з поняттям циклу. Розглянути призначення циклу For. Закріпити отримані знання на практиці.

Література

1. М.С.Львов, О.В.Співаковський. Основи алгоритмізації та програмування. Навчальний посібник – Херсон, 1997. – 122с.

2. Львов М.С., Співаковський О.В. Вступ до обєктно-орієнтованого програмування.–Херсон:ХДПУ.-240 с.

3. Фаронов В.В. Delphi 6.Учебний курс.-М.:Издатель Молгачева С.В.,-672с.,ил.

4. Т.Бадд.. Объектно-ориентированное программирование в действии / пер. с англ. - СПб.:Питер, 1997.- 464 с. ил.

5. http://www.programmersclub.ru/book/ - електронні підручники по Delphi

6. http://pitbooks.ru/delphi/ - електронні підручники по Delphi

Короткі теоретичні відомості

Для програмування циклів з відомим числом повторень слід користуватися оператором for. Цей оператор передбачає повторне виконання деякого іншого оператора з одночасною зміною за правилом арифметичної прогресії значення, що привласнюється змінній цього циклу, що управляє.

Оператор циклу з параметром має наступний вигляд:

FOR параметр циклам := поч. знач. ТО кін. знач. DO оператор;

або

FOR параметр циклу := поч. знач. DOWNTO кін. знач. DO оператор;

Тут FOR (для), ТО (до), DO (виконати) DOWNTO (вниз до), - службові слова;

параметр циклу - змінна будь-якого скалярного типа, окрім речовинного;

поч. знач., кін. знач. - скалярні вирази того ж типа, що і параметр циклу;

оператор - будь-який оператор мови.

Крапку з комою після do не ставлять.

При використанні в циклі службового слова ТЕ значення параметра циклу збільшується, при DOWNTO - зменшується. Крок зміни параметра циклу залежить від його типа. Найчастіше використовується змінна цілого типа, що визначає крок, рівний 1 при ТЕ, і -1 - при DOWNTO.

Приклад:

for i:=l to 10 do begin

label1.caption:=label1.caption + '*'; end;

for i: =1 to n do s := s+i;

Якщо між begin і end знаходиться тільки одна інструкція, то слова begin і end можна не писати.

Розглянемо наступне завдання. Хай потрібно написати програму, яка обчислює значення функції у = 5х2 - 7 в крапках —1, -0.5, 0, 0.5 і 1 (таблиця повинна бути виведена в полі мітки форми застосування). Процедура, що забезпечує рішення поставленої задачі, може виглядати так:

procedure TForm1.ButtonlClick(Sender: TObject);

var

у: real; // значення функції

x: real; // аргумент функції

dx: real; // приріст аргументу

st: string; // зображення таблиці

i : integer; // лічильник циклів

begin

st:=''; x := -1; dx := 0.5;

for i:=l to 5 do begin

у := 5*x*x -7;

st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13); x :=x + dx; end;

Label1.Caption := st;

end;

Рисунок 1 Алгоритм оператора for

Алгоритм, відповідний оператора for, представлений на мал. 1 Звернете увагу, що якщо початкове значення лічильника більше кінцевого значення, то послідовність операторів між begin і end не буде виконана жодного разу.

Крім того, після кожного виконання інструкцій тіла циклу лічильник циклів збільшується автоматично.

Змінну-лічильник можна використовувати усередині циклу (але у жодному випадку не змінювати). Наприклад, в результаті виконання наступних інструкцій:

tab1: = '' ;

for i:=l to 5 do

begin

tab1:=tabl+IntToStr(i)+' '+IntToStr(i*i)+chr(13);

end;

змінна tabl містить зображення таблиці квадратів чисел.

Розглянемо програму, яка обчислює суму перших 10 елементів ряду:

1 + + 1/3 + ... (значення i-го елементу ряду пов'язане з його номером формулою 1//). Діалогове вікно програми повинне містити, принаймні, два компоненти: поле мітки (Label1) і командну кнопку (Buttonl).

Обчислення суми ряду і виведення результату виконує процедура обробки події Onclick, текст якої приведений нижче. Після обчислення чергового елементу ряду процедура виводить в полі Labell номер елементу і його значення в поле мітки форми, призначене для виведення результату.

procedure TForm1.ButtonlClick(Sender: TObject);

var

i:integer; { номер елементу ряду }

elem:real; { значення елементу ряду }

summ:real; { сума елементів ряду )

begin

summ:=0;

label Leapt ion: = ' ' ;

for i:=l to 10 do begin

elem:=l/i;

label1.caption:=labell.caption+

IntToStr(i)+' '+FloatToStr(elem)+#13; sunrn: =summ+elem;

end;

label1.caption:=label1.caption+'Сумма ряду:'+FloatToStr(summ);

end;

end.