Разработка обучающей программы по дисциплине "Информатика" для учащихся 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

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.