Выполнил: ст-т гр.18КП2
Мухин Д. Е.
Проверил:доцент каф. ИВС
Хохлов А.Е
1.Формулировка задачи
Проверить симметричность заданной строки.
2.Техническое задание
2.1.Требование к программе
Программа должна проверить симметричность заданной строки.
2.2.Порядок контроля и приёмки
Для контроля правильности работы программы должен быть взят результат работы программы и проведена визуальная проверка.
3.Описание программы
3.1.Общие сведения
Программа разработана в среде Lazarus, её текст приведен в приложении
А.
3.2.Функциональное назначение
Программа предназначена для проверки симметричности строки
3.3.Описание логической структуры
Схема программы представлена на рисунке 1
Решение задачи начинается с ввода исходных данных s,i. Затем происходит цикл i:=1 to length(s) div 2 где длина s делиться ½.Затем происходит проверка(s[i]<>s[length(s)-i+1]) в которой если условия выполняется тогда симметрично а если нет то тогда flagechechek:=false;.Затем происходит проверка условия flagechechek=false если все верно тогда симметрично а если нет то не симметрично.И ответ выводиться на экране.
|
Приведи алгоритм в соответствие программе
Текст программы приведен в приложении А.
На форме расположены следующие объекты
В свойстве Tlable этих объектов помещены пояснения для пользователя программы:
Label1.Caption — видите слово.
-1 поля редактирования Edit1 — для ввода данных
-Кнопка Button1- для создания вычисления.В свойстве Caption этого объекта помещено пояснение для пользователя программы: Button1.Caption - проверить симетричность.
Обработчик TForm1.Button1Click обрабатывает щелчок по кнопке «проверить симметричность».
4.Программа и методика испытаний.
Для проверки правильности работы программы необходимо запустить ее на выполнение и любые ввести исходные данные. Полученный результат нужно подставить в формулу x3-x2+x+π =0 и получить значение приближенное к 0.
При работе программы с тестовыми данными получены результаты, приведенные в приложении Б на рисунках Б.1. Подставим полученные данные: казак, строка не симметрична, откуда следует, что программа работает верно.
5.Описание применения
После запуска программы на выполнение на экране появляется «Левая Пользователь должен заполнить поля «ведите слово» и нажать левой кнопкой мыши на кнопку «проверить симетричность». На форме появляется результат работы программы.
Вывод
В ходе выполнения лабораторной работы было сформулировано и утверждено техническое задание на разработку программы, вычисляющей, симметрично строки, разработан алгоритм решения задачи, составлена и отлажена программа, оформлена документация на программу. Проведенные испытания показали, что программа работает правильно.
Текст Программы
Приложение А
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
flagechechek:boolean;
i:integer;
begin
S:=(edit1.text);
flagechechek:=true;
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)-i+1] then flagechechek:=false;
if flagechechek=false then showmessage('Не симетрично')
else showmessage('Симетрично');
end;
end.
РЕЗУЛЬТАТЫИСПЫТАНИЙ
Приложение Б
(обязательное)