ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 05.05.2024
Просмотров: 12
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Министерство образования и науки Российской Федерации
Федеральное государственное бюджетное образовательное учреждение высшего образования «Волгоградской государственный технический университет»
Факультет Подготовки и переподготовки инженерных кадров
Кафедра: Программирование
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
к курсовой работе (проекту)
по дисциплине: Программирование и основы алгоритмизации
на тему: Структура, содержание и оформление
Студент: Никипелов Александр Владимирович
(фамилия, имя, отчество)
Группа ЭТЗ-331
Руководитель работы (проекта) ________________________ ___________________
(подпись и дата подписания) (инициалы и фамилия)
Члены комиссии:
_______________________ _______________________
(подпись и дата подписания) (инициалы и фамилия)
_______________________ _______________________
(подпись и дата подписания) (инициалы и фамилия)
_______________________ _______________________
(подпись и дата подписания) (инициалы и фамилия)
Нормоконтролер _________________________ _________________________
(подпись и дата подписания) (инициалы и фамилия)
Волгоград 2022 г.
Код главного модуля программы по заданию №1
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
File1: TMenuItem;
Save2: TMenuItem;
Exit1: TMenuItem;
Help1: TMenuItem;
About1: TMenuItem;
About2: TMenuItem;
Save1: TMenuItem;
Exit2: TMenuItem;
MemoLabel1: TLabel;
Memo1: TMemo;
procedure Save2Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.Save2Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('Document.txt');
end;
procedure TMainForm.Exit1Click(Sender: TObject);
begin
Close;
end;
procedure TMainForm.About1Click(Sender: TObject);
begin
MessageDlg('NotePad'#13#10'© 2022 ВолгГТУ'#13#10'Версия 1.00', mtInformation, [mbOK], 0);
end;
procedure TMainForm.FormActivate(Sender: TObject);
begin
if FileExists ('Document.txt')
then Memo1.Lines.LoadFromFile('Document.txt')
else Memo1.Lines.SaveToFile('Document.txt');
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Memo1.Lines.SaveToFile('Document.txt');
end;
procedure TMainForm.FormCreate(Sender: TObject);
var
CurrentTime: LongInt;
begin
CurrentTime := GetTickCount() div 1000;
while ( (GetTickCount div 1000) < (CurrentTime + 6) ) do
{Ничего не выполняется};
end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Закончить программу?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then CanClose := True
else CanClose := False;
end;
end.
Изображения главного окна программы по заданию №1
Изображение заставки к заданию №2
Код главного модуля программы по заданию №3
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Mask;
type
TfmExample = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
bbRun: TBitBtn;
bbClose: TBitBtn;
lbOutput: TLabel;
mmOutput: TMemo;
bbResult: TBitBtn;
edInput: TMaskEdit;
procedure bbRunClick(Sender: TObject);
procedure bbResultClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
X, Y: Integer;
public
{ Public declarations }
end;
var
fmExample: TfmExample;
implementation
{$R *.dfm}
procedure TfmExample.bbRunClick(Sender: TObject);
begin
if Trim(edInput.Text) = '' then Exit;
X := StrToInt(Trim(edInput.Text));
mmOutput.Lines.Add('1-ый операнд: ' + edInput.Text);
edInput.Text := '';
edInput.SetFocus;
lbOutput.Caption := 'Введите 2-й операнд:';
bbResult.Show;
bbRun.Hide;
end;
procedure TfmExample.bbResultClick(Sender: TObject);
begin
if Trim(edInput.Text) = '' then Exit;
Y := StrToInt(Trim(edInput.Text));
mmOutput.Lines.Add('2-ой операнд: ' + edInput.Text);
mmOutput.Lines.Add('Результат: ' + IntToStr(X) + ' div ' + IntToStr(Y) + ' = ' + IntToStr(X div Y));
edInput.Text := '';
edInput.SetFocus;
lbOutput.Caption := 'Введите 1-й операнд:';
bbResult.Hide;
bbRun.Show;
end;
procedure TfmExample.FormActivate(Sender: TObject);
begin
edInput.SetFocus;
lbOutput.Caption := 'Введите 1-й операнд:';
end;
end.
Изображение главного окна программы по заданию №3
Код главного модуля программы по заданию №4
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TfmExample = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
bbRun: TBitBtn;
bbClose: TBitBtn;
edInput1: TEdit;
lbOutput: TLabel;
mmOutput: TMemo;
cbSign: TComboBox;
edInput2: TEdit;
procedure bbRunClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmExample: TfmExample;
implementation
{$R *.dfm}
procedure TfmExample.bbRunClick(Sender: TObject);
var
X, Y, Z: Real;
begin
if (edInput1.Text = '') or (edInput2.Text = '')
or (cbSign.ItemIndex < 0) then Exit;
try
X := StrToFloat(Trim(edInput1.Text));
except
ShowMessage('Ошибочная запись числа: ' + edInput1.Text);
edInput1.SetFocus;
Exit;
end;
try
Y := StrToFloat(Trim(edInput2.Text));
except
ShowMessage('Ошибочная запись числа: ' + edInput2.Text);
edInput2.SetFocus;
Exit;
end;
case cbSign.ItemIndex of
0: Z := X + Y;
1: Z := X - Y;
2: Z := X * Y;
3: try
Z := X / Y;
except
Z := 1.1e+38;
end;
end;
lbOutput.Caption := Trim(edInput1.Text) + ' ' +
cbSign.Items[cbSign.ItemIndex] + ' ' + Trim(edInput2.Text) +
' = ';
if Z >= 1.1e+38 then
lbOutput.Caption := lbOutput.Caption + 'бесконечность'
else lbOutput.Caption := lbOutput.Caption + FloatToStr(Z);
mmOutput.Lines.Add(lbOutput.Caption);
edInput1.Text := '';
edInput2.Text := '';
cbSign.ItemIndex := -1;
edInput1.SetFocus;
end;
end.
Изображение главного окна программы по заданию №4
Код главного модуля программы по заданию №5
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TfmExample = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
bbRun: TBitBtn;
bbClose: TBitBtn;
edInput: TEdit;
lbOutput: TLabel;
mmOutput: TMemo;
procedure bbRunClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmExample: TfmExample;
implementation
{$R *.dfm}
procedure TfmExample.bbRunClick(Sender: TObject);
const
N = 40;
MAX_VALUE = 150;
var
m: array [1..N] of Integer;
i: Integer;
max, min: Integer;
sum: Real;
begin
for i := 1 to N do
m[i] := Random(MAX_VALUE);
sum := m[1];
max := m[1];
min := m[1];
for i := 2 to N do
begin
sum := sum + m[i];
if m[i] < min then
min := m[i]
else if m[i] > max then
max := m[i]
end;
lbOutput.Caption := 'Мин = ' + IntToStr(min) + ' Макс = ' +
IntToStr(max) + ' Среднее = ' + FloatToStr(sum / N);
end;
end.
Изображение главного окна программы по заданию №5
Код главного модуля программы по заданию №6 (на процедуре)
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TfmExample = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
bbRun: TBitBtn;
bbClose: TBitBtn;
edInput: TEdit;
lbOutput: TLabel;
mmOutput: TMemo;
procedure bbRunClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmExample: TfmExample;
implementation
{$R *.dfm}
procedure TfmExample.bbRunClick(Sender: TObject);
procedure UpString(stInp: String; var stOut: String);
var
k: Integer;
begin
StOut := stInp;
for k := 1 to Length(stOut) do
begin
stOut[k] := UpCase(stOut[k]);
if (stOut[k] >= 'a') then
stOut[k] := chr(ord('A') + ord(stOut[k]) - ord('a'));
if stInp[k] = '¸' then
stOut[k] := '¨';
end;
end;
var
S1, S2: String;
begin
S1 := edInput.Text;
UpString(S1,S2);
lbOutput.Caption := S2;
edInput.Text := '';
edInput.SetFocus;
end;
end.
Код главного модуля программы по заданию №6 (на функции)
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TfmExample = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
bbRun: TBitBtn;
bbClose: TBitBtn;
edInput: TEdit;
lbOutput: TLabel;
mmOutput: TMemo;
procedure bbRunClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmExample: TfmExample;
implementation
{$R *.dfm}
procedure TfmExample.bbRunClick(Sender: TObject);
function UpString(stInp: String): String;
var
k: Integer;
begin
Result := stInp;
for k := 1 to Length(Result) do
begin
Result[k] := UpCase(Result[k]);
if (Result[k] >= 'a') then
Result[k] := chr(ord('A') + ord(Result[k]) - ord('a'));
if stInp[k] = '¸' then
Result[k] := '¨';
end;
end;
begin
lbOutput.Caption := UpString(edInput.Text);
edInput.Text := '';
edInput.SetFocus;
end;
end.
Изображение главного окна программы по заданию №6
