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

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

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. Нарушение авторских прав; Мы поможем в написании вашей работы!




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


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


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


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

Условия приобретения статуса индивидуального предпринимателя. В соответствии с п. 1 ст. 23 ГК РФ гражданин вправе заниматься предпринимательской деятельностью без образования юридического лица с момента государственной регистрации в качестве индивидуального предпринимателя. Каковы же условия такой регистрации и...

Седалищно-прямокишечная ямка Седалищно-прямокишечная (анальная) ямка, fossa ischiorectalis (ischioanalis) – это парное углубление в области промежности, находящееся по бокам от конечного отдела прямой кишки и седалищных бугров, заполненное жировой клетчаткой, сосудами, нервами и...

Основные структурные физиотерапевтические подразделения Физиотерапевтическое подразделение является одним из структурных подразделений лечебно-профилактического учреждения, которое предназначено для оказания физиотерапевтической помощи...

Типовые ситуационные задачи. Задача 1. Больной К., 38 лет, шахтер по профессии, во время планового медицинского осмотра предъявил жалобы на появление одышки при значительной физической   Задача 1. Больной К., 38 лет, шахтер по профессии, во время планового медицинского осмотра предъявил жалобы на появление одышки при значительной физической нагрузке. Из медицинской книжки установлено, что он страдает врожденным пороком сердца....

Типовые ситуационные задачи. Задача 1.У больного А., 20 лет, с детства отмечается повышенное АД, уровень которого в настоящее время составляет 180-200/110-120 мм рт Задача 1.У больного А., 20 лет, с детства отмечается повышенное АД, уровень которого в настоящее время составляет 180-200/110-120 мм рт. ст. Влияние психоэмоциональных факторов отсутствует. Колебаний АД практически нет. Головной боли нет. Нормализовать...

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

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