Ознакомление с ООП

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего образования

«Московский государственный технический университет имени  Н.Э.  Баумана

(национальный исследовательский университет)»

Московский техникум космического приборостроения

ЛАБОРАТОРНАЯ  РАБОТА № 1

по теме: Ознакомление с ООП

Специальность: 09.02.07 Информационные системы и программирование ⎯  квалификация «Администратор баз данных»

Группа ТБД-41

Москва

 2021

Содержание

1.        Постановка задачи        2

2.        Интерфейс приложения        3

3.        Входная информация        5

4.        Выходная информация        6

5.        Листинг        7

6.        Контрольный пример        13

7.        Вывод        16

1. Постановка задачи

1. Интерфейс приложения

[pic 4]

        Рисунок 2.1 – Интерфейс программы (Пример)

[pic 5]

           Рисунок 2.2 – Интерфейс программы (Условие)

[pic 6]

        Рисунок 2.3 – Интерфейс программы (Об авторе)

1. Входная информация

F, P, Q – переменные вещественного типа

1. Выходная информация

K, N, D – переменные вещественного  типа

1. Листинг

Unit1

implementation

 Uses Unit2, Unit3;

{$R *.lfm}

 { TForm1 }

 procedure TForm1.Button4Click(Sender: TObject);

 begin

   Form2.ShowModal;

 end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Form1.Edit1.Clear;

  Form1.Edit2.Clear;

  Form1.Edit3.Clear;

  Label4.Caption:='';

end;

procedure TForm1.Button1Click(Sender: TObject);

  var k,f,p,q,n,d:real;

    s1,s2,s3:string[7];

    code: integer;

begin

   val(form1.Edit1.Text,f,code);

   val(form1.Edit2.Text,p,code);

   val(form1.Edit3.Text,q,code);

   if (f=0) or (p=0) then

   begin

     form1.label4.font.color:=clRed;

     form1.label4.font.size:=12;

     form1.label4.caption:='Ошибка';

   end

   else

   begin

     k:=((f*f)+0.5*(sqr(p+q)))/(f*p);

     if (f=0) or (p=0) then

     begin

      form1.label4.font.color:=clRed;

      form1.label4.font.size:=14;

      form1.label4.caption:='Ошибка';

     end

     else

     begin

     n:=abs(k-1.3);

     if n<0 then

       begin

      form1.label4.font.color:=clRed;

      form1.label4.font.size:=12;

      form1.label4.caption:='Ошибка';

      end

     else

     begin

     d:=sqrt(10*n);

     str(k:3:3,s1);

     str(n:3:3,s2);

     str(d:3:3,s3);

     form1.Label4.Font.color:=clBlack;

     form1.Label4.caption:='Ответ: '+'K='+s1+chr(13)+'N='+s2+chr(13)+'D='+s3;

     end;

   end;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  Form1.Close;

end;

procedure TForm1.Button5Click(Sender: TObject);