Отразить процесс тестирования своей программы в своем электронном журнале работы над проектом: (Вычисление) Проверка правильности программы

Программа верно вычислила данные.

5. Система хранения документов

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

• Save Project As. Сохранение всего проекта в одну папку для надежности.

Я сохранял свой проект в USB – флешки чтобы работать в школе и тем же временем дома, сохранял в жестком диске компьютера, но никогда не сохранял в ноутбуках информатики, так как мой проект могли удалить или присвоеть к себе(плагиатсво).

1.

2.

3.

Работа наш ошибками

Когда поле Edit пусто, программа не может продолжать вычислять, чтобы таких случаев не было, мы задаем условие если поле edit пусто, тогда button выключена, else включен.

Листинг программы

В конце документа представить КОД РАЗРАБАТЫВАЕМОЙ ПРОГРАММЫ НА DELPHI 7 С КОММЕНТАРИЯМИ

Один из примеров.. Листинг – Form7

unit Unit7;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

Type

TForm7 = class(TForm) // класс

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form7: TForm7;

Implementation

uses Unit1, Unit4, Unit3, Unit10, Unit12, Unit2;

{$R *.dfm}

procedure TForm7.Btn1Click(Sender: TObject);

Const

mash=100;

var a,b: integer; // переменные a,b с типом данных – integer;

x0,y0: integer;

x,y: real; // переменные с типом данных – real;

Begin

//oчистить рисунок

image2.Canvas.pen.Color:=clWhite;

image2.Canvas.Rectangle(0,0,clientWidth,clientHeight);

//считываем коэффициенты

a:=strtoint(edt1.text);

b:=strtoint(edit1.text);

// находим центр

x0:=image2.Width div 2;

y0:=image2.height div 2;

// рисуем оси

//with image2.Canvas do

//begin

//end;

image2.canvas.Pen.Color:=clGreen;

image2.canvas.Pen.Width:=2;

image2.canvas.MoveTo(x0,0);

image2.canvas.LineTo(x0,ClientHeight);

image2.canvas.MoveTo(0,y0);

image2.canvas.LineTo(ClientWidth,y0);

// рисуем график

image2.canvas.Pen.color:=clred;

image2.canvas.Pen.Width:=1;

x:=-10;

y:=b+(x*a);

image2.canvas.MoveTo(trunc(x),trunc(y));

Repeat

x:=x+0.1;

try y:=-(b+(x*a)) except y:=0.1 end;

image2.canvas.lineto(trunc(x*mash)+x0,trunc(y*mash)+y0);

until x>=10;

end;

procedure TForm7.edt1Change(Sender: TObject);

Begin

if (edt1.text='') or (Edit1.Text='') then btn1.Enabled:=false

else btn1.Enabled:=true;

end;

procedure TForm7.edt1KeyPress(Sender: TObject; var Key: Char);

Var k:integer;

Begin

if Edt1.Text='0' then //Если ввелиноль, то после него

//должна стоять запятая

//либо только удалить его

if not(key in [',',#8]) then key:=#0;

if key in['0'..'9',',',#8] then //разрешаем вводить только числа

Begin

if key=',' then //проверка для только одной запятой

Begin

if Edt1.Text='' then key:=#0;

For k:=1 to Length(Edt1.Text) do

Begin

if Edt1.Text[k]=',' then key:=#0;

end;

end;

end else key:=#0;

end;

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);

Var k:integer;

Begin

if Edt1.Text='0' then //Если ввелиноль, то после него

//должна стоять запятая

//либо только удалить его

if not(key in [',',#8]) then key:=#0;

if key in['0'..'9',',',#8] then //разрешаем вводить только числа

Begin

if key=',' then //проверка для только одной запятой

Begin

if Edt1.Text='' then key:=#0;

For k:=1 to Length(Edt1.Text) do

Begin

if Edt1.Text[k]=',' then key:=#0;

end;

end;

end else key:=#0;

end;

procedure TForm7.btn2Click(Sender: TObject);

Begin

Поиск по сайту: