![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Конструирование программ для разветвляющихся вычислительных процессов
О Т Ч Е Т ПО ЛАБОРАТОРНЫМ РАБОТАМ
по курсу: Quot; КОНСТРУИРОВАНИЕ ПРОГРАММ И ЯЗЫКИ ПРОГРАММИРОВАНИЯ"
Минск - 2007 Лабораторная работа №2 КОНСТРУИРОВАНИЕ ПРОГРАММ ДЛЯ РАЗВЕТВЛЯЮЩИХСЯ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ
Цель лабораторной работы: научиться пользоваться стандартными компонентами организации переключений (TCheckBox, TradioGroup и др.). Используя компонентами организации переключений разработать интерфейс и программу для заданного разветвляющегося алгоритма. Задание: ввести два числа - x, b. Вычислить по усмотрению одно из трёх выражений. Найти по желанию произведение двух чисел: r=x*b. Листинг программы: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; CheckBox1: TCheckBox; RadioGroup1: TRadioGroup; Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text: ='2'; Edit2.Text: ='6'; CheckBox1.Checked: =True; RadioGroup1.ItemIndex: =2; Memo1.Clear; end; procedure TForm1.Button1Click(Sender: TObject); var x, b, r, xb: real; begin Memo1.Clear; x: =StrToFloat(Edit1.Text); b: =StrToFloat(Edit2.Text); case RadioGroup1.ItemIndex of 0: r: =exp(sqr(x)-abs(b)); 1: r: =sqrt(abs(sqr(x)+b)); 2: r: =2*exp(4*ln(x)); end; //x*b xb: =x*b; Memo1.Lines.Add('Лаб.раб.N2, гр. 107226, бригада №6'); Memo1.Lines.Add('Результат: '); if Checkbox1.Checked then Memo1.Lines.Add('x*b='+FloatToStrF(xb, fffixed, 8, 3)) else Memo1.Lines.Add('R='+FloatToStrF(r, fffixed, 8, 3)); end; end. Результат выполнения программы:
Выводы: научились пользоваться стандартными компонентами организации переключений (TCheckBox, TradioGroup и др.). Используя компоненты организации переключений, разработали интерфейс и программу для заданного разветвляющегося алгоритма.
|