Автор работы: Пользователь скрыл имя, 11 Июня 2013 в 11:14, контрольная работа
Работа содержит задания по дисциплине "Информатика"
Министерство образования и науки Российской Федерации
Вятский государственный университет
Кафедра «Информационные технологии в машиностроении»
Контрольная работа №1
По дисциплине «Информатика»
Вариант №____
Выполнил: студент з/о группы _______
__________________
Проверил: к.т.н., доцент Фарукшин В.В.
Киров 2012
Оглавление
Задание контрольной работы
Составить приложение для вычисления значений функций y и z для заданных пользователем переменной x и коэффициентов a, b и c, соответствующих варианту (16 вариант, рисунок 1)
Рис. 1. Вариант задания
Блок-схема
Рис. 2. Блок схема
Экранная форма приложения
Рис. 3. Экранная форма приложения
Исходный код программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, math;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Button1: TButton;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,c,x,y,b,z : Real;
begin
x:=StrToFloat(Edit1.Text);
a:=-23; b:=2.4; c:=9;
y:=(exp(sqrt(abs(x/a)))-tan(x/
z:=(a*y+b*x)/((a-b)*LogN(c,
y:=RoundTo(y, -10);
z:=RoundTo(z, -10);
Label5.Caption:='значение y(x)= '+floattostr(y);
Label6.Caption:='значение z(x)= '+floattostr(z);
end;
end.
Результаты работы и просчет
Рис. 4. Результаты
Контрольный просчет показывает положительные результаты работы программы.
Рис. 5. Графики функций
Вывод
Проделанной работой мною были приобретены основные навыки разработки алгоритмов, произведено знакомство с принципами составления программ на основе созданного алгоритма, приобретен небольшой опыт в разработке приложений, получающих параметры в интерактивном графическом режиме.
Библиографический список