Программирование линейных алгоритмов на языке Delphi
Учреждение образования
Гомельский государственный технический университет имени П.О. Сухого
Кафедра «Информатика»
Лабораторная работа № 4
по курсу: Информатика
Программирование линейных алгоритмов на языке Delphi.
Выполнила студентка Мельникова Ирина
Принял преподаватель: Емельяненко Н.С
Цель работы: Получить навыки разработки линейных алгоритмов и их реализации в среде Delphi. Научиться составлять тесты для проверки программы
Условие задачи 1: Путь, пройденный за время t со скоростью v. S = vt
Таблица свойств компонентов
Элемент интерфейсаКомпонентСвойствоЗначение свойстваЗаголовок окнаForm1CaptionВычисление путиСкоростьLabel1CaptionСкоростьВремяLabel2CaptionВремяПоле ввода vEdit1TextПоле ввода tEdit2TextКнопка вычислитьButton1CaptionВычислитьПутьLabel3CaptionS=Поле вывода путиEdit3Text
Таблица используемых событий
КомпонентСобытиеИмя процедуры обработки событияРеализуемый алгоритмButton1OnClickTform1.Button1ClickРасчет пути
Таблица используемых переменных
Имя переменной в задачеИмя переменной в программеТип переменнойКомментарийv,tt,vExtendedСкорость и время-sExtendedПуть, результат
Тест
Исходные данные: v=3 t=5
Ожидаемый результат : s=v*t= 3*5=15
линейный алгоритм интерфейс графический
Графическая схема алгоритма
Распечатка результатов (окно формы в режиме выполнения)
Распечатка текста модуля
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TButton;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;
{$R *.dfm}TForm1.Button1Click(Sender: TObject);S,t,v: Extended;:=StrToFloat(Edit1.Text);:=StrToFloat(Edit2.Text);:=v*t;.Text:=FloatToStr(S);
end;.
Условие задачи 2: .
Таблица свойств компонентов
Элемент интерфейсаКомпонентСвойствоЗначение свойстваЗаголовок окнаForm1CaptionВычисление функцииxLabel1CaptionxyLabel2CaptionyzLabel3CaptionzПоле ввода xEdit1TextПоле ввода yEdit2TextПоле ввода zEdit3TextКнопка вычислитьButton1CaptionВычислитьbLabel4Captionb=Поле вывода bEdit4TextРисунокTImageTJPEGImageТаблица используемых событий
КомпонентСобытиеИмя процедуры обработки событияРеализуемый алгоритмButton1OnClickTform1.Button1ClickРасчет b
Таблица используемых переменных
Имя переменной в задачеИмя переменной в программеТип переменнойКомментарийx,y,zx,y,zrealx,y,z-brealb, результат
Тест
Исходные данные: x=4 y=5 z=2
Ожидаемый результат : = -1,62653326565218
Графическая схема алгоритма
Распечатка текста модуля:
Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;= class(TForm): TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TLabel;: TEdit;: TButton;: TImage;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;
{$R *.dfm}TForm1.Button1Click(Sender: TObject);x,y,z,b:real;:=StrToFloat(Edit1.Text);:=StrToFloat(Edit2.Text);:=StrToFloat(Edit3.Text);:=sqr(cos(z))+(sin(2*x)/cos(2*x))+abs(y);.Text:=FloatToStr(b);;
end.
Вывод
Я получила навыки разработки линейных алгоритмов и их реализации в среде Delphi и научилась составлять тесты для проверки программы.
Больше работ по теме:
Практическое задание
Языки программирования высокого уровня (Ассемблер)
Практическое задание
Разработка программы записи информации на гибкий диск
Практическое задание
Разработка резидентной программы для сохранения в файле копии текстового экрана дисплея
Практическое задание
Реалізація лінійної структури програми мовою С++
Практическое задание
Предмет: Информационное обеспечение, программирование
Тип работы: Практическое задание
Новости образования
22 Июля 2016 16:26
Более 70 представителей крупных вузов АСЕАН подтвердили участие в форуме во Владивостоке
22 Июля 2016 12:51
Абызов: публикация первичных статсведений снизит бюрократическую нагрузку на школы
22 Июля 2016 11:53
В Чечне свыше 200 школьников сдали ЕГЭ с результатом свыше 90 баллов - министр
22 Июля 2016 05:36
Замглавы Минобрнауки РФ: задача сократить число людей с высшим образованием не стоит
21 Июля 2016 20:19
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ