Інструктивна картка:
а. відкрийте середовище Turbo Delphi 2007 і створіть новий проект;
б. розмістіть на формі елементи керування за зразком:
в. створіть обробник подій OnClick для кнопки Button1, що знаходить рейтинговий бал учня в окремому вікні;
г. протестуйте проект, знайшовши свій рейтинговий бал.;
д. порівняйте його з балами ваших однокласників;
е. збережіть виконуваний файл проекту в своїй папці під назвою „Практична робота №3.2”.
Висновок
Я вважаю, що моя оцінка за практичну роботу .
Оцінка вчителя (практина частина) .
Оцінка за всю практичну роботу .
Практична робота „Використання підпрограм”
Закінчіть речення:
Підпрограма це -
.
Аргументи підпрограми це -
.
Результати підпрограми -
.
Формальні параметри це -
.
Фактичні параметри це -
.
Підпрогами поділяються на
,
вони відрізняються тим, що
.
Вкажіть номери процедур, які описані правильно:
1) procedure dovgyna;
var c:real;
c:=2*Pi*r;
2) procedure dovgyna;
c:=2*Pi*r;
procedure dovgyna;
begin
c:=2*Pi*r;
end;
4) procedure;
begin
if x>y then max:=x else max:=y;
end;
5) procedure min;
begin
if x<y then min:=x else min:=y;
end;
6) procedure minimum;
if x<y then
begin
min:=x else min:=y;
end;
Правильно описані: ________________________________________.
Вкажіть, використовуючи знак , який з фрагметів коду записаний правильно:
а) function Suma(N:integer):integer;
var
s:integer;
begin
for N:=l to N doS:=S+N;
end;
б) function Suma(N:integer):integer;
var S: integer;
begin
S=0;
For N:=l toN do S:=S+N;
Suma:=S;
end;
в) function Suma(N:integer); var S: integer;
begin
for N:=l to N do S:=S+N;
Suma:=S;
end;
r) real function Suma(N:integer);
var s:integer;
begin
for N:=l to N doS:=S+N;
Suma:=S;
end;
Розв`яжіть математично задачу.
Знайдіть площу чотирикутника ABCD з сторонами AB=13см, ВС=14 см, CD=8см, DA=17см і довжиною діагоналі АС=15см.
∆АВС:
;
;
∆АDС:
;
;
Площа чотирикутника ABCD=__________см2.
Практична частина.
Створіть проект знаходження площі чотирикутника за чотирма сторонами та діагоналлю.