Контрольная работа по "Информатике"

Автор работы: Пользователь скрыл имя, 11 Июня 2013 в 11:14, контрольная работа

Краткое описание

Работа содержит задания по дисциплине "Информатика"

Прикрепленные файлы: 1 файл

Информатика.doc

— 484.50 Кб (Скачать документ)

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

Вятский государственный  университет

Кафедра «Информационные  технологии в машиностроении»

 

 

 

 

 

Контрольная работа №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/b))/((x-a)*(x-b));

   z:=(a*y+b*x)/((a-b)*LogN(c,abs(2*x-a)));

   y:=RoundTo(y, -10);

   z:=RoundTo(z, -10);

   Label5.Caption:='значение y(x)= '+floattostr(y);

   Label6.Caption:='значение z(x)= '+floattostr(z);

end;

end.

 

Результаты  работы и просчет

 

Рис. 4. Результаты

 

 

 

 

 

 

 

 

Контрольный просчет  показывает положительные результаты работы программы.

 

Рис. 5. Графики  функций

 

Вывод

 

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

 

 

 

 

 

 

 

 

 

 

Библиографический список

 

  1. Бобровский С.И. Delphi 7: учеб. курс – СПб.: Изд-во Питер, 2005. – 736 с.
  2. Архангельский А.Я. Приемы программирования в Delphi – М.: Изд-во Бином-Пресс, 2006. – 944 с.
  3. Керман М.К. Программирование и отладка в Delphi: учеб.  курс : пер. с англ.– М. : Вильямс, 2004. – 720 с.
  4. Бескоровайный И.В. Азбука Delphi: программирование с нуля – Сибирское универс. изд-во, 2008. – 112 с.
  5. Желонкин А.А. Основы программирования в интегрированной среде Delphi – СПб.: Бином. Лаборатория знаний, 2004. – 236 с.
  6. Фленов М. Библия Delphi 7 – Минск: Изд-во BHV, 2007. – 800 с.

Информация о работе Контрольная работа по "Информатике"