информатика первая лаба

Министерство образования и науки Российской Федерации

Филиал государственного общеобразовательного учреждения

Высшего профессионального образования

Уфимский государственный нефтяной технический университет

Филиал ГОУ ВПО УГНТУ в г.Салавате

Информатика

Построение графика функции

Отчет по лабораторной работе №1

ОНД-220700.62-1.01.01 ЛР

Исполнитель: Ильин.В.В

Студент гр. БАТ-13-21

Руководитель Родионов А.С.

Салават 2013

Задание №1

Создать приложение, вычисляющее значения переменных по заданным расчетным формулам и наборам исходных данных. На экран вывести значения вводимых исходных данных и результаты вычислений, сопровождая ввод и вывод поясняющими комментариями.

a=(2cos(x-3.14/6)/0.5+sqr(siny);

b=1=(sqr z)/3+ (sqr z)/5

x=1.426;

y=-1.22;

z=3.5;

Вид формулы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var x,y,a,b,z,real,

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

begin

x:=1.426;

y:=-1.22;

z:=3.5

a=(2cos(x-3.14/6)/0.5+sqr(siny)

b=1=(sqr z)/3+ (sqr z)/5

end;

end.

Вывод: вычислили значения переменной по заданной расчетной формуле и

набор исходных данных.

Задание №2

Создать приложение для решения задачи.

Вычислить площадь и периметр прямоугольника, если задана длина одной стороны (a) и коэффициент n (%), позволяющий вычислить длину второй стороны (b=n*a).

Вид формулы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Edit4: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,v,s,h,n:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtofloat(Edit1.Text);

h:=strtofloat(Edit2.Text);

s:=0.5*a*h; v:=(s*h);

Edit3.Text:=FloatToStr(s);

Edit4.Text:=FloatToStr(v);

end;

end.

Вывод: вычислили площадь и периметр прямоугольника.

Задание №3

Создать приложение для решения задачи.

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

Вид формулы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,v,s,h,n:=real;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

begin

a:=strtofloat(Edit1.Text);

n:=strtofloat(Edit2.Text);

v:=(s*h);

s:=0.5*a*h;

Edit3.Text:=FloatToStr(s);

Edit4.Text:=FloatToStr(b);

end;

Вывод: вычислили объем призмы.