Page 57 - 4260
P. 57

Comp1.Re:=a;
                  Comp1.Im:=b;
                  Comp2.Re:=c;
                  Comp2.Im:=d;
                  Comp3:=Addc(Comp1,Comp2);
                  memo1.Lines.Add('Вихідні дані');
                  memo1.Lines.Add('Comp1='+Floattostr(Comp1.Re)+’+i*'+Floattostr(
           Comp1.Im));
                  memo1.Lines.Add('Comp2='+Floattostr(Comp2.Re)+'+i*'+Floattostr(C
           omp2.Im));
                  memo1.Lines.Add('');
                  memo1.Lines.Add('Результат комплексної операції’);
                  memo1.Lines.Add('Comp3='+Floattostr(Comp3.Re)+'+i*'+Floattostr(C
           omp3.Im));
           end;

           procedure Tform1.bbvvodclick(Sender: Tobject);
           begin
                  a:=Strtofloat(Edit1.Text);
                  b:=Strtofloat(Edit2.Text);
                  c:=Strtofloat(Edit3.Text);
                  d:=Strtofloat(Edit4.Text);
           end;

           procedure Tform1.bbclearclick(Sender: Tobject);
           begin
                  memo1.Clear;
           end;

           end.

           Завдання 2
                  Повтор  завдання      1, реалізу  моду    вигляді
           DLL Complex2. Проект – додаток.
           1. Командою Файл => Створити => Викликаємо вікно архіву
              й   в и б и р а є м о   в   н ь о м у  DLL. О д е р ж у є м о   у   в і к н і   Р е д а к т о р а
              коду  сторінку шаблону DLL з іменем Project1.




                                          57
   52   53   54   55   56   57   58   59   60   61   62