Главная   Заказать уникальную работу Разработка формата хранения данных программ и решение задач | лабораторная работа


Бесплатные Рефераты, дипломные работы, курсовые работы, доклады - скачать бесплатно Бесплатные Рефераты, дипломные работы, курсовые работы, доклады и т.п - скачать бесплатно.
 Поиск: 


Категории работ:
Рефераты
Дипломные работы
Курсовые работы
Контрольные работы
Доклады
Практические работы
Шпаргалки
Аттестационные работы
Отчеты по практике
Научные работы
Авторефераты
Учебные пособия
Статьи
Книги
Тесты
Лекции
Творческие работы
Презентации
Биографии
Монографии
Методички
Курсы лекций
Лабораторные работы
Задачи
Бизнес Планы
Диссертации
Разработки уроков
Конспекты уроков
Магистерские работы
Конспекты произведений
Анализы учебных пособий
Краткие изложения
Материалы конференций
Сочинения
Эссе
Анализы книг
Топики
Тезисы
Истории болезней
 




Разработка формата хранения данных программ и решение задач - лабораторная работа


Категория: Лабораторные работы
Рубрика: Программирование, компьютеры и кибернетика, ИТ технологии
Размер файла: 9 Kb
Количество загрузок:
152
Количество просмотров:
923
Описание работы: лабораторная работа на тему Разработка формата хранения данных программ и решение задач
Подробнее о работе: Читать или Скачать
ВНИМАНИЕ: Администрация сайта не рекомендует использовать бесплатные Лабораторные работы для сдачи преподавателю, чтобы заказать уникальные Лабораторные работы, перейдите по ссылке Заказать Лабораторные работы недорого
Смотреть
Скачать
Заказать



Цель: изучить возможности работы с файлами в языке Pascal. Получить навыки разработки формата хранения данных на примере решения задач аналитической геометрии. Освоить приемы структурирования программ.

Задание:

Задано множество точек. Найти параметры окружности минимального радиуса проходящей через три точки множества.

Изучить процедуры и функции языка Pascal для работы с файлами прямого и последовательного доступа.

Согласно заданному варианту, разработать формат и структуру файла прямого доступа для хранения входных данных.

Выходные данные вывести на экран и сохранить в текстовом файле.

При написании программы организовать контроль вводимых данных используя функцию IOResult();

Условие задачи с реквизитами исполнителя должны быть представлены на экране при запуске программы.

Структурировать программу с использованием процедур и функций.

Реализовать возможность ввода данных из файла и с клавиатуры.

1. Теоретическая часть:

Файл - именованная область внешней памяти ПК (жесткого диска, гибкой дискеты, электронного «виртуального» диска), либо логическое устройство - потенциальный источник или приемник информации.

Классификация файлов по типу доступа к элементам:

Файлы прямого доступа - это файлы, у которого в любой момент времени, возможно, получить элемент с указанным доступом:

А.Типизированные

F : file of <тип>;

F : file of point <точки>;

Б.Без типа

F : file;

2) Файлы последовательного доступа - это файлы у которых доступ к элементам осуществляется строго последовательно и отсутствует доступ по номеру элемента. (текстовые).

F : text;

В своей лабораторной работе я использовал файлы последовательного доступа. Следовательно, я использовал текстовые файлы, что обуславливает точность хранения данных программы. Для перевода числа в строку используем Function IntToStr, для создания файла используем Procedure CrTFile, для считывания из файла используем Procedure ReDFile.

2. Описание блоков программы

Procedure titlist; Tитульная страница.

Выводит на экран условия задачи с реквизитами исполнителя.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Function IntToStr; Перевод числа в строку.

Эта функция переводит число в строку.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure PROV; Проверка вводимых данных.

В этой процедуре происходит контроль вводимых данных при помощи Val ().

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure Osnova; Расчёты программы

В этой процедуре происходят расчёты основной программы:

Проверка на равность отдельных отрезков исходящих из одной точки.

На существование возможных радиусов. И на существование наименьшего радиуса. Запись в текстовый файл Минимального радиуса.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure Klava; Bвод входных данных с клавиатуры

Ввод входных данных с клавиатуры. Контроль вводимых данных при помощи процедуры Val (). И в дальнейшем выполнение расчётов.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure ReDFile; Cоздание выходного файла

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

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure CrTFile; Cоздание входного файла

Создание файла. Запись в этот файл координат точек.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure Menu; Предоставление пользователю варианта выбора дальнейшего действия программы.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Сама программа.

3. Обоснование выбора средств программной реализации блоков

Procedure titlist; Tитульная страница.

Выводит на экран условия задачи с реквизитами исполнителя.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Function IntToStr(V:integer):string; Перевод числа в строку.

V - число, которое переводим в строку - S..

V - параметрическая переменная.

String - тип возвращ. значения.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure PROV(Prigl:string; var V:integer; nz,vz:integer); Проверка.

Prigl - приглашение, V - возращаемое число,

Nz - нижнее значение, vz - верхнее значение.

V - переменная, которая имеет непосредственную связь с самой программой.

Prigl - параметрическое заначение.

V - параметрическая переменная.

Nz, vz - параметрические заначения.

В этой процедуре происходит контроль вводимых данных при помощи Val ().

Если мы вводим буквы то, это строковые значения и выводится сообщение:

ОШИБКА!!! Некорректные данные.

Если мы вводим кол-во точек больше или меньше нужного выводится сообщение: ОШИБКА!!! Введенное число вне рамок диапазона.

Если мы вводим координаты точек больше большего значения или меньше меньшего то выводиться сообщение: ОШИБКА!!! Число должно быть от Nz до Vz.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure Osnov(var m:integer;d:pnt); Расчёты программы.

M - параметрическая переменная.

D - параметрическое значение.

В этой процедуре происходят расчёты основной программы:

Проверка на равность отдельных отрезков исходящих из одной точки.

На существование возможных радиусов. И на существование наименьшего радиуса. Запись в текстовый файл Минимального радиуса.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure Klava; Bвод входных данных с клавиатуры.

Ввод входных данных с клавиатуры. Контроль вводимых данных при помощи процедуры Val (). И в дальнейшем выполнение расчётов.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure ReDFile; Cоздание выходного файла.

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

Если файл существует производится выполнение расчётов. Если не существует, то появляется сообщение: О Ш И Б К А ! Файл не существует!

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure CrTFile; Cоздание входного файла.

Создание файла. Запись в этот файл координат точек.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Procedure Menu; Выводит на экран меню программы.

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

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Выполнение самой программы.

Сама программа состоит из двух процедур: Titlist, Menu.

//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//

Листинг программы:

PROGRAM L_3;

Uses crt;

Type Point = Record {zapis s koordinatami to4ek}

x : integer; {koordinatu X}

y : integer; {koordinatu Y}

END;

pnt = Array [1..20] Of Point; {koordinati to4ek}

{*************************** ************************************************}

{****************************************************************************}

procedure Titlist;

BEGIN

clrscr;

writeln( Doneckiy gosudarstvennuy institut intelekta);

writeln;

writeln;

gotoxy(40,6);

write(Kafedra programnogo obespecheniy);

gotoxy(40,7);

writeln( intellektualnuh sistem);

gotoxy(19,10);

writeln( Laborotornay rabota #3);

writeln( po kursu:"OP i AY");

writeln( po teme:"Razrabotka formatov hranenij dannih programmi. ");

gotoxy(60,20);

write(Vupolnil:);

gotoxy(60,21);

write();

gotoxy(60,22);

write();

writeln;

writeln;

writeln;

write(Nagmite lubuy klavishu);

readkey;

clrscr;

writeln( Zadanie: Zadono mnogestvo tochek . Nayti parametru);

writeln(minimalnogo radiusa,prohodyshie cherez 3 tochki mnogestva.);

gotoxy(1,25);

write(Nagmite lubuy klavishu...);

readkey;

END;

{****************************************************************************}

{****************************************************************************}

function IntToStr(V:integer):string;

var S:string[11];

BEGIN

Str(V,S);

IntToStr:=S;

END;

{**************************** *********************************************}

procedure PROV(Prigl:string; var V:integer; nz,vz:integer);

{Prigl-priglawenie, V-vozrawaemoe 4islo,

nz-nignee zna4enie,vz-verhnee zna4enie}

Var S,S1:string[11];

Code:integer;

f:boolean;

BEGIN

repeat

write(Prigl);

f:=false;

readln(S);

val(S,V,Code);

if (Code)<>0 then

writeln( OSHIBKA,NEKORECTNIE DANNUE)

else begin

str(V,S1);

if S1 <> S then

writeln( OSHIBKA,VVEDENNOE CHISLO VNE RAMKAH DEAPOZONA)

else

if ((V<nz) or (V>vz)) then begin

writeln( OSHIBKA,CHISLO DOLGNO BUT OT +InttoStr(nz)+ DO +IntToStr(vz));

end

else f:=true;

end;

Until f;

END;

{****************************************************************************}

{****************************************************************************}

procedure Osnov(var m:integer;d:pnt);

Var out_f:text; {M-kolli4estvo to4ek, D-koordinati tochek}

FName:string[20];

i,k,l:integer; {s4et4iki}

ki,kl,lk,li,ik,il:real; {dlinu vektorov}

rad1,rad2,rad3:real; {dlinu radiysov}

min:real; {Min. radiys}

BEGIN

ClrScr;

rad1:=0; rad2:=0; rad3:=0; min:=0;

for i:=1 to (m-2) do

BEGIN

textcolor(Green);

ik:=Sqrt(Sqr(D[i].x-D[k].x)+Sqr(D[i].y-D[k].y));

il:=Sqrt(Sqr(D[i].x-D[l].x)+Sqr(D[i].y-D[l].y));

if (il=ik) then

Begin

rad1:=ik;

writeln ( TOCHKA ,i,- CENTR OKRYGNOSTI)

End

Else

writeln(TOCHKA ,i, NE JAVLJETSJ CENTROM OKRYGNOSTI);

END;

for k:=i+1 to (m-1) do

BEGIN

textcolor(lightgray);

ki:=Sqrt(Sqr(D[i].x-D[k].x)+Sqr(D[i].y-D[k].y));

kl:=Sqrt(Sqr(D[l].x-D[k].x)+Sqr(D[l].y-D[k].y));

if (kl=ki) then

Begin

rad2:=ki;

writeln ( TOCHKA ,k,- CENTR OKRYGNOSTI)

End

Else

writeln(TOCHKA ,k, NE JAVLJETSJ CENTROM OKRYGNOSTI);

END;

for l:=k+1 to m do

BEGIN

textcolor(blue);

lk:=Sqrt(Sqr(D[k].x-D[l].x)+Sqr(D[k].y-D[l].y));

li:=Sqrt(Sqr(D[i].x-D[l].x)+Sqr(D[i].y-D[l].y));

if (lk=li) then

Begin

rad3:=lk;

writeln ( TOCHKA ,l,- CENTR OKRYGNOSTI)

End

Else

writeln(TOCHKA ,l, NE JAVLJETSJ CENTROM OKRYGNOSTI);

END;

writeln (Nagmite lubyu klaviwy...);

readLn;

if rad1>0 then

BEGIN

textcolor(lightred);

min:=rad1;

writeln (Min. radiys= ,min:4:2, ¤«п в®зЄЁ ,i,);

if ((rad2>0) and (rad2<min)) then

Begin

min:=rad2;

writeln (Min. radiys= ,min:4:2, dlj tochki ,k,);

End;

if ((rad3>0) and (rad3<min)) then

Begin

min:=rad3;

writeln (Min.radiys= ,min:4:2, dlj tochki ,l,);

End

ELSE

if rad2>0 then

BEGIN

min:=rad2;

writeln (Min.radiys= ,min:4:2, dlj tochki ,k,);

if ((rad3>0) and (rad3<min)) then

Begin

min:=rad3;

writeln (Min. radiys= ,min:4:2, dlj tochki ,l,);

End

ELSE

if rad3>0 then

BEGIN

min:=rad3;

writeln (Min. radiys= ,min:4:2, dlju tochki ,l,);

END;

if min=0 then

writeln (TOCHKA NE OBRAZUET RADIYS OKRYGNOSTI);

readkey;

End;

End;

TextColor(3);

TextBackground(0);

GoToXY(30,13);

WriteLn(Min. radiys=: , min:4:2);

GoToXY(3,25);

NormVideo;

write(Dlj sohranenij nagmite ctrl+S );

GoToXY(50,25);

write(Dlj prodolgenij nagmite Esc );

if ReadKey=#19 then begin

clrscr;

write(Vvedite imj vihodnogo fajla: );

readLn(FName);

Assign(out_f,FName);

Rewrite(out_f);

WriteLn(out_f,Min. radiys= ,min);

Close(out_f);

writeln(Fajl yspewno sohranen);

readln;

end;

END;

{******************** *******************************************************}

{****************************************************************************}

procedure Klava;

Var

m:integer; {kolli4estvo to4ek}

i:integer; {s4et4ik}

d:pnt; {koordinati to4ek}

BEGIN

clrscr;

PROV(Kolli4estvo to4ek M=,m,3,20);

for i:=1 to M do begin

writeLn(Vvedite koordinati , i, -j to4ki:);

PROV(.X = , D[i].X,-99,99);

PROV(.Y = , D[i].Y,-99,99);

end;

Osnova(m,d);

END;

{*********************** ****************************************************}

{****************************************************************************}

procedure ReDFile;

var in_f:file;

FName:string[20];

f:word;

m:integer; {kolli4estvo to4ek}

i:integer; {s4et4ik}

d:pnt; {koordinati to4ek}

BEGIN

clrscr;

f:=0;

write(Vedite imj fajla: );

readLn(FName);

Assign(in_f,FName);

{$I-}

Reset(in_f,2);

{$I+}

if IOResult=0 then

begin

blockread(in_f, m,1);

for i:=1 to m do begin

blockread(in_f, D[i].X,1);

blockread(in_f, D[i].Y,1);

end;

Close(in_f);

if f=0 then

Osnova(m,d);

end

else

begin

writeln(OSHIBKA,FAJL NE SYWESTVYET);

readln;

end;

END;

{*********************** ****************************************************}

{****************************************************************************}

procedure CrTFile;

var in_f: file;

FName:string[20];

m:integer; {kolli4estvo to4ek}

i:integer; {s4et4ik}

D:pnt; {koordinati to4ek}

BEGIN

clrscr;

write(Vvedite imj fajla: );

readLn(FName);

Assign(in_f,FName);

begin

clrscr;

Rewrite(in_f,2);

PROV(Vvedite kolli4estvo to4ek:,m,3,20);

BlockWrite(in_f,m,1);

for i:=1 to m do begin

writeLn(Vvedite koordinati , i, -j to4ki:);

PROV(.X = , D[i].X,-99,99);

BlockWrite(in_f, D[i].X,1);

PROV(.Y = , D[i].Y,-99,99);

BlockWrite(in_f, D[i].Y,1);

end;

ClrScr;

Close(in_f);

clrscr;

writeln(Fajl yspewno sozdan);

readln;

end;

END;

{****************************************************************************}

{****************************************************************************}

procedure Menu;

var

ch:char;

BEGIN

repeat

clrscr;

writeLn(4to vi hotite sdelat:);

writeLn(1: dlj voda vhodnih dannih s klaviatyru..);

writeLn(2: dlj s4ituvanij vhodnih dannih iz fajla..);

writeLn(3: dlj sozdanij vhodnogo fajla..);

writeLn(#10#13);

writeLn(0: dlj vihoda..);

repeat

ch:=ReadKey;

Until (ch=1) or (ch=2) or (ch=3) or (ch=0);

case ch of

1: Klava;

2: ReDFile;

3: CrTFile;

end;

Until ch=0;

END;

{****************************************************************************}

{****************************************************************************}

BEGIN

Titlist;

Menu;

END.

5. Тестовые примеры

Входной файл:

Координаты 1-ой точки:

.X = 4

.Y = 6

Координаты 2-ой точки:

.X = 9

.Y = 0

Координаты 3-ей точки:

.X = 32

.Y = 6

Выходной файл:

Мин. радиус =: 7.21

Входной файл:

Координаты 1-ой точки:

.X = 10

.Y = 9

Координаты 2-ой точки:

.X = -34

.Y = -2

Координаты 3-ей точки:

.X = 3

.Y = 56

Координаты 4-ой точки:

.X = 1

.Y = 0

Выходной файл:

Мин. радиус =: 34.06














 
Показывать только:
Портфель:
Выбранных работ  


Рубрики по алфавиту:
АБВГДЕЖЗ
ИЙКЛМНОП
РСТУФХЦЧ
ШЩЪЫЬЭЮЯ

 

 

Ключевые слова страницы: Разработка формата хранения данных программ и решение задач | лабораторная работа

СтудентБанк.ру © 2021 - Банк рефератов, база студенческих работ, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам, а также отчеты по практике и многое другое - бесплатно.