Программирование - готовые работы

файл формата pdf

ТЕМА 2. ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ
Цель лабораторной работы: научиться пользоваться простейшими компонентами организации переключений (TСheckBox, TRadioGroup). Написать и отладить программу разветвляющегося алгоритма.
2.1. Операторы if и case языка Паскаль
Для программирования разветвляющихся алгоритмов в языке Pascal используются специальные переменные типа boolean, которые могут принимать только два значения - true и false (да, нет), а также операторы if и case. Оператор if проверяет результат логического выражения, или значение переменной типа boolean, и организует разветвление вычислений.
Например, если bl: boolean, x,y,u:integer, то фрагмент программы с оператором if может быть таким:
bl:=x>y;
if bl then u:=x-y;
else u:=x-y;
Оператор выбора case организует разветвления в зависимости от значения некоторой переменной перечисляемого типа.
Например, если In: integer, то после выполнения
case in of
0: u:=x+y;
1: u:=x-y;
2: u:=x•y;
else u=0;
end;
В соответствии со значением in вычисляется u. Если in=0, то u=x+y, если in=1, то u=x-y, если in=2, то u=x*y и, наконец, u=0 при любых значениях in отличных от 0, 1 или 2.

Пример работы с файлами
Следующая программа формирует целочисленный бинарный файл, дозаписывает в его окончание новые данные и выводит сохраненные данные на печать:
#include
#include
void main(void)
{
int a=1, b=20, c, d;
FILE *in, *out, *add;
clrscr();
/* ........ ЗАПИСЬ ЧИСЕЛ В ФАЙЛ ......*/
in=fopen("lr8.dat","wb");
fprintf(in,"%d %d n",a,b);
fclose(in);
puts("ЧИСЛА a, b ЗАПИСАНЫ В ФАЙЛ");
puts("Press any key...");
getch();
/* ......... ЧТЕНИЕ ЧИСЕЛ ИЗ ФАЙЛА ........*/
out=fopen("lr8.dat","rb");
fscanf(out,"%d%d", &c, &d);
printf("n a=%d b=%d ", c, d);
fclose(out);
puts("n ЧИСЛА ПРОЧИТАНЫ ИЗ ФАЙЛА");
puts("Press any key...");
getch();
/* ......... ДОПОЛНЕНИЕ ФАЙЛА ..........*/
add=fopen("lr8.dat","a");

Результатом работы созданной программы являются графы, их составные части: остовные деревья, последовательности вершин обхода, а также матрица смежности.
Реализованы следующие способы представления графов на экране, в текстовом и графическом режимах:
•табличное звездное задание графа в виде матрицы смежности из целых чисел – весов ребер – и нулей;
•графическое представление в виде кружочков и линий с систематическим расположением вершин по кругу и постоянной формой ребер.
В первой главе работы приводятся основные теоретические положения, касающиеся программной реализации графовых алгоритмов.
Разработаны алгоритмы и программа в среде Delphi 6.0 поиска в ширину, в глубину и смешанного поиска по графу с применением целевой функции. Последнее значение целевой функции представляет собой суммарный вес остовного дерева графа, полученного при смешанном поиске.
Описание разработанной программы и руководство пользователя приведены во второй главе работы.

2.1. Требования к работе программы
Требуется создать прикладную программу, реализующую алгоритм поиска в графе вершин, имеющих наибольшее окружение.
Пусть дан граф и число k максимального количества ярусов. Требуется найти вершины в графе, у которых в первых k ярусах находится наибольшее количество вершин.
Созданная программа должна выполнять следующие действия:
•Генерирование случайного графа с заданным числом вершин;
•Графическое отображение графа и его матрицы смежности;
•Вычисление последовательно степени матрицы смежности A2, А3, …, Ak и соответствующие им матрицы ограниченных достижимостей R2, R3, …, Rk., где k – максимальное количество ярусов, задаваемое пользователем.
•Вывод матрицы ограниченных достижимостей k – го шага.
•Поиск вершин, имеющих наибольшее окружение, и отображение найденного результата графически и перечислением вершин.

2.1. Требования к работе программы
Требуется создать прикладную программу, реализующую алгоритм для проверки вы-полнения свойства транзитивности отношений, заданных в ориентированных графах.
Пусть дан граф, представляющий некоторое бинарное отношение. Требуется прове-рить, выполняется ли свойство транзитивности для заданного отношения.
Созданная программа должна выполнять следующие действия:
•Генерирование случайного графа с заданным числом вершин;
•Графическое отображение графа и его матрицы смежности;
•Проверка выполнения свойства транзитивности для отношений, заданных в орг-рафе.

program delenie;
var a,b:integer;
d:real;
begin
writeln('vvedite celoe chislo a (a

var D_vnesh, d_vnutr, S: real;
begin
D_vnesh:=StrToFloat(Edit1.Text);
d_vnutr:=StrToFloat(Edit2.Text);
if D_vnesh

1. Заголовок:
procedure TForm1.Action1Execute(Sender: TObject);
Описание:
обработчик события OnExecute действия Action1 компонента ActionList1. Вызывается при нажатии на Button2 (Выход) и при выборе пункта N2 (Выход) главного меню (компонент MainMenu1). Выводит сообщение: «Приходите еще...», - и выполняет закрытие окна программы.
Листинг:
procedure TForm1.Action1Execute(Sender: TObject);
begin
ShowMessage('Приходите еще...');
Close;
end;

Дата состоит из трех компонентов – числа, месяца и года. В записи они могут быть разделены различными символами; год может быть записан в полной или сокращенной форме. Так, для человека являются понятными записи 01.01.2000, 02/05/2007, 17-12-1999. Кроме того, существует две формы записи даты: европейская (число-месяц-год) и американская (месяц-число-год). Чтобы не заставлять пользователя выбирать форму записи, ввод каждого компонента производится в отдельное поле.