Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

PROGRAM PRG13_2;





TYPE NN=RECORD

NAME:STRING;

HIGH:INTEGER;

END;

TYPE FN= FILE OF NN;

VAR F1: FN;

N:NN;

PROCEDURE F_IN(VAR F:FN);

{Ввод файла данных}

VAR I:INTEGER;

BEGIN

FOR I:=1 TO 4 DO

BEGIN

READLN(N.NAME,N.HIGH);

WRITE(F,N);

END;

END;

PROCEDURE F_OUT(VAR F: FN);

{Вывод файла данных и определение требуемых параметров}

VAR I, MIN,MAX:INTEGER;

F_MIN,F_MAX:STRING;

BEGIN

МАХ:=0;

MIN:=300;

FOR l:=1 TO 4 DO

BEGIN

READ(F,N);

IF N.HIGH<MIN THEN

BEGIN

MIN:=N.HIGH;

F_MIN:=N.NAME;

END;

IF N.HIGH>MAX THEN

BEGIN

MAX:=N.HIGH;

F_MAX:=N.NAME;

END;

WRITELN(N.NAME,' '.N.HIGH);

END;

WRITELN('CAMЫЙ ВЫСОКИЙ УЧЕНИК');

WRITELN(F_MAX,' ':4,MAX);

WRITELN('CAMЫЙ НИЗКИЙ УЧЕНИК');

WRITELN(F_MIN, ' ':4,MIN);

END;

BEGIN

ASSIGN(F1,'C:\R1.TXT');

WRITELN('BBОДИTE ИНФОРМАЦИЮ В ФАЙЛ');

REWRITE(FI);

F_IN(F1);

WRITELN(' ФАЙЛ 1');

RESET(FI);

F_OUT(F1);

CLOSE(F1);

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- создаем описание процедуры F_IN(VAR F:FN) для ввода за­писей в файл F;

- создаем описание процедуры F_OUT(VAR F: FN) для вывода записей из файла и определения фамилии и роста самого ма­ленького ученика и самого высокого ученика в данной учеб­ной группе;

- в основной программе привяжем файл rl.TXT к файловой переменной F1 и откроем его на запись;

- вызываем функцию F_IN для ввода записей в файл;

- открываем F1 на чтение и вызываем F_OUT, которая выво­дит результаты на экран;

- закрываем файл.

Переменные:

в функции F_IN:

I - вспомогательная переменная;

в функции F_OUT:

I - вспомогательная переменная;

MIN - рост самого маленького ученика;

МАХ - рост самого высокого ученика;

F_MIN - фамилия самого маленького ученика;

F_MAX- фамилия самого высокого ученика.

в основной программе:

F1 - файл записей;

N - очередная запись.

Задача 13.3 Дано множество из N городов (N < 11), между которыми проложены дороги, длина дорог из­вестна. В каком порядке должен посетить их коммивояжер, чтобы путь его был самым ко­ротким? Маршрут начинается в городе i и кончается в этом же городе. На каждом шагу коммивояжер выбирает тот город, расстоя­ние до которого минимально.

Алгоритм, описанный в решении данной задачи, называется "жадным", т. к. на каждом шагу приходится выбирать экстремаль­ное значение.

Для решения этой задачи нам понадобится задать матрицу рас­стояний METR[N,N], где каждый элемент, находящийся на I-й строке и в J-м столбце, соответствует расстоянию между городами I и J. Очевидно, что матрица расстояний симметрична относительно главной диагонали и сами элементы главной диагонали равны ну­лю.

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







Дата добавления: 2015-09-07; просмотров: 344. Нарушение авторских прав; Мы поможем в написании вашей работы!




Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


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


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Потенциометрия. Потенциометрическое определение рН растворов Потенциометрия - это электрохимический метод иссле­дования и анализа веществ, основанный на зависимости равновесного электродного потенциала Е от активности (концентрации) определяемого вещества в исследуемом рас­творе...

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

Сущность, виды и функции маркетинга персонала Перснал-маркетинг является новым понятием. В мировой практике маркетинга и управления персоналом он выделился в отдельное направление лишь в начале 90-х гг.XX века...

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит...

Кран машиниста усл. № 394 – назначение и устройство Кран машиниста условный номер 394 предназначен для управления тормозами поезда...

Приложение Г: Особенности заполнение справки формы ву-45   После выполнения полного опробования тормозов, а так же после сокращенного, если предварительно на станции было произведено полное опробование тормозов состава от стационарной установки с автоматической регистрацией параметров или без...

Studopedia.info - Студопедия - 2014-2025 год . (0.014 сек.) русская версия | украинская версия