Головна

Випадковий вибір зі списку | найпростіший плеєр | Практична робота № 12 | Застосування смуг прокрутки | Практична робота № 14 | Практична робота № 15 | Практична робота № 16 | Практична робота № 17 | Практична робота № 18 | Практична робота № 19 |

© um.co.ua - учбові матеріали та реферати

Практична робота № 20

  1. II. Практична частина.
  2. TEМA 8. Законність і правова робота в народному господарстві
  3. V. КЕРІВНИЦТВО дипломної роботи
  4. А з підсвідомістю працюємо інакше.
  5. Аналітична робота в інтересах захисту бізнесу.
  6. Атракціони і реквізит здається в оренду або використовується в програмі, яку ми розробимо спеціально для ВАС! Від веселою спартакіади до першокласного тімбілдінга!
  7. Б) самостійна аудиторна робота

«Звичайний калькулятор»

Мета роботи -створити програму, що виконує дії звичайного калькулятора.

Опис плану розробки програми

1. Відкрити новий проект.

2. Розмістити на формі екземпляри компонентів: Label, Edit, Button.

 малюнок 33


3. Збережіть проект, запустіть і протестуйте його.

лістинг підпрограми

procedure TForm1.FormCreate (Sender: TObject);

Begin

Edit1.Text: = '';

Edit2.Text: = '';

Edit3.Text: = '';

end;

procedure TForm1.Button5Click (Sender: TObject);

Begin

Edit1.Text: = '';

Edit2.Text: = '';

Edit3.Text: = '';

end;

procedure TForm1.Button6Click (Sender: TObject);

Begin

close;

end;

procedure TForm1.Button1Click (Sender: TObject);

Begin

a: = StrToFloat (Edit1.Text);

b: = StrToFloat (Edit2.Text);

c: = a + b;

Edit3.Text: = FloatToStr (c);

end;

procedure TForm1.Button2Click (Sender: TObject);

Begin

a: = StrToFloat (Edit1.Text);

b: = StrToFloat (Edit2.Text);

c: = a - b;

Edit3.Text: = FloatToStr (c);

end;

procedure TForm1.Button3Click (Sender: TObject);

Begin

a: = StrToFloat (Edit1.Text);

b: = StrToFloat (Edit2.Text);

c: = a * b;

Edit3.Text: = FloatToStr (c);

end;

procedure TForm1.Button4Click (Sender: TObject);

Begin

a: = StrToFloat (Edit1.Text);

b: = StrToFloat (Edit2.Text);

if b = 0 then Edit3.Text: = 'division by zero'

Else

Begin

c: = a / b;

Edit3.Text: = FloatToStr (c);

end;

end;



лістинг підпрограми | Завдання для самостійного виконання