Практична робота №8. Складання програм з розгалуженнями

Про матеріал

Практична робота №8. Складання програм з розгалуженнями 1. Відкрийте середовище розробки Turbo Delphi 2006 і створіть новий проект. 2. Розмістіть на формі елементи керування для розв’язування задачі: Відомі довжини сторін двох прямокутників. Обчислити площі прямокутників і порівняти їх. Визначити, чи є прямокутники квадратами. З’ясувати, чи вміститься один прямокутник у середину другого. Повідомити отримані результати. У проекті: а. складіть обробник події OnClick першої кнопки для обчислення площ прямокутників і виведення повідомлення про те, у якого прямокутника площа більша; б. складіть обробник події OnClick другої кнопки, виконання якого залежно від установлених прапорців приведе до визначення того, чи є відповідний прямокутник квадратом; в. складіть обробник події OnClick третьої кнопки, виконання якого приведе до визначення, чи вміститься перший прямокутник усередину другого або другий прямокутник усередину першого залежно від вибраного перемикача; 3. Перевірте правильність виконана програми.

Зміст архіву

Перегляд файлу

Захист практичної роботи №8

В-1

Поясніть значення службових (зарезервованих) слів та їх місце у структурі опису розгалуження: and, else, not.
Випишіть окремо вирази, які записані правильно та з помилками :

If x<>y then x:=0;

If (x<9) and (y>3) then n:=2*n; else n:=3*n;

Які значення будуть мати змінні х та у після виконання команди:

If x<y then x:= -x else y:= -y

Якщо х=4, у=4

Якщо х= -789, у=1

Запишіть, яка задача розв`яжеться після виконання команд:

If a>b then a:=max else b:=max

Знайдіть значення y після виконання команд

If x<=9 then y:= 0 else y:=1, якщо: x=12, x=0.

Запишіть умову для знаходження у мовою програмування Delphi

, якщо х<4; х=2.

Захист практичної роботи №8

В-2

Поясніть значення службових (зарезервованих) слів та їх місце у структурі опису розгалуження: If; Or; Then;

Випишіть окремо вирази, які записані правильно та з помилками :

If 6 then a:=2*a

If c<d then c:=-c else d:=-d

Які значення будуть мати змінні х та у після виконання команди:

If x<y then x:= -x else y:= -y

Якщо х=9, у=0,1

Якщо х= -0,6, у=10,1

Запишіть, яка задача розв`яжеться після виконання команд:

If a>b then b:=min else a:=min

Знайдіть значення y після виконання команд

If x<=9 then y:= 0 else y:=1, якщо: x=10, x=1

Запишіть умову для знаходження у мовою програмування Delphi

, якщо х; х=4

Перегляд файлу

Практична робота №8.2 Складання програм з розгалуженнями

Створіть проект знаходження значення рейтингової кількості балів учня. Алгоритм нарахування:

Критерії рейтингу:

член шкільного парламенту +10 балів;
всі оцінки високого рівня +10 балів;
високого і достатнього +5 балів;
призер предметних олімпіад +10 балів;
переможець спортивних змаганнях +10 балів;
відвідує гуртки та секції +5 балів.

Інструктивна картка:

Відкрийте середовище Turbo Delphi 2007 і створіть новий проект;
Розмістіть на формі елементи керування за зразком:

Створіть обробник подій OnClick для кнопки Button1, що знаходить рейтинговий бал учня в окремому вікні;
Повідомлення про рейтинг виводиться у окремому вікні. Наприклад:

Петров Іван. Рейтенговий бал – 43

Протестуйте проект, знайшовши свій рейтинговий бал.

Практична робота №8.2 Складання програм з розгалуженнями

Створіть проект знаходження значення рейтингової кількості балів учня. Алгоритм нарахування:

Критерії рейтингу:

член шкільного парламенту +10 балів;
всі оцінки високого рівня +10 балів;
високого і достатнього +5 балів;
призер предметних олімпіад +10 балів;
переможець спортивних змаганнях +10 балів;
відвідує гуртки та секції +5 балів.

Інструктивна картка:

Відкрийте середовище Turbo Delphi 2007 і створіть новий проект;
Розмістіть на формі елементи керування за зразком:

Створіть обробник подій OnClick для кнопки Button1, що знаходить рейтинговий бал учня в окремому вікні;
Повідомлення про рейтинг виводиться у окремому вікні. Наприклад:

Петров Іван. Рейтенговий бал – 43

Протестуйте проект, знайшовши свій рейтинговий бал.

Перегляд файлу

Практична робота №8. Складання програм з розгалуженнями

Відкрийте середовище розробки Turbo Delphi 2006 і створіть новий проект.
Розмістіть на формі елементи керування для розв’язування задачі:

Відомі довжини сторін двох прямокутників. Обчислити площі прямокутників і порівняти їх. Визначити, чи є прямокутники квадратами. З’ясувати, чи вміститься один прямокутник у середину другого. Повідомити отримані результати.

У проекті:

складіть обробник події OnClick першої кнопки для обчислення площ прямокутників і виведення повідомлення про те, у якого прямокутника

площа більша;

складіть обробник події OnClick другої кнопки, виконання якого залежно від установлених прапорців приведе до визначення того, чи є відповідний прямокутник квадратом;
складіть обробник події OnClick третьої кнопки, виконання якого приведе до визначення, чи вміститься перший прямокутник усередину другого або другий прямокутник усередину першого залежно від вибраного перемикача;

Перевірте правильність виконана програми.

Практична робота №8. Складання програм з розгалуженнями

Відкрийте середовище розробки Turbo Delphi 2006 і створіть новий проект.
Розмістіть на формі елементи керування для розв’язування задачі:

У проекті:

складіть обробник події OnClick першої кнопки для обчислення площ прямокутників і виведення повідомлення про те, у якого прямокутника

площа більша;

складіть обробник події OnClick другої кнопки, виконання якого залежно від установлених прапорців приведе до визначення того, чи є відповідний прямокутник квадратом;
складіть обробник події OnClick третьої кнопки, виконання якого приведе до визначення, чи вміститься перший прямокутник усередину другого або другий прямокутник усередину першого залежно від вибраного перемикача;