Текст програми
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ComCtrls, ImgList, Buttons, ToolWin, ActnList,
StdActns;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
RichEdit1: TRichEdit;
FontDialog1: TFontDialog;
File1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
ImageList1: TImageList;
N6: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N7: TMenuItem;
ToolBar1: TToolBar;
ToolButton4: TToolButton;
ToolButton8: TToolButton;
Edit1: TEdit;
UpDown1: TUpDown;
ToolButton9: TToolButton;
ActionList1: TActionList;
PopupMenu1: TPopupMenu;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
EditSelectAll1: TEditSelectAll;
EditUndo1: TEditUndo;
EditDelete1: TEditDelete;
N11: TMenuItem;
N31: TMenuItem;
N41: TMenuItem;
N51: TMenuItem;
N61: TMenuItem;
N71: TMenuItem;
ColorSelect1: TColorSelect;
fg1: TMenuItem;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
procedure N4Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var a:string;
FileWork: String;
implementation
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
begin
//RichEdit1.PlainText := True;
if SaveDialog1.Execute
then RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);
end;
procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
if OpenDialog1.Execute
then RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
Filework:=opendialog1.filename;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
RichEdit1.PlainText := True;
RichEdit1.Lines.SaveToFile(Filework);
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsBold];
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsItalic];
end;
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsUnderline];
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taLeftJustify;
end;
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taCenter;
end;
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taRightJustify;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
RichEdit1.SelAttributes.Size:=StrToInt(Edit1.Text);
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
if FontDialog1.Execute then RichEdit1.Font:= FontDialog1.Font;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsBold];
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsItalic];
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsUnderline];
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taLeftJustify;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taCenter;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taRightJustify;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
MessageDlg('Made by Nazar',mtCustom,
[mbOk], 0);
end;
procedure TForm1.N9Click(Sender: TObject);
begin
if FontDialog1.Execute
then RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;
procedure TForm1.N10Click(Sender: TObject);
begin
richedit1.Font.color:=clred;
N10.checked:=true;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
richedit1.Font.color:=clgreen;
N12.checked:=true;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
richedit1.Font.color:=clblue;
N13.checked:=true;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
richedit1.Font.color:=clyellow;
N14.checked:=true;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
richedit1.Font.color:=clblack;
N15.checked:=true;
end;
end.
Апробація
Завдання № 12
Тема завдання: Мова ObjectPascal, початки роботи в Delphi.
Постановка задачі
Написати программу – розчеплене вікно (не діалог). Зліва показувати список імен файлів, а справа – малюнок.
Опис алгоритму
Для цього , щоб виконати цю програму нам потрібні 2 компоненти: ListBox , Image. В ListBox ми записуємо назви файлів і пишемо процедури, за допомогою яких при натисканні в полі Image буде відображатись картинка.
Текст програми
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ImgList,jpeg;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Image1: TImage;
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.ItemIndex = 0
then image1.Picture.LoadFromFile('cat.jpg');
if listbox1.ItemIndex = 1
then image1.Picture.LoadFromFile('dog.jpg');
if listbox1.ItemIndex = 2
then image1.Picture.LoadFromFile('panda.jpg');
if listbox1.ItemIndex = 3
then image1.Picture.LoadFromFile('monkey.jpg');
if listbox1.ItemIndex = 4
then image1.Picture.LoadFromFile('pig.jpg');
if listbox1.ItemIndex = 5
then image1.Picture.LoadFromFile('rabbit.jpg');
if listbox1.ItemIndex = 6
then image1.Picture.LoadFromFile('snake.jpg');
if listbox1.ItemIndex = 7
then image1.Picture.LoadFromFile('bird.jpg');
if listbox1.ItemIndex = 8
then image1.Picture.LoadFromFile('squirrel.jpg');
if listbox1.ItemIndex = 9
then image1.Picture.LoadFromFile('wolf.jpg');
if listbox1.ItemIndex = 10
then image1.Picture.LoadFromFile('bear.jpg');
if listbox1.ItemIndex= 11
then image1.Picture.LoadFromFile('crocodile.jpg');
if listbox1.ItemIndex = 12
then image1.Picture.LoadFromFile('tiger.jpg');
if listbox1.ItemIndex = 13
then image1.Picture.LoadFromFile('horse.jpg');
if listbox1.ItemIndex = 14
then image1.Picture.LoadFromFile('fish.jpg');
if listbox1.ItemIndex= 15
then image1.Picture.LoadFromFile('butterfly.jpg');
end;
end.
Апробація
Завдання № 13
Тема завдання: Мова С++, початки.
Постановка задачі
Дано два масиви А і В порядку, елементи яких впорядковані по зростанню. Об’єднати ці масиви так, щоб результуючий масив був впорядкований.
Опис алгоритму
Спочатку створюємо три динамічних масиви a,b,c розмірність відповідно n,l,n+l. Після цього вводимо з клавіатури значення елементів двох перших масивів. Далі в циклі ми кожен елемент першого масиву та другого масиву об’єднуємо в третій. Після цього, сортуємо масив с по зростанню.
Текст програми
#include <iostream>
using namespace std;
int main()
{
int i,j,k,n,l,temp;
int *a= new int[n];
int *b= new int[l];
int *c= new int[n+l];
cin>>n;
cin>>l;
for (i=0; i<n; i++)
cin>>a[i];
for (i=0; i<l; i++)
cin>>b[i];
for (i=0; i<n; i++)
c[i]=a[i];
for (i=0; i<l; i++)
c[i+n]=b[i];
for (j=1; j<n+l; j++)
for (i=0; i<n+l-j; i++)
if (c[i]>c[i+1]) {
temp=c[i];
c[i]=c[i+1];
c[i+1]=temp ; }
for (i=0; i<n+l; i++)
cout<<c[i]<<' ';
delete [] a,b,c;
system("pause");
return 0;
}