Пример оформления обязательной контрольной работы.

Обязательная контрольная работа № 1

по <название учебной дисциплины>

учащегося <курс, группа>

<Фамилия Имя Отчество>

Вариант 13.

1. <Вопрос, согласно своего варианта.>

    <…Ответ на вопрос>

 

2.1 Постановка  задач:.

Составить программу для вычисления силы тока на участке электрической цепи по закону Ома для участка цепи: I = U/R. Напряжение U и сопротивление R задаются как исходные данные.

2.2 Вид спроектированной формы:

2.3 Текст программного модуля (файл Unit1.pas):

unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button2Click(Sender: TObject);

    {Обработчик нажатия кнопки "Выход" - закрытие формы.}

begin

 close;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

    {Обработчик нажатия кнопки "Расчет" - выполнение расчета.}

 var U,R,I:real;

     cod1,cod2:Integer;

     s:string;

begin

  {Чтение исходных данных из компонентов Edit1 и Edit2, преобразование их из строки в число и

    запись в переменные U и R:}

  Val(Edit1.Text,U,cod1);

  Val(Edit2.Text,R,cod2);

  {Проверка введенных данных на корректность:}

  If (cod1<>0) or (cod2<>0) or (R=0) then begin

    Label4.Caption:='Некорректные данные!';

    exit;

  end;

  {Расчет:}

  I:=U/R;

  {Преобразование численной переменной I в строковую s:}

  Str(I:4:2,s);

  {Вывод (отображение) результата в компоненте Label4:}

  Label4.Caption:=s;

end;

 

end.

---