Інструктивна картка:
а. відкрийте середовище Turbo Delphi 2007 і створіть новий проект;
б. розмістіть на формі елементи керування за зразком:
в. створіть обробник подій OnClick для кнопки Button1, що знаходить площу чотирикутника в окремому вікні;
г. протестуйте проект, підставивши зачення AB=13см, ВС=14 см, CD=8см, DA=17см і АС=15см;
д. порівняйте результат виконання проекту та відповідь при матемачному обчисленні площі;
е. збережіть виконуваний файл проекту в своїй папці під назвою „Практична робота №4”.
Висновок
Я вважаю, що моя оцінка за практичну роботу .
Оцінка вчителя (практина частина) .
Оцінка за всю практичну роботу .
Практична робота „Програмування циклічних обчислень”
1. Якщо умова у вказівці повторення while приймає значення False, то тіло циклу (обведіть правильну відповідь):
а) виконується один раз;
б) не виконується жодного разу;
в) наступає "зависання".
2. Якщо умова у вказівці повторення repeat-until приймає значення True, то тіло циклу:____
а)виконується один раз;
б)не виконується жодного разу;
в)наступає "зависання".
3. У яких вказівках повторення збільшення (зменшення) лічильника циклу на 1 передбачено (встановіть стрілками відповідність):
while...do
автоматично
repeat...until програмістом
for...to..do
4. В якому випадку, при n=4, тіло циклу буде виконуватись:
1)скінчене число раз____
2)жодного разу____
3)наступить "зациклення"_____
a) while n<=5 do
begin
P:=P-n;
n:=n+1;
end;
б) while n>=5 do
begin
P:=P-n;
n:=n+1;
end;
в) while n>=4 do
begin
P:=P-n;
n:=n+1;
end;
5. В якому випадку, при n=3, тіло циклу буде виконуватись:
1) скінчене число раз____
2) жодного разу____
3) наступить "зациклення"____
а) for i:=n to 10 do P:=P-n;
б) for i:=n to 2 do P:=P-n;
в) for i:=n downto 10 do P:=P-n;
r) for i:=n downto 2 do P:=P-n;
6.В якому випадку, при n=3, тіло циклу буде виконуватись:
1)скінчене число раз____
2)жодного разу____
3)наступить "зациклення"____
a) repeat
P:=P-n;
n:=n+1;
until n<=5;
б) repeat
P:=P-n;
n:=n+1;
until n>=5;
в) repeat
P:=P-n;
n:=n+1;
until n>=4;
7. Вказати значення змінної a, яке відповідає результату виконання вказівки повторення (обчисліть):
1)a:=2; i:=0; while i<5 do i:=i+l; a:=a+l/i ; ___________
2)a:=4; i:=l; while і>1 do begin a:=a+l/i; i:=i-l; end; _________
3)a:=0; i:=l; while i<4 do begin i:=i+l; a:=a*i;end; __________
4)a:=l; i:=6; while i>=3 do begin a:=a+i; i:=i-l; end; _________
8. Вказати значення змінної b, яке відповідає результату виконання вказівки повторення (вкажіть правильну відповідь
1) b:=l; i:=l; repeat i:=i+l; b:=b+i until i>3; ____________
2) b:=3; i:=l; repeat b:=b+l/(i+l); i:=i+3 until i>=5; __________
3) b:=4; i:=l; repeat b:=b+l/i; i:=i-l until і<=1; ____________
4) b:=2; i:=5; repeat i:=i-l; b:=b+l/i until i<=4; ____________
a) 2.25 6) 7 в) 2,7 г) 5 г) 10
9. Вказати значення змінної m, яке відповідає результату виконання вказівки повторення (встановіть відповідність) з допомогою стрілок:
1) m:=l; for i:=2 downto 2 do m:=m+l; 10
2) m:=0; for i:=8 to 8 do m:=m+l; 40
3) m:=0; for i:=10 downto 6 do m:=m+l; 2
4) m:=l; for i:=5 to 9 do m:=m+l; 5
6
10. Заповніть таблицю значеннями, що отримані в результаті виконання команд:
S:=4;
For i:=2 to 6 do S:=S+i;
крок |
1 |
2 |
3 |
4 |
5 |
i |
|
|
|
|
|
S |
|
|
|
|
|
11. Розв`яжіть математично задачу.
Знайдіть суму S цілих додатніх чисел кратних k і менших а.
k=3, a=10, S=________.
k=6, a=15, S=________.
k=10, a=63, S=________.
. Практична частина.
Створіть проект знаходження суми цілих додатніх чисел, кратних k і менших а.