инфа л.р 4 / отчет по л.р 4 готовый!!!!!!!!!!!!
.docМИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ
УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ
«ГОМЕЛЬСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ
УНИВЕРСИТЕТ ИМЕНИ П. О. СУХОГО»
Механико-технологический факультет
Кафедра «Информатика»
ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ № 4
по дисциплине «Информатика»
на тему:
«Программирование линейных алгоритмов»
Выполнил: студент гр. С-11
С.В. Козырь
Принял: преподаватель
В.О. Лукьяненко
Дата сдачи отчета: _____________________
Дата допуска к защите: _____________________
Дата защиты: _____________________
Гомель 2012
Цель работы: получить навыки составления схем линейных алгоритмов, научиться составлять программы по разработанным алгоритмам и готовить тесты для отладки этих программ.
-
Задание №1
Разработать интерфейс проекта, составить графическую схему алгоритма и программу для вычисления значений переменных в соответствии с условием в таблице 1. Для ввода исходных данных, вывода исходных данных и результатов использовать только одну форму. Исходные данные для отладки программы выбрать самостоятельно.
Вариант 10
Вычислить |
Расчетные формулы |
Объем V и площадь поверхности куба S со стороной а |
V=a3, S=6a2 |
Форма программы
Таблица используемых компонентов и их свойств
Элемент интерфейса |
Визуальный компонент |
Свойство компонента |
Значение свойства |
Заголовок окна |
Form1 |
Caption |
Объем V и площадь поверхности куба S |
Введите значение (a): |
Label1 |
Caption |
Введите сторону куба |
Поле ввода a |
Edit1 |
Text |
|
Кнопка Вычислить |
Button1 |
Caption |
Вычислить |
V куба |
Label2 |
Caption |
V куба = |
S куба равна |
Label3 |
Caption |
S куба = |
Продолжение таблицы используемых компонентов и их свойств |
|||
Поле вычисления V |
Edit2 |
Text |
|
Поле вычисления S |
Edit3 |
Text |
|
Таблица используемых событий
Визуальный компонент |
Событие |
Имя процедуры обработки событий |
Реализуемый алгоритм |
Button1 |
onClick |
TForm1.Button1.Click |
Расчет объема (V) и площадь поверхности куба (S) со стороной а |
Таблица используемых переменных
Имя переменной задачи |
Имя переменной в программе |
Тип переменной |
Название |
а |
а |
real |
Сторона поверхности куба |
S |
S |
real |
Площадь Куба |
V |
V |
real |
Объем Куба |
Схема алгоритма
Текст модуля
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,V,S: real;
begin
a:=StrToFloat(Edit1.Text);
V:=a*a*a;
S:=6*(a*a);
Edit2.Text:=FloatToStr(V);
Edit3.Text:=FloatToStr(S);
end;
end.
Тесты
-
если a=4, тогда V= 64 , S=96
-
если a=6, тогда V=216, S=216
-
если a=9, тогда V=729, S=486
Задание 2. Разработать интерфейс проекта, составить графическую схему алгоритма и программу для вычисления функции b=f(x,y,z), заданной в таблице 2. Для ввода исходных данных, вывода исходных данных и результата использовать только одну форму. Исходные данные для отладки программы выбрать самостоятельно.
Вариант 10
Вариант |
Вид функции |
10 |
Форма программы
Таблица используемых компонентов и их свойств
Элемент интерфейса |
Визуальный компонент |
Свойство компонента |
Значение свойства |
Заголовок окна |
Form1 |
Caption |
|
Введите число x |
Label1 |
Caption |
Введите x |
Поле ввода числа x |
Edit1 |
Text |
|
Введите число y |
Label2 |
Caption |
Введите y |
Поле ввода y |
Edit2 |
Text |
|
Введите число z |
Label3 |
Caption |
Введите z |
Поле ввода числа z |
Edit3 |
Text |
|
Кнопка Значение функции |
Button1 |
Caption |
Значение функции |
Значение функции b= |
Label4 |
Caption |
b = |
Поле вычисления b |
Edit4 |
Text |
|
Таблица используемых событий
Визуальный компонент |
Событие |
Имя процедуры обработки событий |
Реализуемый алгоритм |
Button1 |
onClick |
TForm1.Button1.Click |
Расчет значения функции |
Таблица используемых переменных
Имя переменной задачи |
Имя переменной в программе |
Тип переменной |
Название |
x |
x |
real |
Значение х |
y |
y |
real |
Значение y |
z |
z |
real |
Значение z |
b |
b |
real |
Значение функции b |
Графическая схема алгоритма
Текст модуля
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,b:real;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
b:=exp(abs(x-y))*exp(x*ln(sqr(sin(z)/cos(z))+1));
Edit4.Text:=floatTOStr(b);
end;
end.
Тесты
-
если x=2, y=3, z=2, тогда b= 90,64
-
если х=1, y=1, z =2, тогда b= 5,77
ВЫВОД: Я получил навыки составления схем линейных алгоритмов, научился составлять программы по разработанным алгоритмам и готовить тесты для отладки этих программ.