Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Лабораторная работа: Разработка форматов хранения программ. Структурирование

Название: Разработка форматов хранения программ. Структурирование
Раздел: Рефераты по информатике, программированию
Тип: лабораторная работа Добавлен 03:44:52 18 февраля 2009 Похожие работы
Просмотров: 37 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Министерство Образования и Науки Украины

Государственный Университет Информатики

и Искусственного Интелекта

Кафедра программного обеспечения интеллектуальных систем

Лабораторная работа №2

по дисциплине: Основы алгоритмизации и программирования

на тему: «Разработка форматов хранение программ. Структурирование.»

Выполнил студент

группы ПО-07д

Канатников Дмитрий

Проверил

2007год


План

1. Титульный лист

2. План

3. Задание

4. Описание блоков

5. Описание подпрограмм

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

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


Пункт №3 Задание.

Задание: Лабораторной работы №2 по дисциплине: основы алгоритмизации и программирования.

Вариант №5

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

Пункт №4 Описание блоков.

Данная задача может быть разделена на 3 основных блока, а второй в свою очередь еще на 3 подблока.

1 – Ввод данных.

Основная цель этого блока ввод данных для работы программы. Дополнительная цель вывод информации. В этом блоке есть два условие проверки вводимых данных. Первое условие проверки на количество точек. Второе на правильность ввода координат точек.

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

2 – Основная часть программы.

Цель данного блока это ответ на основной вопрос программы. Блок как выше было сказано, делится еще на 3 подблока.

2.1 – Проверка на наличие точек в каждом квадранте. Возможно, что в каком-то или каких-то четвертях нет точек вследствие программа выдает результат не наличия точек во всех квадрантах.

2.2 – В этом подблоке программы мы используем четыре переменных в которых будет храниться номер ячейки массива в которой находится наиболее удаленная точка от начала координат после поиска в каждой четверти соответственно переменные max1, max2, max3, max4.

2.3 – Это часть блока проверяет принадлежность четырех угольнику построенному по точкам наиболее удаленным от начала координат уникальных свойств параллелограмма (стороны попарно равны и параллельны) положительный или отрицательный результат присваивается функции otvet (логического типа).

3 – Вывод данных.

В этом блоке завершающий этап программы выводятся точки выбранные в подблоке 2.2 и ответ на основной вопрос программы он же зависит от функции otvet, если функция имеет значение ИСТИНА то ответ положительный и если ЛОЖЬ то отрицательный. По окончание этого блока предлагается повторно использовать программу.

На этом программа завершает свою работу.

Пункт №5 Описание подпрограмм.

В этом пункте мы рассмотри все используемые процедуры и функции в программе их действия

Созданные подпрограммы:

Процедура max_kvan это процедура использующая аргумент А файл типа tochka (новый тип данных типа запись) каждый элемент файла имеет два поля Х и У вещественого типа. Процедура находит растояние от начала координат до заданной точки паралельно деля точки по квадрантам в конце программы аргументам b, c, d, e присваивается номер ячейки файла по которому потом можно обратится к файлу за координатами точки. В процедуре используется ключевое слово var перед аргументами процедуры что позволяет изменять эти аргумент в ходе процедуры.

Процедура vivod выводит точки максимально удаленные от начала координат и ответ на вопрос задачи (для этого используется функция otvet которая будет описана ниже).

Функция kvan_zapoln делает проверку на наличие точек в каждом квадранте аргументы файл с координатами точек. Функция логического типа соответственно сама функция показывает на наличие или отсутствия точек в квадрантах.

Функция otvet функция логического типа проверяет условие существования четырехугольника построенного по выбранным из множества точкам как параллелограмма. Аргументы это координаты точек.

Пункт № 6 Листинг программы.

program Laba_var_5 ;

type

tochka = record

x,y: real;

end;

var

s:array [1..100] of tochka;

g,n:integer;

t:tochka;

istin:boolean;

r:string;

io:real;

i,max1,max2,max3,max4:integer;

procedure max_kvan(var b,c,d,e:integer; j,q:integer;var a:array of tochka);

begin

b:=0;

d:=0;

c:=0;

e:=0;

for j:=1 to q do

begin

if (a[j].x>0) and (a[j].y>0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>b then

b:=j;

if (a[j].x<0) and (a[j].y>0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>c then

c:=j;

if (a[j].x<0) and(a[j].y<0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>d then

d:=j;

if (a[j].x>0) and (a[j].y<0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>e then

e:=j;

end;

end;

function otvet(bx,by,cx,cy,dx,dy,ex,ey:real):boolean;

begin

if (bx-cx=ex-dx) and (cy-dy=by-ey)

and (by-cy=ey-dy) and (cx-dx=bx-ex) then

otvet:=true

else

otvet:=false;

end;

function kvan_zapol (a:array of tochka):boolean;

var k1,k2,k3,k4:integer;

begin

k1:=0; k2:=0;

k3:=0; k4:=0;

for i:=1 to n do

begin

if (a[i].x>0) and (a[i].y>0) then

k1:=K1+1;

if (a[i].x<0) and (a[i].y>0) then

k2:=K2+1;

if (a[i].x<0) and (a[i].y<0) then

k3:=K3+1;

if (a[i].x>0) and (a[i].y<0) then

k4:=K4+1;

end;

if (k1>0)and(k2>0)and(k3>0)and(k3>0)then

kvan_zapol:=true

else

kvan_zapol:=false;

end;

procedure vivod (bx,by,cx,cy,dx,dy,ex,ey:real;a:array of tochka);

begin

writeln('Координаты точки 1 четверти[',bx:5:2,':',by:5:2,']');

writeln('Координаты точки 2 четверти[',cx:5:2,':',cy:5:2,']');

writeln('Координаты точки 3 четверти[',dx:5:2,':',dy:5:2,']');

writeln('Координаты точки 4 четверти[',ex:5:2,':',ey:5:2,']');

writeln('Паралеллограм состоящий из этих точек');

if otvet(a[max1].x,a[max1].y,a[max2].x,a[max2].y,

a[max4].x,a[max4].y,a[max4].x,a[max4].y) then

writeln('действительный')

else

writeln('Недействительный');

end;

procedure info ;

begin

writeln('Здравствуйте вы используете программ для решения следующей задачи:');

writeln('На плоскости задано множество точек.');

writeln('Из каждого квадранта взята точка, максимально');

writeln('удаленная от начала координат. Проверить,');

writeln('будет ли параллелограммом четырехугольник');

writeln('построенный по выбранным из множества точкам.');

end;

procedure kol_toch (var rio:real; var q:integer);

begin

{$i-}

repeat

writeln('Введите количество точек.');

readln(q);

rio:=ioresult;

if rio <> 0 then

begin

writeln('Ошибка ввода.После нажатия ENTER попробуйте еше раз.');

readln;

end

else

if q<4 then

writeln('Не достаточно точек. Введите значение заново.');

until (rio = 0) and (q>3) ;

{$i-}

end;

procedure vvod_toch (q:integer; var rio:real; var a: array of tochka);

begin

{$i-}

repeat

for i:=1 to q do

begin

writeln('введите x[',i,']');

readln(a[i].x);

writeln('введите y[',i,']');

readln(a[i].y);

end;

rio:=ioresult;

if rio<>0 then

begin

writeln('Ошибка ввода. После нажатия ENTER попробуйте еше раз сначала.');

readln;

end

until rio = 0;

{$i+}

end;

procedure povtor(var f:integer; rio:real);

begin

{$i-}

repeat

writeln('1-Да');

writeln('0-Нет');

readln(f);

rio:=ioresult;

if (rio<>0)or(f<>0)and(f<>1) then

writeln('Ошибка ввода. Попробуйте еще раз.');

until (rio=0)and(f=0)or(rio=0)and(f=1);

{$i+}

end;

begin

repeat

info;

kol_toch(io,n);

vvod_toch(n,io,s);

kvan_zapol(s);

if kvan_zapol(s) then

begin

max_kvan(max1,max2,max3,max4,i,n,s);

vivod(s[max1].x,s[max1].y,s[max2].x,s[max2].y,

s[max4].x,s[max4].y,s[max4].x,s[max4].y,s);

end

else

begin

writeln('Точки не во всех квадрантах. Воспользоваться программой еще раз');

end;

povtor(g,io);

until g=0 ;

readln;

end.


Пункт № 7 Текстовые примеры программ.

Первый вариант работы программы.

Вариант второй.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений06:40:06 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
19:47:45 28 ноября 2015

Работы, похожие на Лабораторная работа: Разработка форматов хранения программ. Структурирование

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(151067)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru