Учебный проект Векторы в Delphi — различия между версиями

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(→‎Краткая аннотация проекта)
(→‎Пример продукта проектной деятельности учащихся)
Строка 42: Строка 42:
 
== Пример продукта проектной деятельности учащихся ==
 
== Пример продукта проектной деятельности учащихся ==
 
[[результат исследования студентов в проекте Векторы в 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.
  
 
== Материалы по формирующему и итоговому оцениванию ==
 
== Материалы по формирующему и итоговому оцениванию ==

Версия 11:57, 19 декабря 2011

Adobe Photoshop Image копия.jpg

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

Морозова Елена

Меринова Ольга

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

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

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

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

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

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

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

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

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

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

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

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

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

Шаблон буклета11111.jpg Шаблон буклета122222.jpg

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

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

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

результат исследования студентов в проекте Векторы в 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]]

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

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

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

Источник — «https://wiki.mininuniver.ru/index.php?title=Учебный_проект_Векторы_в_Delphi&oldid=37567»