Результаты исследования студентов в проекте Работа со строками в 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
Содержание
Авторы и участники проекта
Тема исследования группы
Решение задач
Проблемный вопрос (вопрос для исследования)
Как можно использовать строковый тип для исследования литературных текстов?
Цели исследования
- Подобрать примеры задач с литературными текстами
- Составить алгоритмы решения задач
- Составить программу на языке 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;
Вывод
Для того, чтобы получить верный результат, мы исследовали существующие строковые данные в Delphi, составили проект и программу.
Используя полученные нами данные, можно сделать вывод, что программа помогает нам изменять цвет даных букв, и уменьшать и увеличивать размер букв.