![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Запуск програми
Запустити програму можна, натиснувши Run у головному меню Run, або клавішу F9, або піктограму. При цьому відбувається трансляція і, якщо немає помилок, компонування програми і створення єдиного файлу, що завантажується, з розширенням.exe. На екрані з'являється активна форма програми (Рис. 2.1) Робота з програмою відбувається в такий спосіб. Натисніть (клацніть мишею) кнопку “Виконати”. У вікні Memo1 з'являється результат. Зміните вихідні значення x, y, z у вікнах Edit і знову натисніть кнопку “Виконати” - з'являться нові результати. Завершити роботу програми можна натиснувши або Program Reset у головному меню Run, або кнопку (на формі.
Текст програми має вигляд:
unit unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text: = '3, 4'; // Початкове значення Х Edit2.Text: = '0, 74'; // Початкове значення Y Edit3.Text: = '19, 43'; // Початкове значення Z Memo1.Clear; // Очищення вікна редактори Memo1 // Висновок рядка в многострочный редактор Memo1 Memo1.Lines.Add('Ла6.раб.N2. Ст.гр. 2ЭК Іванов А.А.'); end;
procedure TForm1.Button1Click(Sender: TObject); var x, y, z, a, b, c, u: Extended; begin x: = StrToFloat(Edit1.Text); // Зчитується значення X Memo1.Lines.Add('X = '+Edit1.Text); // Висновок X у вікно Memo1 Y: = StrToFloat(Edit2.Text); // Зчитується значення Y Memo1.Lines.Add('Y ='+Edit2.Text); // Висновок Y у вікно Memo1 Z: = StrToFloat(Edit3.Text); // Зчитується значення Z Memo1.Lines.Add('Z = '+Edit3.Text); // Висновок Z у вікно Memo1 // Обчислюємо арифметичне вираження a: = Sqr(Sin(x+y)/Cos(x+y)); b: = Exp(y-z); C: = Sqrt(Cos(Sqr(x))+Sin(Sqr(z))); U: = a - b * C; //Виводимо результат у вікно Memo1 Memo1.Lines.Add(Результат U: = '+ FloatToStr(u, fffixed, 8, 3)); end;
end. 4. Індивідуальні завдання
Прочитайте в додатку опис меню File, Edit, Run, а також компонентів TEdit, TMemo, TButton. За допомогою інспектора об'єктів зміните колір форми, шрифт виведених символів. Варіанти завдання Обчислити значення функції:
|