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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(→‎Цели исследования)
(→‎Результаты проведённого исследования)
 
(не показано 16 промежуточных версий этого же участника)
Строка 1: Строка 1:
 
==Авторы и участники проекта==
 
==Авторы и участники проекта==
−
[[Конёва Людмила и Светлана Малышева]]
+
*[[Участник:Конёва Людмила|Конёва Людмила]]
 +
*[[Участник:Светлана Малышева|Светлана Малышева]]
  
 
==Тема исследования группы==
 
==Тема исследования группы==
−
[[Решение задач]]
+
Решение задач
  
 
== Проблемный вопрос (вопрос для исследования)==
 
== Проблемный вопрос (вопрос для исследования)==
−
[[Как можно использовать строковый тип для исследования литературных текстов?]]
+
Как можно использовать строковый тип для исследования литературных текстов?
 +
 
  
−
== Гипотеза исследования ==
 
  
 
==Цели исследования==
 
==Цели исследования==
−
[[Проанализировать и решить программу]]
+
#Подобрать примеры задач с литературными текстами
 +
#Составить алгоритмы решения задач
 +
#Составить программу на языке Delphi
 +
#Выполнить анализ результата
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 +
Нами была придумана задача, в которой требовалась изменяеть цвет и размер букв
 +
 +
unit Unit1;
 +
 +
interface
 +
 +
uses
 +
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 +
  Dialogs, StdCtrls, CheckLst, ExtCtrls;
 +
 +
type
 +
  TForm1 = class(TForm)
 +
    RadioGroup1: TRadioGroup;
 +
    RadioGroup2: TRadioGroup;
 +
    RadioGroup3: TRadioGroup;
 +
    Label1: TLabel;
 +
    Label2: TLabel;
 +
    CheckListBox1: TCheckListBox;
 +
    Edit1: TEdit;
 +
    procedure RadioGroup3Click(Sender: TObject);
 +
    procedure RadioGroup1Click(Sender: TObject);
 +
    procedure RadioGroup2Click(Sender: TObject);
 +
    procedure CheckListBox1Click(Sender: TObject);
 +
  private
 +
    { Private declarations }
 +
  public
 +
    { Public declarations }
 +
  end;
 +
 +
var
 +
  Form1: TForm1;
 +
 +
implementation
 +
 +
{$R *.dfm}
 +
 +
 +
 +
procedure TForm1.RadioGroup1Click(Sender: TObject);
 +
begin
 +
case RadioGroup1.ItemIndex of
 +
0:Edit1.Font.Style:=[];
 +
1:Edit1.Font.Style:=[fsItalic];
 +
2:Edit1.Font.Style:=[fsBold];
 +
3:Edit1.Font.Style:=[fsItalic,fsbold];
 +
end;
 +
end;
 +
 +
procedure TForm1.RadioGroup2Click(Sender: TObject);
 +
begin
 +
case RadioGroup2.ItemIndex of
 +
0:Edit1.Font.Size:=8;
 +
1:Edit1.Font.Size:=10;
 +
2:Edit1.Font.Size:=12;
 +
3:Edit1.Font.Size:=14;
 +
end;
 +
end;
 +
 +
procedure TForm1.RadioGroup3Click(Sender: TObject);
 +
begin
 +
case RadioGroup3.ItemIndex of
 +
0:Edit1.Font.Color:=clBlack;
 +
1:Edit1.Font.Color:=clGreen;
 +
2:Edit1.Font.Color:=clRed;
 +
3:Edit1.Font.Color:=clblue;
 +
end;
 +
end;
 +
 +
procedure TForm1.CheckListBox1Click(Sender: TObject);
 +
begin
 +
if CheckListbox1.Checked[0]
 +
then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut]
 +
else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut];
 +
if CheckListbox1.Checked[1]
 +
then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderLine]
 +
else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderLine];
 +
end;
 +
 +
end.
 +
[[Изображение:Малышева и Конева.JPG|200ph]]
  
 
==Вывод==
 
==Вывод==
 +
Для того, чтобы получить верный результат, мы исследовали существующие строковые данные в Delphi, составили проект и программу.
 +
 +
Используя полученные нами данные, можно сделать вывод, что программа помогает нам изменять цвет даных букв, и уменьшать и увеличивать размер букв.
  
 
==Полезные ресурсы==
 
==Полезные ресурсы==
 +
 +
* [http://ru.wikibooks.org/wiki/%D0%92%D0%B8%D0%BA%D0%B8 Учебник по вики]
 +
* [http://www.iteach.ru/ Сайт программы Intel "Обучение для будущего"]
 +
* [http://ru.wikibooks.org  Полезные книги]
  
 
== Другие документы ==
 
== Другие документы ==
  
 +
 +
*[http://sources.ru/delphi/ Исходники различных программ в делфи]
 +
 +
*[http://skachivaem.ru/articles/50-delphi/223--delphi.html Методы строки в делфи]
  
 
[[Категория:Проекты]]
 
[[Категория:Проекты]]

Текущая версия на 12:43, 19 декабря 2011

Авторы и участники проекта

Тема исследования группы

Решение задач

Проблемный вопрос (вопрос для исследования)

Как можно использовать строковый тип для исследования литературных текстов?


Цели исследования

  1. Подобрать примеры задач с литературными текстами
  2. Составить алгоритмы решения задач
  3. Составить программу на языке Delphi
  4. Выполнить анализ результата

Результаты проведённого исследования

Нами была придумана задача, в которой требовалась изменяеть цвет и размер букв

unit Unit1;

interface

uses 

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, CheckLst, ExtCtrls;

type 

 TForm1 = class(TForm)
   RadioGroup1: TRadioGroup;
   RadioGroup2: TRadioGroup;
   RadioGroup3: TRadioGroup;
   Label1: TLabel;
   Label2: TLabel;
   CheckListBox1: TCheckListBox;
   Edit1: TEdit;
   procedure RadioGroup3Click(Sender: TObject);
   procedure RadioGroup1Click(Sender: TObject);
   procedure RadioGroup2Click(Sender: TObject);
   procedure CheckListBox1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var 

 Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0:Edit1.Font.Style:=[]; 1:Edit1.Font.Style:=[fsItalic]; 2:Edit1.Font.Style:=[fsBold]; 3:Edit1.Font.Style:=[fsItalic,fsbold]; end; end;

procedure TForm1.RadioGroup2Click(Sender: TObject); begin case RadioGroup2.ItemIndex of 0:Edit1.Font.Size:=8; 1:Edit1.Font.Size:=10; 2:Edit1.Font.Size:=12; 3:Edit1.Font.Size:=14; end; end;

procedure TForm1.RadioGroup3Click(Sender: TObject); begin case RadioGroup3.ItemIndex of 0:Edit1.Font.Color:=clBlack; 1:Edit1.Font.Color:=clGreen; 2:Edit1.Font.Color:=clRed; 3:Edit1.Font.Color:=clblue; end; end;

procedure TForm1.CheckListBox1Click(Sender: TObject); begin if CheckListbox1.Checked[0] then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut] else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut]; if CheckListbox1.Checked[1] then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderLine] else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderLine]; end;

end. 200ph

Вывод

Для того, чтобы получить верный результат, мы исследовали существующие строковые данные в Delphi, составили проект и программу.

Используя полученные нами данные, можно сделать вывод, что программа помогает нам изменять цвет даных букв, и уменьшать и увеличивать размер букв.

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

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

Источник — «https://wiki.mininuniver.ru/index.php?title=Результаты_исследования_студентов_в_проекте_Работа_со_строками_в_Delphi&oldid=37603»