Учебный проект Векторы в Delphi

Содержание

1 Авторы проекта
2 Предмет, курс
3 Краткая аннотация проекта
4 Вопросы, направляющие проект
5 План проведения проекта
6 Публикация преподавателя
7 Презентация преподавателя для выявления представлений и интересов учащихся
8 Пример продукта проектной деятельности учащихся
9 Материалы по формирующему и итоговому оцениванию
10 Материалы по сопровождению и поддержке проектной деятельности
11 Полезные ресурсы
12 Проекты с аналогичной тематикой
13 Другие документы

Авторы проекта

Предмет, курс

Основы программирования,2 курс

Краткая аннотация проекта

Проект предназначен для студентов 1 курса, изучающих курс "Основы программирования". Тема «Векторы в Delphi». Может быть использован на уроках информатики в 11 классах с профильным изучением предмета и на первом курсе. Данный проект формирует у студентов целостные представления о понятии одномерных массивов.

Вопросы, направляющие проект

Основополагающий вопрос

какую роль играют векторы в Delphi

Проблемные вопросы

Как с помощью Delphi решить математическую задачу с помощью векторов? Как с помощью Delphi решить экономическую задачу с помощью векторов? Как с помощью Delphi решить экологическую задачу с помощью векторов?

Учебные вопросы

Что такое вектор? Объявления вектора в Delphi? Как в Delphi реализовать задачу с вектором? Операции с векторами? Ввод/вывод вектора? Вычисление суммы и произведения?

План проведения проекта

Публикация преподавателя

Презентация преподавателя для выявления представлений и интересов учащихся

стартовая презентация

Пример продукта проектной деятельности учащихся

результат исследования студентов в проекте Векторы в Delphi нами была придумана экономическая задача на поиск минимальных и максимальных убытков. unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, Grids;

type

 TForm1 = class(TForm)
   Label1: TLabel;
   Edit1: TEdit;
   StringGrid1: TStringGrid;
   BitBtn1: TBitBtn;
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var

 Form1: TForm1;

implementation

{$R *.dfm} var a: array[1..100] of integer; min,max,n: integer; i,p: integer; procedure TForm1.BitBtn1Click(Sender: TObject); begin n:= strtoint(Edit1.text); randomize; for i:= 1 to n do begin a[i]:= random(107)+470; stringgrid1.cells[i-1,0]:=inttostr(a[i]);

end; min:=a[1]; max:=a[1]; p:=0; for i:= 1 to n do begin if a[i]<0 then

begin

if a[i]<min then min:=a[i] end

else

begin

if a[i]>max then begin max:= a[i]; p:=i; end; end; end;

label1.Caption:='мин.убытки='+inttostr(min)+#13+'макс.прибыль='+inttostr(max)+'год макс.прибыли='+#13+inttostr(p); end;

end.

Материалы по формирующему и итоговому оцениванию

самооценивание подсчет баллов

Материалы по сопровождению и поддержке проектной деятельности

[[1]]

Полезные ресурсы

Проекты с аналогичной тематикой

Другие документы