11747

Работа в составе бригады

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа №10. Работа в составе бригады. Цель: научиться коллективно обрабатывать разрабатывать отлаживать программные продукты. Ход работы Разработать программу выполняющую вычислительные действия над комплексными числами . var Form1: TForm1; ...

Русский

2013-04-10

42 KB

1 чел.

Лабораторная работа №10.

Работа в составе бригады.

Цель: научиться коллективно обрабатывать, разрабатывать, отлаживать программные продукты.

Ход работы

  1.  Разработать программу, выполняющую вычислительные действия над комплексными числами .

var

 Form1: TForm1;

  q,w, e,r,t,i,z,x,c,v,b,n:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

q:=strtofloat(edit1.Text);

w:=strtofloat(edit2.Text);

e:=strtofloat(edit3.Text);

r:=strtofloat(edit4.Text);

t:=q+e;

i:=w+r;

if i>0 then

label7.Caption:=floattostr(t)+'+'+floattostr(i)+'i' else

label7.Caption:=floattostr(t)+floattostr(i)+'i';

z:=strtofloat(edit5.Text);

x:=strtofloat(edit6.Text);

c:=strtofloat(edit7.Text);

v:=strtofloat(edit8.Text);

b:=z-c;

n:=x-v;

label14.Caption:=floattostr(b)+floattostr(n)+'i';

end;

Вывод: научились коллективно обрабатывать, разрабатывать, отлаживать программные продукты.

Лабораторная работа №10.

Работа в составе бригады.

Цель: научиться коллективно обрабатывать, разрабатывать, отлаживать программные продукты.

Выполнил: Большаков В.В.

Группа: 103-ПО.

Дата: 10.01.13.

Проверила: Кашталинская И. А.

Ход работы

  1.  Разработать программу, выполняющую вычислительные действия над комплексными числами .

var

 Form1: TForm1;

  q,w, e,r,t,i,z,x,c,v,b,n:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

q:=strtofloat(edit1.Text);

w:=strtofloat(edit2.Text);

e:=strtofloat(edit3.Text);

r:=strtofloat(edit4.Text);

t:=q+e;

i:=w+r;

if i>0 then

label7.Caption:=floattostr(t)+'+'+floattostr(i)+'i' else

label7.Caption:=floattostr(t)+floattostr(i)+'i';

z:=strtofloat(edit5.Text);

x:=strtofloat(edit6.Text);

c:=strtofloat(edit7.Text);

v:=strtofloat(edit8.Text);

b:=z-c;

n:=x-v;

label14.Caption:=floattostr(b)+floattostr(n)+'i';

end;

Вывод: научились коллективно обрабатывать, разрабатывать, отлаживать программные продукты.


 

А также другие работы, которые могут Вас заинтересовать

62620. Урок как основная форма обучения экологии в школе 24.24 KB
  Задач конкретного урока и его места в общей системе уроков определение оптимального содержания урока и с учетом подготовки учащихся выбор рациональных методов приемов и средств стимулирования и контроля сочетание различных форм работы с деятельностью учащихся...
62622. Цитология 3.66 MB
  Прокариотические прокариоты клетки не имеющие выраженного ядра. Эукариотические эукариоты клетки имеющие выраженное ядро. Виды клеток Нервные клетки Эпетелиальные клетки Клетки крови Соединительные клетки...