Практична робота „Програмування

циклічних обчислень”

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

10. Заповніть таблицю значеннями, що отримані в результаті виконання команд:

S:=4;

For i:=2 to 6 do S:=S+i;

крок
i
S

11. Розв`яжіть математично задачу.

Знайдіть суму S цілих додатніх чисел кратних k і менших а.

k=3, a=10, S=________.

k=6, a=15, S=________.

k=10, a=63, S=________.

12. Практична частина.

Створіть проект знаходження суми цілих додатніх чисел, кратних k і менших а.

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

а. відкрийте середовище Turbo Delphi 2007 і створіть новий проект;

б. розмістіть на формі елементи керування за зразком:

в. створіть обробник подій OnClick для кнопки Button1, що знаходить суму цілих додатніх чисел, кратних k і менших а в окремому вікні;

г. протестуйте проект, підставивши зачення:

1) k=3, a=10,

2) k=6, a=15,

3) k=10, a=63;

д. порівняйте результат виконання проекту та відповідь при матемачному обчисленні суми;

е. збережіть виконуваний файл проекту в своїй папці під назвою „Практична робота №5”.

Висновок

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

Я вважаю, що моя оцінка за практичну роботу____.

Оцінка вчителя (практина частина)______________.

Оцінка за всю практичну роботу________________.

Практична робота „Обробка одновимірних масивів”

1. Масив це-________________________________

___________________________________________.

2. Елементами масиву можуть бути ____________

___________________________________________.

3. Поле „Memo” це - _________________________

____________________________________________.

4. lines це - _________________________________

___________________________________________.

5. array це - _________________________________

___________________________________________.

6. d:=array[1..20] of integer;

Заповніть пропуски:

Масив d це масив, який складається з _____ елементів, _______________типу.

7. Поясніть рядок коду проекту:

a[i]:=StrToFloat(Memo1.Lines[i-1];

____________________________________________

____________________________________________

___________________________________________.

1. Які з одновимірних масивів описані правильно, а які - ні?

а) var A:array[1..5] of real;

б) type MAS=ARRAY['A'..'D'];

var B:mas;

в) var С:[integer] of char;

r) var D:array[trae..false] of char;

Правильно: ________ Неправильно: __________

1. Вкажіть з допомогою знаків „+” і „- ”, які з наведених нижче масивів описані правильно, а які -ні.

а) var a:array[1..5] of real;

б) type Mas:array[1..5] of real;

var A:Mas;

в) type Mas=array[ 1:5] of real

var A:Mas;

r) typeMas=array[1..5] of real;

var A:Mas;

ґ) type Mas=array [ 1,5] of real;

var A:Mas;

д) var A:array[1..5] fo real;

1. Скільки елементів містить кожен з масивів?

а) var A:array['A'..'C'],2..5] of real; ________;

б) var B:array[false..true] of boolean; ________; в)typeC=(ml,m2,m3,m4);

varX:array[C]; ________.

11. Розв`яжіть математично задачу.

Використовуючи мережу Інтернет, заповніть таблицю температур за останній місяць.

Місяць:
Дата	Середньодобова температура, ^0С	Дата	Середньодобова температура, ^0С

Використовуючи дані з таблиці, знайдіть:

Максимальний температурний показник місяця:______.

Мінімальний температурний показник місяця:________.

Середньомісячний показник температури:___________.

Кількість днів, коли температура була нижче 0⁰С:______.

12. Практична частина.

Створіть проект знаходження максимального, мінімального, середньомісячного температурного показника місяця та кількості днів, коли температура була нижче 0⁰С, скориставшись даними таблиці завдання 11

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

а. відкрийте середовище Turbo Delphi 2007 і створіть новий проект;

б. розмістіть на формі елементи керування за зразком:

в. створіть обробник подій OnClick для кнопки Button1, Button2, Button3, Button4, для знаходження максимального, мінімального, середньомісячного температурного показника місяця та кількості днів, коли температура була нижче 0⁰С, відповідь виводити в окремому вікні;

г. протестуйте проект, ввівши значення із завдання 11;

д. порівняйте результат виконання проекту та відповідь попереднього завдання;

е. збережіть виконуваний файл проекту в своїй папці під назвою „Практична робота №5”.

Висновок

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

____________________________________________

Я вважаю, що моя оцінка за практичну роботу____.

Оцінка вчителя (практина частина)_____________.

Оцінка за всю практичну роботу________________.

Дата добавления: 2015-05-23