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

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

Borland Pascal Version 7.0 Copyright (с) 1983, 92 Borland. Qqwerr ttttt aa ss dddd





International

 

Qqwerr ttttt aa ss dddd

S d f g. h j

Sd ffffff

 

Qqwerr ttttt aa ss dddd

S d f g. h j

S d ffffff

Рис. 8.6. Результат работы PRG8_5

Задача 8.6 Прочитать файл TWO и вывести его задом наперед.

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

PROGRAM PRG8_6;

VAR F1: FILE OF CHAR;

F2: TEXT;

X: CHAR;

L, I: INTEGER;

BEGIN

ASSIGN(F1, 'TWO');

RESET(F1);

ASSIGN(F2,' ');

REWRITE(F2);

L:= FILESIZE(FI);

FOR l:= L-1 DOWNTO 0 DO

BEGIN

SEEK(F1, I);

READ(F1, X);

WRITE(F2, X)

END;

WRITELN;

CLOSE(F1);

CLOSE(F2)

END.

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

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

- привяжем файл TWO к файловой переменной F1 и откроем его на чтение;

- переменную F2 свяжем со стандартным устройством выво­да - экраном дисплея и откроем его на вывод;

- организуем последовательный просмотр по считыванию эле­ментов файла F1 начиная с конца и записи их в файл F2;

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

Переменные:

Fl - файл символов;

F2 - текстовый файл;

X - очередной элемент файла;

L - длина файла;

I - переменная цикла.

Borland Pascal Version 7.0 Copyright (с) 1983, 92 Borland

International

Ffffff d s

J h. g f d s







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




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


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...


Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...


Логические цифровые микросхемы Более сложные элементы цифровой схемотехники (триггеры, мультиплексоры, декодеры и т.д.) не имеют...

Вопрос. Отличие деятельности человека от поведения животных главные отличия деятельности человека от активности животных сводятся к следующему: 1...

Расчет концентрации титрованных растворов с помощью поправочного коэффициента При выполнении серийных анализов ГОСТ или ведомственная инструкция обычно предусматривают применение раствора заданной концентрации или заданного титра...

Психолого-педагогическая характеристика студенческой группы   Характеристика группы составляется по 407 группе очного отделения зооинженерного факультета, бакалавриата по направлению «Биология» РГАУ-МСХА имени К...

Измерение следующих дефектов: ползун, выщербина, неравномерный прокат, равномерный прокат, кольцевая выработка, откол обода колеса, тонкий гребень, протёртость средней части оси Величину проката определяют с помощью вертикального движка 2 сухаря 3 шаблона 1 по кругу катания...

Неисправности автосцепки, с которыми запрещается постановка вагонов в поезд. Причины саморасцепов ЗАПРЕЩАЕТСЯ: постановка в поезда и следование в них вагонов, у которых автосцепное устройство имеет хотя бы одну из следующих неисправностей: - трещину в корпусе автосцепки, излом деталей механизма...

Понятие метода в психологии. Классификация методов психологии и их характеристика Метод – это путь, способ познания, посредством которого познается предмет науки (С...

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