Варіанти індивідуальних завдань
ТЕМА: Delphi 6.0. Програмування розгалужених обчислювальних процесів
Мета роботи: Закріплення теоретичного матеріалу та одержання практичних навичок складання та відлагодження програм, що містять розгалуження.
Завдання для самостійної підготовки:
Для успішного виконання даної роботи та послідуючого циклу робіт рекомендується попередньо повторити матеріал по організації розгалужених обчислювальних процесів, використання умовного оператора If та оператора вибору Case, оператора безумовного переходу Goto, проаналізувати приклади розглянуті на лекціях. Результатом домашньої самостійної роботи повинна бути програма, написана на мові Object Pascal, готова до введення на комп’ютері для розв’язання поставлених завдань.
Зміст звіту:
1. Тема та мета роботи.
2.Робоче завдання.
3. Алгоритм виконання завдання у вигляді блок-схеми.
4.Текст розробленої програми з коментарями та результати її роботи.
При захисті лабораторної роботи необхідно вміти відповідати на контрольні запитання.
Контрольні запитання:
1. Який обчислювальний процес називається розгалуженим?
2. Який оператор називають складним?
3. Які існують форми запису умовного оператора If ? У чому їх різниця?
4. Вкажіть призначення та правила запису оператора безумовного переходу?
5. Назвіть правила запису оператора Case. Які обмеження закладені в цей оператор?
6. В яких випадках рекомендується використовувати конструкцію з оператором Case?
7. Чи можливе використання конструкції з If замість Case і навпаки?
8. Чи може умовний оператор містити оператор безумовного переходу?
Робоче завдання:
Завдання 1.Скласти програму для обчислення значення заданої функції. Перевірити вірність розробленої програми, тобто виконати її для значень аргументу х, що відповідає різним гілкам заданої функції. Вихідні дані (значення аргументів) та результати роботи програми (значення функції) вивести на екран .
Приклад
h = 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,h:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
x:=StrToFloat(Edit3.Text);
if x<a then
begin
h:=sqrt(sqr(cos(x)))+sqr(a);
Memo1.Lines.Add('h='+FloatToStr(h));
end
else
if x=a then
begin
h:=exp(abs(b+x));
end
else
begin
h:=ln(1+exp(3*ln(a))+sqr(x));
Memo1.Lines.Add('h='+FloatToStr(h));
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
Варіанти індивідуальних завдань
:
№1
Z = 
№2
f = 
№3
W = 
№4
y = 
№5
u = 
№6
v = 
№7
g = 
№8
d = 
№9
h = 
№10
P = 
№11
Z = 
№12
S = 
№13
t = 
№14
y = 
№15
f = 
№16
Z = 
№17
u = 
№ 18
V = 
№ 19
W = 
№ 20
R = 
№ 21
P = 
№ 22
t = 
.
Завдання 2 Скласти програму для розв’язування наведеного нижче завдання двома способами, використовуючи: 1) команду case; 2) команду if. Придумати і задати вхідні дані так, щоб вибір був з 4-7 альтернатив.
Приклад:
Написати програму, яка по введеному значенню числа 1...3 виводить його назву.
Var a: integer;
Begin
a:=StrToInt (Edit1.text); // введення числа
case a of
1: Memo1.Lines.Add(‘один’);
2: Memo1.Lines.Add (‘два’);
3: Memo1.Lines.Add (‘три’);
else Memo1.Lines.Add(‘Введите число 1, 2 или 3’);
end;
end;
Варіанти індивідуальних завдань
1. Ввести номер студента зі списку. Вивести його прізвище.
2. Є дані про автомобілі чотирьох моделей. Як вхідне дане ввести номер моделі і отримати характеристики: рік випуску і ціну.
3. Ввести номер поїзда. Вивести назву пункту призначення.
4. Ввести номер дня тижня. Вивести його назву.
5. Ввести номер трамвая. Вивести назви його кінцевих зупинок.
6. Ввести номер місяця. Вивести номер кварталу.
7. Ввести номер автобуса. Вивести кількість зупинок його маршруту.
8. Ввести телефонний код міста. Вивести назву міста.
9. Ввести номер дня тижня. Вивести кількість пар (уроків) у цей день.
10. Є дані про шість товарів. Ввести числовий код одного з них, отримати ціну.
11. Ввести номер місяця. Вивести кількість днів у ньому.
12. Ввести числовий код групи. Вивести кількість студентів.
13. Ввести число з діапазону 0..5. Вивести його написання англійською (чи іншою) мовою.
14. Ввести номер поїзда. Вивести довідку про час відправлення.
15. Ввести номер квартири в будинку. Вивести кількість мешканців цієї квартири.
16. Ввести числовий код сузір'я. Вивести кількість зірок у ньому.
17. Ввести номер телефону одного з чотирьох друзів. Вивести його ім’я.
18. Увести число з діапазону 5..9. Вивести його значення словом.
19. Ввести першу букву назви річки. Вивести довідку про її довжину.
20. Ввести першу букву назви країни. Вивести кількість міст цієї країни.
21. Ввести першу букву назви міста. Вивести довідку про кількість населення.
22. Ввести першу букву назви країни. Вивести назву її столиці.