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;

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


 

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

51927. Вставні слова (словосполучення, речення) 39.5 KB
  Мета: поглибити знання про вставні слова словосполучення речення правила їх написання; формувати вміння знаходити їх у тексті правильно розставляти розділові знаки доречно вживати вставні слова в мовленні; розвивати увагу логічне мислення память; виховувати гуманні почуття. 1 Які труднощі виникли під час виконання домашнього завдання 2 Які слова словосполучення й речення називають вставними 3 Наведіть приклади найбільш уживаних вставних слів і словосполучень. 4 З якою інтонацією вимовляються вставні слова словосполучення й...