по дисциплине «Основы программирования»

 

 

Выполнил: ст-т гр.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 если все верно тогда симметрично а если нет то не симметрично.И ответ выводиться на экране.

	Рисунок 1 – Схема программы

Приведи алгоритм в соответствие программе

Текст программы приведен в приложении А.

 

На форме расположены следующие объекты

 

В свойстве Tlable этих объектов помещены пояснения для пользователя программы:

Label1.Caption — видите слово.

-1 поля редактирования Edit1 — для ввода данных

-Кнопка Button1- для создания вычисления.В свойстве Caption этого объекта помещено пояснение для пользователя программы: Button1.Caption - проверить симетричность.

Обработчик TForm1.Button1Click обрабатывает щелчок по кнопке «проверить симметричность».

 

4.Программа и методика испытаний.

 

Для проверки правильности работы программы необходимо запустить ее на выполнение и любые ввести исходные данные. Полученный результат нужно подставить в формулу x³-x²+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.

 

 

 

 

РЕЗУЛЬТАТЫИСПЫТАНИЙ

Приложение Б

(обязательное)