Моделирование алгоритмических исполнителей
Дипломная работа - Педагогика
Другие дипломы по предмету Педагогика
:проверка) [пусть "счетчик :счетчик + 1
если :счетчик = 3 [сообщи [Все правильно !] стоп] контроль][сообщи [Неправильно !]] {В данной процедуре происходит проверка правильности работы черного ящика. Выводится диалоговое окно, в котором спрашивается сколько получится, если на вход черного ящика подать число (число предлагается, которое не было использовано в процессе работы черного ящика.). Если в течении трех раз были получены правильные ответы, выводится сообщение, что все правильно сделано, иначе выводится сообщение неправильно.}
конец
это подбор
пусть "проверка :проверка + 1
если входит? :проверка :помню [подбор]
конец
2.1.4 Тестирование программы
Данная программа была апробирована на учениках 3 класса лингвистической школы г. Славянска-на-Кубани. Ребята справились с заданием, но в зависимости от уровня учеников кто-то быстрее сообразил что за команда скрывается в черном ящике, а кто-то медленнее. Данный исполнитель развивает алгоритмическое мышление, сообразительность, внимательность. Эксперимент показал, что данная программа подходит для любого возраста учащихся, в зависимости от сложности задания.
2.2 Моделирование алгоритмического исполнителя в интегрированной среде Delphi
Согласно классификации, приведенной выше, исполнители могут быть работающими в среде и с величинами.
Данная программа является примером исполнителя, работающего с величинами, но в среде.
В качестве величин выступают буквы, а средой является линейка с пронумерованными буквами. Описанный ниже исполнитель Умный мячик создан на основе исполнителя, описанного в учебнике по информатике Семакина И.Г.[4], но в упрощенной среде.
При запуске программы появляется следующее окно:
Рис.10.Вид программы
Мячик находится в нулевой точке отсчета шагов. Над ним расположена линейка с алфавитом от А до Я, а также нумерация букв, чтобы проще было определять шаг.
В окне команд задается направление движения мячика: вправо или влево, а также размер шага.
Рис.11. Окно команд
После того как данная команда задана, нужно нажать на кнопку ВЫПОЛНИТЬ. Мячик остановится на заданной букве, в окно ВЫПОЛНЕННЫЕ ДЕЙСТВИЯ запишется команда, которая была выполнена и в окно ПОЛУЧИЛИ СЛОВО помещается буква, на которой остановился мячик. Затем в окно команд вводится новое задание и действия повторяются. Если по ошибке была указана неправильная команда, с помощью кнопки ОТМЕНИТЬ ПОСЛЕДНЕЕ ДЕЙСТВИЕ эта команда будет удалена. Действия повторяются до тех пор, пока нужное слова не будет получено. В данном примере завершенная команда выглядит следующим образом:
Рис.12. Пример работы исполнителя
Эта программа может быть использована учителями информатики при обучении темам Алгоритмизация и Алгоритмические исполнители., а также на интегрированных уроках информатики и русского языка в качестве контроля знаний орфографии.
При обучении любой темы в информатике, преподаватель сталкивается с проблемой отбора материала для этой темы. Говоря о теме Алгоритмические исполнители , важно отметить, что существует множество разнообразных исполнителей, предназначенных для той или иной цели. Особое внимание следует уделить развитию алгоритмического мышления учащихся, а для этого они должны представлять себя в виде исполнителя при составлении того или иного алгоритма.
Главным методическим достоинством данного исполнителя является ясность для ученика решаемых задач, наглядность процесса работы а ходе выполнения команды. Как известно, дидактический принцип наглядности является одним из важнейших в процессе обучения. Проследить этапы работы исполнителя можно в специальном окне, также в программе выводится результат каждого выполненного шага исполнителя - буква. Это позволяет поэтапно отследить выполненные действия и в случае неправильно выполненного последнего шага отменить его.
Листинг программы
program Project1;
uses
Forms,in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;.CreateForm(TForm1, Form1);.Run;
end.
unit Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, ExtCtrls, jpeg;
type
TForm1 = class(TForm): TStringGrid;: TGroupBox;: TComboBox;: TRadioButton;: TRadioButton;: TEdit;: TLabel;: TStringGrid;: TButton;: TLabel;: TMemo;: TShape;: TButton;FormActivate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations };
var
Form1: TForm1;:array[1..33] of char = (А, Б, В, Г, Д, Е, Ё, Ж, З, И, Й, К, Л, М, Н, О, П, Р, С, Т, У, Ф, Х, Ч, Ц, Ш, Щ, Ъ, Ы, Ь, Э, Ю, Я );,ym,xms,Count: integer;: string;:Boolean;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var i:byte; k:byte;: integer;:TRect;:TBitmap;
begin
for i:=1 to 33 do begin.Cells[i,0]:=alf[i]; ;j:=1 to 33 do begin
StringGrid2.Cells[j,0]:=inttostr(j);
end;:=0; :=80;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Key:=true;(Count);:=xm;:=Edit1.Text;
if radiobutton1.Checked=true then
begin
memo1.Lines.Add('Влево '+inttostr(combobox1.itemindex+1));:=xm-(combobox1.itemindex+1)*20;
If xm<0 then xm:=xm+(combobox1.itemindex+1)*20;
end;
if radiobutton2.Checked=true then
memo1.Lines.Add('Вправо '+inttostr(combobox1.itemindex+1));:=xm+(combobox1.itemindex+1)*20;
If xm>33*20 then xm:=xm-(combobox1.itemindex+1)*20;
end;.Left:=xm;.Text:=Edit1.Text+alf[xm div 20];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin Key=true then
begin
memo1.Lines.Delete(Count);(Count);:=False;
end;.Left:=xms;.Text:=ss;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Key:=False;:=-1;
end;
end.
2.2.1 Тестирование программы
Для данной про