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

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

Версия 12:14, 19 декабря 2011

Adobe Photoshop Image копия.jpg

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

результат исследования студентов в проекте Векторы в Delphi [Изображение:111111111111.JPG]

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

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

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

[[1]]

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

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

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

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