Блок схема алгоритму

Текст програми

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

label 1;

var

m,n,x,y,z:real;

i:integer;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(edit2.Text);

z:=StrToFloat(edit3.Text);

i:=1;

1: if x>=y then

begin

m:=sqr(sin(x))+2*sqr(y)*z+exp(z);

m:=m/(sqrt(x+y)+sqr(ln(x))+x*sqr(y));

Label7.Caption:='m='+FloatToStrF(m,ffFixed,7,3);

end

else

begin

n:=sqr(x)+sqr(y)+3*z+sqrt(arctan(x));

n:=n/(cos(sqr(x))+exp(3*ln(y))+x*y*sqr(z));

Label8.Caption:='n='+FloatToStrF(n,ffFixed,7,3);

end;

y:=StrToFloat(Edit4.Text);

i:=i+1;

if i<=2

then

goto 1;

end;

end.

Результат

Вміст звіту

1. Титульний аркуш.

2. Завдання.

3. Схема алгоритму.

4. Лістинг програми, що містить прізвище, номер групи і варіант завдання, виведений друкуючим пристроєм.

5. Друк початкових даних.

6. Друк результатів розрахунку.

Контрольні питання

1. Чому меню є важливим засобом організації діалогів?

2. Що таке меню?

3. Якими правилами слід користуватися при роботі за комп'ю­тером?

4. Як навчитися друкувати, не дивлячись на клавіатуру комп'ю­тера?

5. Як Object Pascal-програма в Delphi 6 отримує вихідні дані?

6. Для яких цілей використовують функцію InputBox у Delphi 6? Як працює ця інструкція?

7. Як працює функція StrToFloat? Для яких цілей вона викори­стовується?

8. Запишіть фрагмент Object Pascal-програми, який забезпечить ввід початкових даних дійсних та цілих типів.

9. Що таке діалогове вікно для вводу початкових даних в Object Pascal-програмі?

10. Як утворити діалогове вікно для вводу чотирьох вихідних даних?

11. Як змінити заголовок діалогового вікна (форми Forml)?

12. Якими способами можна переключати регістри в Delphi 6?

13. Як змінити колір вікна форми?

14. За допомогою яких властивостей можна змінювати розміри форми?

15. Як змінити розміри форми шляхом захвату курсором границь вікна?

16. Які знайомі Вам компоненти знаходяться на сторінці Standard у Delphi 6?

17. Як та для чого необхідно маркувати компоненти форми?

18. Які властивості компонента «Поле редагування» (Edit) Ви знаєте?

19. Що таке мітка та як вона додається у форму?

20. Які властивості компонента «Командна кнопка» (Button) Вам відомі?

21. Як утворити процедуру вводу даних з поля діалогового вікна форми?

22. Яким чином Object Pascal-програма забезпечує вивід результатів обчислення?

23. Як працює процедура ShowMessage в Object Pascal?

24. Які іменовані константи Вам відомі?

25. Як вивести результати обчислення за допомогою компонента «Мітка» (Label)?