Оператор OPEN Перед выполнением операций с файлом он должен быть присоединен (связан) с логическим устройством. Иными словами файл должен быть открыт. Этот оператор открывает файл и файловый указатель устанавливается на первую запись.
OPEN([unit=], [,accsess=] [,form=] [,err=] [,file=] [,iostat=] [,recl=] [,status=]) и т.д. Спецификаторы могут указываться в любом порядке. Если unit стоит первым, то можно указать только номер, опустив unit.
Способ доступа может принимать значения: access =’ sequential’ — последовательный доступ, access = ‘direct’ — прямой доступ access =’ append’ – применяется для работы с файлами последовательного доступа, открытыми для добавления. Form=’formatted’ или ‘unformatted’ определяет способ представления данных.
Если метод доступа не указан, то файл по умолчанию считается последовательного доступа форматным. При прямом методе доступа по умолчанию файл считается неформатным. Open (20, file = ‘text.dat’) – файл форматный последовательного доступа. Open (30, file = ‘text1.
ЭТИ НАСТРОЙКИ YOUTUBE ДОЛЖЕН ЗНАТЬ КАЖДЫЙ
dat’, accsess = ‘direct’, recl = 4, status = ‘old’) – файл прямого доступа несформатный, уже имеющийся, длина записи=4. file – имя файла (спецификация файла), которое может быть задано символьной константой или введено с клавиатуры в символьную переменную.
Если этот параметр опущен, то внешний файл рассматривается как временный и имя этот файл получает по умолчанию. Iostat – целочисленная переменная, которая = 0, если ошибки нет, и имеет положительное значение, если во время выполнения данного оператора произошла ошибка, и отрицательное число в случае, если возникла ошибка.
err – метка оператора, которому передается управление, если во время выполнения оператора произошла ошибка. Recl – используется только для файлов прямого доступа (указывается размер записи в байтах). Status – указывает состояние: новый (new), существующий (old), временный (scratch), сохранять (keep или save), удалить (delete).
Для файлов временных файлов всегда действует статус delete, а для остальных save (после закрытия файла, он сохраняется). При создании файла указывают Status =’ new’, хотя по умолчанию, если файла нет, он открывается с этим значением. Операторы ввода/вывода Все операторы ввода/вывода, кроме операторов ввода/вывода со стандартных системных устройств (*, 5, 6) могут содержать управляющую информацию, представляющую собой список спецификаторов.
Оператор Read
Этот оператор используется для чтения данных из файла, подсоединенного к устройству unit= в указанные в списке ввода переменные. Общий вид оператора: Read ( [unit=], [,fmt=] [,end=] [,err=] [,iostat=] [,rec=] ) Спецификаторы unit=, file= были рассмотрены ранее.
Fmt – спецификатор формата, который может быть задан, либо меткой формата, либо символьным выражением, определяющим формат. Если вместо формата стоит *, то это означает ввод под управлением списка (только для текстовых файлов последовательного доступа). Этот спецификатор указывается только для форматных записей.
Уроки C# – File, FileStream, StreamWriter – работа с файлами, копирование, перемещение, запись – C#
Для неформатых файлов этот спецификатор должен быть опущен. End – метка оператора, которому передается управление при достижении записи «конец файла». Err — метка оператора, которому передается управление, если произошла ошибка ввода/вывода.
Iostat – целочисленная переменная, которая = 0, если ошибки нет, и имеет положительное значение, если во время выполнения данного оператора произошла ошибка, и отрицательное число в случае, если возникла ситуация коней файла. Rec – целочисленное выражение, используется только для файлов прямого доступа и определяет номер считываемой записи. Read(20, *) x- считывает в свободном формате (под управлением списка) данное из файла, который связан по каналу 20, в переменную x.
Источник: studfile.net
Контрольный тест по дисциплине «Программирование» для ТУСУР
Пусть формальный язык описывается следующими формулами Бэкуса-Наура: <фио>::= ::=<–> ::=<–> ::=> Здесь синтаксические классы и содержат соответствующие русские буквы. Какие следующие синтаксические цепочки символов принадлежат множеству значений понятия <фио>?
| Старик Хотабыч |
| Николай Николаевич Непейвода |
| Николай Петров–Водкин |
| Эрик П. Д. Кузнецов |
| Эрих–Мария Ремарк |
Сколько раз будет выполняться тело следующего оператора цикла? k:=0; for i:=1 to k+5 do k:=k+2; В ответ введите число. Пример ввода ответа: 9
Что будет напечатано программой? var x, y: char; procedure P(x: integer); const y=false; begin write(x, y) end; begin x:=’*’; y:=’1′; P(1); write(x, y); end.
Укажите верные утверждения.
| Типом индекса массива может быть тип Boolean. |
| Число индексов в массиве должно быть не больше 3. |
| Элементами некоторого массива могут быть файлы. |
| Типом индекса массива может быть тип char. |
Выберите верные утверждения.
| В любой момент работы программы открытым должен быть только один файл. |
| После выполнения процедуры rewrite с указанным файлом если файл с таким именем уже существует, он будет использоваться для дальнейшей работы, а имеющаяся в нем до этого информация теряется. |
| Процедура rewrite создает на диске файл с именем, связанным с файловой переменной, процедурой assign. Указатель работы с файлом устанавливается на начало файла. После выполнения процедуры rewrite файл доступен как для записи, так и для чтения (в случае текстовых файлов – только для записи). |
Какие утверждения правильны?
| Модули – независимо хранимые и разрабатываемые программные единицы со строго определенными интерфейсами. |
| Модуль может выполняться, как и программа. |
| Модуль не может содержать только интерфейсную часть. |
Какие утверждения верны?
| Для заданного значения типа string функция length возвращает целое значение, показывающее количество литер в строке. |
| Для присваивания строковой переменной результата строкового выражения используется оператор присваивания. Если значение переменной после выполнения оператора присваивания превышает по длине максимально допустимую при описании величину, то выдается ошибка. |
| Для хранения строковых переменных выделяется количество байтов памяти, на единицу большее максимальной длины строки. Начальный байт этой памяти отводится для хранения текущей длины строки, следующие байты – для символов самой строки. |
type ref = ^integer; var p, q: ref; Пусть p^=2 и q^=3. Что будет выдано на печать в результате выполнения следующих операторов? p^:=q^; if p=q then p:=nil else if p^=q^ then q:=p; if p=q then q^:=5; writeln(p^);
Вычислите значения отношений. Укажите отношения, результат вычисления которых равен true.
| [3,6..8]=[2..7,9] |
| []>=[‘0’..’9′] |
| ‘0’ in [‘a’..’z’] |
| round(3.9) in [1,3,5] |
| [] <=[] |
Что вычисляет следующая программа, если мы вводим n натуральных чисел a1, a2, …, an? var n, a, k, i: integer; begin writeln(‘Введите количество натуральных чисел’); readln(n); k:=0; writeln(‘Введите ‘, n, ‘ натуральных чисел’); for i:=1 to n do begin readln(a); if sqr(trunc(sqrt(a)))=a then if trunc(sqrt(a)) mod 2 <>0 then k:=k+1; end; writeln(k); end.
| Количество полных квадратов среди a1, a2, …, an. |
| Количество удвоенных нечетных чисел среди a1, a2, …, an. |
| Количество квадратов нечетных чисел среди a1, a2, …, an. |
| Количество квадратов четных чисел среди a1, a2, …, an. |
| Количество удвоенных полных квадратов среди a1, a2, …, an. |
Какие выражения имеют значение 4?
| ord(succ(pred(chr(4)))) |
| ord(pred(succ(chr(4)))) |
| ord(succ(succ(chr(4)))) |
| ord(pred(pred(chr(4)))) |
Укажите строки с ошибками в описании рекурсивной функции.
| function f(n: integer): integer; |
| begin f:=0; |
| if n>0 then |
| f:=f(n-1)+f |
| end; |
Имеются описания: type day = (yesterday, today, tomorrow); vector = array [-1..1] of real; var a: vector; b: array [-3..3] of (x, y, z, w); c: array [‘a’..’z’] of vector; d: array [day] of 0..23; Каково суммарное количество элементов в четырех массивах? В ответ введите число. Пример ввода ответа: 12
Какое значение будет иметь переменная z после выполнения операторов при значениях переменных x=–1 и y=1? z:=1; if x>0 then if y>0 then z:=3 else z:=2;
Похожие ответы, выполненные работы
- Помощь с курсовой работой по информатике для ТулГУ,…
- Программирование на языке высокого уровня Паскаль
- Лабораторная работа по дисциплине…
- Лабораторная работа по дисциплине…
- Контрольный тест по дисциплине…
- Лабораторная работа по дисциплине…
- C#_ ООП и классы
- Введение в программирование на Delphi
- Структуры и алгоритмы компьютерной обработки данных
- Программирование на языке Pascal
или напишите нам прямо сейчас
Оставить комментарий
Inna Petrova 18 минут назад
Нужно пройти преддипломную практику у нескольких предметов написать введение и отчет по практике так де сдать 4 экзамена после практики
Иван, помощь с обучением 25 минут назад
Коля 2 часа назад
Здравствуйте, сколько будет стоить данная работа и как заказать?
Иван, помощь с обучением 2 часа назад
Инкогнито 5 часов назад
Сделать презентацию и защитную речь к дипломной работе по теме: Источники права социального обеспечения. Сам диплом готов, пришлю его Вам по запросу!
Иван, помощь с обучением 6 часов назад
Василий 12 часов назад
Здравствуйте. ищу экзаменационные билеты с ответами для прохождения вступительного теста по теме Общая социальная психология на магистратуру в Московский институт психоанализа.
Иван, помощь с обучением 12 часов назад
Анна Михайловна 1 день назад
Нужно закрыть предмет «Микроэкономика» за сколько времени и за какую цену сделаете?
Иван, помощь с обучением 1 день назад
Сергей 1 день назад
Здравствуйте. Нужен отчёт о прохождении практики, специальность Государственное и муниципальное управление. Планирую пройти практику в школе там, где работаю.
Иван, помощь с обучением 1 день назад
Инна 1 день назад
Добрый день! Учусь на 2 курсе по специальности земельно-имущественные отношения. Нужен отчет по учебной практике. Подскажите, пожалуйста, стоимость и сроки выполнения?
Иван, помощь с обучением 1 день назад
Студент 2 дня назад
Здравствуйте, у меня сегодня начинается сессия, нужно будет ответить на вопросы по русскому и математике за определенное время онлайн. Сможете помочь? И сколько это будет стоить? Колледж КЭСИ, первый курс.
Иван, помощь с обучением 2 дня назад
Ольга 2 дня назад
Требуется сделать практические задания по математике 40.02.01 Право и организация социального обеспечения семестр 2
Иван, помощь с обучением 2 дня назад
Вика 3 дня назад
сдача сессии по следующим предметам: Этика деловых отношений — Калашников В.Г. Управление соц. развитием организации- Пересада А. В. Документационное обеспечение управления — Рафикова В.М. Управление производительностью труда- Фаизова Э. Ф. Кадровый аудит- Рафикова В. М. Персональный брендинг — Фаизова Э. Ф. Эргономика труда- Калашников В. Г.
Иван, помощь с обучением 3 дня назад
Игорь Валерьевич 3 дня назад
здравствуйте. помогите пройти итоговый тест по теме Обновление содержания образования: изменения организации и осуществления образовательной деятельности в соответствии с ФГОС НОО
Иван, помощь с обучением 3 дня назад
Вадим 4 дня назад
Пройти 7 тестов в личном кабинете. Сооружения и эксплуатация газонефтипровод и хранилищ
Иван, помощь с обучением 4 дня назад
Кирилл 4 дня назад
Нашел у вас на сайте задачу, какая мне необходима, можно узнать стоимость?
Иван, помощь с обучением 4 дня назад
Oleg 4 дня назад
Требуется пройти задания первый семестр Специальность: 10.02.01 Организация и технология защиты информации. Химия сдана, история тоже. Сколько это будет стоить в комплексе и попредметно и сколько на это понадобится времени?
Иван, помощь с обучением 4 дня назад
Валерия 5 дней назад
ЗДРАВСТВУЙТЕ. СКАЖИТЕ МОЖЕТЕ ЛИ ВЫ ПОМОЧЬ С ВЫПОЛНЕНИЕМ практики и ВКР по банку ВТБ. ответьте пожалуйста если можно побыстрее , а то просто уже вся на нервяке из-за этой учебы. и сколько это будет стоить?
Иван, помощь с обучением 5 дней назад
Инкогнито 5 дней назад
Здравствуйте. Нужны ответы на вопросы для экзамена. Направление — Пожарная безопасность.
Иван, помощь с обучением 5 дней назад
Иван неделю назад
Защита дипломной дистанционно, «Синергия», Направленность (профиль) Информационные системы и технологии, Бакалавр, тема: «Автоматизация приема и анализа заявок технической поддержки
Иван, помощь с обучением неделю назад
Дарья неделю назад
Необходимо написать дипломную работу на тему: «Разработка проекта внедрения CRM-системы. + презентацию (слайды) для предзащиты ВКР. Презентация должна быть в формате PDF или формате файлов PowerPoint! Институт ТГУ Росдистант. Предыдущий исполнитель написал ВКР, но работа не прошла по антиплагиату. Предыдущий исполнитель пропал и не отвечает.
Есть его работа, которую нужно исправить, либо переписать с нуля.
Иван, помощь с обучением неделю назад
Источник: the-distance.ru
Контрольная по программированию, правильные решения. ппрограммирование 1 контра. Введите слово, словосочетание или символьноцифровое выражение
Единственный в мире Музей Смайликов
Самая яркая достопримечательность Крыма
Скачать 436.81 Kb.
Выберите все верные ответы (может быть несколько или один).
Question15
Question15
Выберите все верные ответы (может быть несколько или один).
Вычислите значения отношений. Выберите отношения, результат вычисления которых равен false.
[0..3,5,7] Выберите все верные ответы (может быть несколько или один).
Выберите все верные ответы (может быть несколько или один).
Выберите все верные ответы (может быть несколько или один).
Дан фрагмент программы (все переменные – integer):
q:=0; r:=x;
while r>=y do
begin
r:=r-y; q:=q+1
end;
Выполните этот фрагмент с заданными x=10, y=5.
Чему равно q после выполнения?
Введите слово, словосочетание или символьно-цифровое выражение.
Дана рекурсивная функция:
function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Введите слово, словосочетание или символьно-цифровое выражение.
Определите значение s после выполнения следующих операторов.
i:=0; j:=1;
Дан фрагмент программы (все переменные – integer): =100 do
begin
i:=i+1;
j:=j+1;
s:=j-i;
end;
Подсказка: ответ можно получить, не выполняя эту программу.
Введите слово, словосочетание или символьно-цифровое выражение.
Что будет напечатано программой?
var a, b, c, d: integer;
procedure P;
var d: integer;
begin
a:=1; b:=2; c:=3; d:=4;
write(a, b, c, d)
end;
begin
a:=1; b:=1; c:=1; d:=1;
P; write(a, b, c, d)
end.
Введите слово, словосочетание или символьно-цифровое выражение.
const n=40;
var x: array [1..n] of integer;
i: integer; t: boolean;
Задача. Переменной t присвоить значение true, если элементы массива x упорядочены строго по убыванию и значение false иначе.
Какие из следующих программ решают эту задачу?
.
i:=1;
repeat t:=x[i] Выберите все верные ответы (может быть несколько или один).
Question10
Каков должен быть порядок строк, чтобы следующие описания были правильные?
type
B = record p: A; q: C end;
A = ^integer;
C = ^B;
В ответ введите номера строк в правильном порядке.
Пример ввода ответа: 1 2 3 4
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Выберите все верные ответы (может быть несколько или один).
Question12
Выберите все верные ответы (может быть несколько или один).
Question13
Источник: topuch.com