Series3.Clear;
for i:=1 to 3 do
Series3.AddXY(kn[i],kp[i]);
end;
m:=0;
Series6.Clear;
for i:=0 to 20 do
begin
Series6.AddXY(m,-1*m);
m:=m+2;
end;
end;
end.
Модуль 7.
Этот модуль носит вспомогательный характер. Он необходим для правильного округления десятичных чисел с указанной степенью точности.
unit foxsoft;
interface
uses SysUtils;
function Okrugl(cs:double;numb:integer):double;
implementation
function Okrugl(cs:Double;numb:integer):double;
var
db,db1,db2:double;
i:int64;
ii,ink,i1:integer;
st:string;
begin
db:=db-int(cs);
ink:=1;
for ii:=1 to numb do ink:=ink*10;
db1:=db*ink;
db2:=cs*ink*100;
i:=trunc(int(db2)/100);
i1:=Trunc(db2-i*100);
if i1>49 then inc(i);
Result:=i/ink;
end;
end.
Литература.
1. Кирьяков Б. С. Педагогическая модель интеллектуального испытания школьников. – Рязань: Изд-во «Русское слово», 2002.
2. Кирьяков Б.С. Педагогическая модель интеллектуального испытания учащихся/Вестник Рязанского государственного педагогического университета. Рязань: РГПУ, 2001.
3. Шарапков А.Н., Кирьяков Б. С. Исследование гуманности режима соревнования на олимпиадах школьников. // Рязанские физические олимпиады // Рязань: «РИНФО», 2000. Выпуск 8.
4. Кирьяков Б.С. Проблемы проведения олимпиад в условиях дифференциации уровня подготовки школьников // Рязанские физические олимпиады// Выпуск 8, – Рязань: Изд-во «РИНФО», 2000.
5. Кирьяков Б.С. Параметры интеллектуального испытания учащихся на олимпиаде// Рязанские физические олимпиады// Выпуск 9, – Рязань, 2001.
6. Лишер Р.Delphi. Справочник. – Пер. с англ. – СПб.: «Символ-Плюс», 2001.
7. Фаронов В.В. Delphi 5. Руководство программиста. – М.: «Нолидж», 2001.
8. Озеров В.Delphi. Советы программистов. – СПб.: «Символ-Плюс», 2003.