Разработка обучающей программы по дисциплине "Информатика" для учащихся 8 классов
Обоснование выбора языка программирования Delphi в 8 классе. Изучение стандартных приложений Ms Office. Применение гипертекстовой системы при изучении материалов. Развитие творческих способностей школьников. Тестирование и контроль процесса обучения.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 17.09.2016 |
| Размер файла | 255,1 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
if (I>Pos(S,RichEdit4.Text)-2)and (I<Pos(S,RichEdit4.Text)+(kol-1)) then
begin
if Form2.Showing then
begin
Form2.SetFocus;
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
end
else
Form2:= TForm2.Create(Application);
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
Form2.Show;
end;
end.
procedure TForm1.RichEdit4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i,k,kol:Integer;
S:String;
begin
HideCaret(RichEdit4.Handle);
si[0]:='1';
si[1]:='2';
si[2]:='3';
si[3]:='4';
si[4]:='5';
si[5]:='6';
si[6]:='7';
si[7]:='8';
si[8]:='9';
si[9]:='10';
for k:=0 to 9 do
begin
S:='рис. 2.'+si[k];
kol:=9;
I:=RECharIndexByPos(RichEdit4,X,Y);
if Pos(S,RichEdit4.Text)<>0 then begin
if (I>Pos(S,RichEdit4.Text)-2)and (I<Pos(S,RichEdit4.Text)+(kol)) then
begin
//richedit1.SelStart:=-1;
//RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit4.Cursor:=crHandPoint;
end
else RichEdit4.Cursor:=crDefault;
end;
end.
procedure TForm1.RichEdit5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,kol:Integer;
S:String;
b:Integer;
begin
HideCaret(RichEdit5.Handle);
for i:=1 to 20 do begin
si[i-1]:=InttoStr(i);
end;
for b:=0 to 19 do
begin
kol:=10;
I:=RECharIndexByPos(RichEdit5,X,Y);
if Pos(S,RichEdit5.Text)<>0 then begin
if (I>Pos(S,RichEdit5.Text)-2)and (I<Pos(S,RichEdit5.Text)+(kol-1)) then
begin
if Form2.Showing then
begin
Form2.SetFocus;
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
end
else
Form2:= TForm2.Create(Application);
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
Form2.Show;
end;
end;
procedure TForm1.RichEdit5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i,k,kol:Integer;
S:String;
begin
HideCaret(RichEdit5.Handle);
for i:=1 to 20 do begin
si[i-1]:=InttoStr(i);
end;
for k:=0 to 19 do
begin
S:='рис. 3.'+si[k];
kol:=9;
I:=RECharIndexByPos(RichEdit5,X,Y);
if Pos(S,RichEdit5.Text)<>0 then begin
if (I>Pos(S,RichEdit5.Text)-2)and (I<Pos(S,RichEdit5.Text)+(kol)) then
begin
//richedit1.SelStart:=-1;
//RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit5.Cursor:=crHandPoint;
end
else RichEdit5.Cursor:=crDefault;
end;
end;
end;
procedure TForm1.RichEdit6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,kol:Integer;
S:String;
b:Integer;
begin
HideCaret(RichEdit6.Handle);
for i:=1 to 9 do begin
si[i-1]:=InttoStr(i);
end;
for b:=0 to 18 do
begin
S:='рис. 4.'+si[b];
kol:=10;
I:=RECharIndexByPos(RichEdit6,X,Y);
if Pos(S,RichEdit6.Text)<>0 then begin
if (I>Pos(S,RichEdit6.Text)-2)and (I<Pos(S,RichEdit6.Text)+(kol-1)) then
begin
if Form2.Showing then
begin
Form2.SetFocus;
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
End.
else
Form2:= TForm2.Create(Application);
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
Form2.Show;
end;
end;
procedure TForm1.RichEdit6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i,k,kol:Integer;
S:String;
begin
HideCaret(RichEdit6.Handle);
for i:=1 to 19 do begin
si[i-1]:=InttoStr(i);
end;
for k:=0 to 18 do
begin
S:='рис. 4.'+si[k];//нужное слово
kol:=9;
I:=RECharIndexByPos(RichEdit6,X,Y);
if Pos(S,RichEdit6.Text)<>0 then begin
if (I>Pos(S,RichEdit6.Text)-2)and (I<Pos(S,RichEdit6.Text)+(kol)) then
begin
//richedit1.SelStart:=-1;
//RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit6.Cursor:=crHandPoint;
end
else RichEdit6.Cursor:=crDefault;
end;
end;
end;
procedure TForm1.RichEdit7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,kol:Integer;
S:String;
b:Integer;
begin
HideCaret(RichEdit7.Handle);
for i:=1 to 4 do begin
si[i-1]:=InttoStr(i);
end;
for b:=0 to 3 do
begin
S:=рис. 5.'+si[b];
kol:=10;
I:=RECharIndexByPos(RichEdit7,X,Y);
if Pos(S,RichEdit7.Text)<>0 then begin
if (I>Pos(S,RichEdit7.Text)-2)and (I<Pos(S,RichEdit7.Text)+(kol-1)) then
begin
if Form2.Showing then
begin
Form2.SetFocus;
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
end
else
Form2:= TForm2.Create(Application);
Form2.Caption:= S;
Form2.Image1.Picture.LoadFromFile('Pictures\'+S+'.jpg');
Form2.ClientWidth:=Form2.Image1.Width;
Form2.ClientHeight:=Form2.Image1.Height;
Form2.Show;
end;
end;
end;
end;
procedure TForm1.RichEdit7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i,k,kol:Integer;
S:String;
begin
HideCaret(RichEdit7.Handle);
for i:=1 to 4 do begin
si[i-1]:=InttoStr(i);
end;
for k:=0 to 3 do
begin
S:='рис. 5.'+si[k];
kol:=9;
I:=RECharIndexByPos(RichEdit7,X,Y);
if Pos(S,RichEdit7.Text)<>0 then begin
if (I>Pos(S,RichEdit7.Text)-2)and (I<Pos(S,RichEdit7.Text)+(kol)) then
begin
//richedit1.SelStart:=-1;
//RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit7.Cursor:=crHandPoint;
end
else RichEdit7.Cursor:=crDefault;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,k,j:Integer;
begin
bal:=0;
if(RadioButton45.Checked) then
bal:=bal+1;
if(RadioButton47.Checked) then
bal:=bal+1;
if(RadioButton52.Checked ) then
bal:=bal+1;
if(RadioButton54.Checked) then
bal:=bal+1;
if(RadioButton59.Checked ) then
bal:=bal+1;
if(RadioButton62.Checked ) then
bal:=bal+1;
if(RadioButton69.Checked ) then
bal:=bal+1;
if(RadioButton73.Checked) then
bal:=bal+1;
if(RadioButton75.Checked ) then
bal:=bal+1;
if(RadioButton81.Checked) then
bal:=bal+1;
if (bal<=10) and (bal>=8) then i:=5;
if (bal<8) and (bal>=6) then i:=4;
if (bal<6) and (bal>=4) then i:=3;
if (bal<4) then i:=2;
for k:=1 to 160 do
begin
for j:=0 to ComponentCount-1 do
if (Components[j] is TRadioButton
and((Components[j] as TRadioButton).Name='RadioButton'+IntToStr(k))) then
(Components[j] as TRadioButton).Checked:=false;
end;
Form2.Label1.Visible:=true;
Form2.Label2.Visible:=true;
Form2.Button1.Visible:=true;
Form2.Button2.Visible:=true;
Form2.Image1.Visible:=false;
Form2.Width:=450;
Form2.Height:=182;
Form2.Caption:='Оценка';
Form2.Label1.Caption;
Form2.Label2.Caption;
Form2.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i,k,j:Integer;
begin
bal:=0;
if(RadioButton84.Checked) then
bal:=bal+1;
if(RadioButton87.Checked) then
bal:=bal+1;
if(RadioButton92.Checked ) then
bal:=bal+1;
if(RadioButton97.Checked) then
bal:=bal+1;
if(RadioButton100.Checked ) then
bal:=bal+1;
if(RadioButton103.Checked ) then
bal:=bal+1;
if(RadioButton106.Checked ) then
bal:=bal+1;
if(RadioButton111.Checked) then
bal:=bal+1;
if(RadioButton117.Checked ) then
bal:=bal+1;
if(RadioButton120.Checked) then
bal:=bal+1;
if (bal<=10) and (bal>=8) then i:=5;
if (bal<8) and (bal>=6) then i:=4;
if (bal<6) and (bal>=4) then i:=3;
if (bal<4) then i:=2;
for k:=1 to 160 do
begin
for j:=0 to ComponentCount-1 do
if (Components[j] is TRadioButton
and((Components[j] as TRadioButton).Name='RadioButton'+IntToStr(k))) then
(Components[j] as TRadioButton).Checked:=false;
end;
Form2.Label1.Visible:=true;
Form2.Label2.Visible:=true;
Form2.Button1.Visible:=true;
Form2.Button2.Visible:=true;
Form2.Image1.Visible:=false;
Form2.Width:=450;
Form2.Height:=182;
Form2.Caption;
Form2.Label1.Caption;
Form2.Label2.Caption;
Form2.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i,k,j:Integer;
begin
bal:=0;
if(RadioButton122.Checked) then
bal:=bal+1;
if(RadioButton126.Checked) then
bal:=bal+1;
if(RadioButton130.Checked ) then
bal:=bal+1;
if(RadioButton133.Checked) then
bal:=bal+1;
if(RadioButton139.Checked ) then
bal:=bal+1;
if(RadioButton142.Checked ) then
bal:=bal+1;
if(RadioButton147.Checked ) then
bal:=bal+1;
if(RadioButton151.Checked) then
bal:=bal+1;
if(RadioButton153.Checked ) then
bal:=bal+1;
if(RadioButton157.Checked) then
bal:=bal+1;
if (bal<=10) and (bal>=8) then i:=5;
if (bal<8) and (bal>=6) then i:=4;
if (bal<6) and (bal>=4) then i:=3;
if (bal<4) then i:=2;
for k:=1 to 160 do
begin
for j:=0 to ComponentCount-1 do
if (Components[j] is TRadioButton
and((Components[j] as TRadioButton).Name='RadioButton'+IntToStr(k))) then
(Components[j] as TRadioButton).Checked:=false;
end;
Form2.Label1.Visible:=true;
Form2.Label2.Visible:=true;
Form2.Button1.Visible:=true;
Form2.Button2.Visible:=true;
Form2.Image1.Visible:=false;
Form2.Width:=450;
Form2.Height:=182;
Form2.Caption:='Оценка';
Form2.Label1.Caption:= `Вы ответили на '+InttoStr(bal)+' из 10 вопросов правильно .`;
Form2.Label2.Caption:= 'Ваша оценка: '+InttoStr(i);
Form2.ShowModal;
end;
end.
Размещено на Allbest.ru
Подобные документы
Особенности разработки приложений для операционной системы с помощью императивного, структурированного, объектно-ориентированного языка программирования Delphi. Формальное начало программы. Выделение конца программного блока. Листинг и описание программы.
курсовая работа [1,2 M], добавлен 04.08.2014Разработка головоломки на основе гравюры Альбрехта Дюрера "Магический квадрат". Главные составные части среды программирования Delphi, особенности ее стандартных компонентов и процесса сохранения программы. Компоненты и алгоритмы создаваемой программы.
курсовая работа [147,1 K], добавлен 05.02.2015Разработка программы автоматизации процесса проверки знаний учащихся. Использование языка программирования Borland Delphi 7.0, его свойства, компоненты для работы со строками. Создание обучающих тестов на знание лексики и грамматики английского языка.
курсовая работа [521,0 K], добавлен 06.03.2016Теоретические основы объектно-ориентированного языка программирования Delphi, изучение среды визуального проектирования приложений. Определение 40-го числа Фибоначчи, составление листинга и блок-схемы программы, тестирование ее на работоспособность.
курсовая работа [261,1 K], добавлен 25.03.2015Использование обучающих программ для формирования знаний и умений по информатике. Главное окно среды программирования Delphi, окна дерева объектов и кода программы. Требования к оборудованию и описание обучающей программы "Информатика в играх и загадках".
курсовая работа [1,3 M], добавлен 03.05.2012Создание Windows-приложения для проведения обучения и тестирования студентов по информационной безопасности. Алгоритм решения задачи, блок-схема работы программы, выбор языка программирования Delphi. Охрана труда программиста, обязанности пользователя.
дипломная работа [4,8 M], добавлен 04.06.2013Система программирования Delphi, ее характеристика. Основные требования к обучающей программе. Составление блок-схемы алгоритма программы "Математика. 1 класс". Виды задач для решения в обучающей программе. Описание работы системы, инструкция к ней.
курсовая работа [2,0 M], добавлен 17.06.2015Изучение общей структуры языка программирования Delphi: главные и дополнительные составные части среды программирования. Синтаксис и семантика языка программирования Delphi: алфавит языка, элементарные конструкции, переменные, константы и операторы.
курсовая работа [738,1 K], добавлен 17.05.2010Разработка программы проверки знаний для тестирования студентов по программированию с кодом на языке Delphi. Проектирование визуального интерфейса и словесный алгоритм работы программы. Алгоритмы разработанных процедур и функций, инструкция пользователя.
курсовая работа [506,5 K], добавлен 21.02.2011Анализ и постановка задач дисциплины "Компьютерная графика". Разработка структуры, функциональной схемы и программной документации. Руководство программисту и оператору. Выбор и обоснование языка программирования. Описание процедур, функций, оценок.
дипломная работа [3,6 M], добавлен 16.11.2011