Скачать 0.78 Mb.
|
Var М : Set Of Byte; В разделе операторов ей присваивается значение М := [3,4,7,9]; Тогда операции отношения дадут следующие результаты: Основные понятия языка программирования Паскаль. Простейшие конструкции. Программирование расчетов по формулам 3 Программирование ветвящихся алгоритмов 14 Графические средства ТурбоПаскаля. 20 Графические средства ТурбоПаскаля. 23 Операция вхождения устанавливает связь между множеством и скалярной величиной, тип которой совпадает с базовым типом множества, т. Е. Если х — скалярная величина данного типа, а М — множество, то операция вхождения записывается в виде х In M. Результатом здесь будет логическая величина True, если значение x входит в множество M, и False — в противном случае. Для описанного ранее множества М 4 In М - True, 5 In М - False. Порядок выполнения задания к лабораторной работе № 8П
Program Primer1M; Var S: String; I, K: Byte; Begin ReadLn(S); К := 0; For I := 1 To Length(S) Do If S[I] In ['.','-',',',';',':','!','?'] Then К := К + 1; WriteLn('Число знаков препинания равно', К) End.
(S[I]='.') Or (S[I]='-') и т.д., которое является проверкой вхождения каждого знака препинания в символьную строку. Отлаженную программу предъявите препдавателю.
Лабораторная работа № 9П Файлы в ТурбоПаскале. Задание к лабораторной работе № 9П
Краткие теоретические сведения В Паскале понятие файла имеет два значения:
В программе между этими объектами устанавливается связь. Вследствие этого все, что происходит в процессе выполнения программы с внутренним файлом, дублируется во внешнем файле. С элементами файла можно выполнять только две операции: считывать из файла, записывать в файл. Файловый тип переменной — структурированный тип, представляющий собой совокупность однотипных элементов, число которых заранее (до исполнения программы) не определено. Структура описания файловой переменной имеет вид Var <имя переменной> : File Of <тип элемента>; Здесь <тип элемента> может быть любым, кроме файлового. Например: Var Fi : File Of Integer; Fr : File Of Real; Fc : File Of Char; Файл можно представить как последовательную цепочку элементов (Эл.), пронумерованных от 0, заканчивающуюся специальным кодом, называемым маркером конца (М.к.): Число элементов, хранящихся в данный момент в файле, называется его текущей длиной. Существует специальная ячейка памяти, которая хранит адрес элемента файла, предназначенного для текущей обработки (записи или считывания). Этот адрес называется указателем, или окном, файла. Любые файлы, а также логические устройства становятся доступны программе только после выполнения особой процедуры открытия файла (логического устройства). Эта процедура заключается в связывании ранее объявленной файловой переменной с именем существующего или вновь создаваемого файла, а также в указании направления обмена информацией: чтение из файла или запись в него. Файловая переменная связывается с именем файла в результате обращения к стандартной процедуре ASSIGN (FV, <имя файла или л.у.>). Здесь: FV — файловая переменная (правильный идентификатор, объявленный в программе как переменная файлового типа); <имя файла или л.у.> — текстовое выражение, содержащее имя файла или логического устройства (текстовое выражение, как принято в ТурбоПаскале, заключается в апострофы). Пример обращения к процедуре Assign: Assign(Fx, 'Fx.dat'); Для того чтобы начать запись в файл, его следует открыть для записи. Это обеспечивает процедура Rewrite(FV); (где FV — имя файловой переменной). При этом указатель устанавливается на начало файла. Если в файле до этого была информация, она исчезает. Схематически выполнение процедуры Rewrite можно представить в следующем виде: Стрелкой снизу отмечается позиция указателя. Запись в файл осуществляется процедурой Write(FV, V); (где V — переменная того же типа, что и файл FV). Запись происходит в том месте, на которое установлено окно (указатель файла). Сначала записывается значение, затем указатель смещается в следующую позицию. Если новый элемент вносится в конец файла, сдвигается маркер конца. Схема выполнения данной процедуры следующая: Рассмотрим пример 1. Пусть требуется в файловую переменную Fx внести 15 вещественных чисел, последовательно вводимых с клавиатуры. Фрагмент программы для решения данной задачи может иметь следующий вид: Var Fx : File Of Real; X : Real; I: Byte; Begin Assign(Fx,'Fx.dat'); Rewrite(Fx); For I := 1 To 15 Do Begin Write ('? '); ReadLn(X) ; Write(Fx, X) End End. Конец примера 1. Для считывания элементов файла с его начала следует открыть файл для считывания, что выполняется процедурой Reset (FV). В результате указатель устанавливается на начало файла. При этом вся информация в файле сохраняется. Схема выполнения данной процедуры следующая: Считывние из файла осуществляется процедурой Read(FV, V); (где V — переменная того же типа, что и файл FV). При этом значение текущего элемента файла записывается в переменную V, а указатель смещается к следующему элементу. Схема выполнения данной процедуры следующая: Доступ к элементам файла может быть последовательным или прямым. В стандартном Паскале допускается только последовательный доступ к элементам. Принцип последовательного доступа: для того чтобы прочитать n-ю запись файла, сначала следует прочитать все предыдущие записи с 1-й по (n-1)-ю. Рассмотрим пример 2. Требуется в переменной х получить 12-й элемент вещественного файла Fx. Программа решения такой задачи следующая: Program А; Var Fx : File Of Real; X : Real; Begin Reset(Fx) ; For I := 1 To 12 Do Read(Fx, х) End. Конец примера 2. Функция Eof(FV) проверяет маркер конца файла (end of file). Это логическая функция, которая получает значение True, если указатель установлен на маркер конца, и значение False — в противном случае. Рассмотрим пример 3, где используется функция Eof(FV). Пусть требуется просуммировать все числа из файла Fx, описанного в примере 1. Программа решения следующая: Reset(Fx) ; Sx : = 0; While Not Eof(Fx) Do Begin Read(Fx, х); Sx := Sx + X End; Также решить данную задачу можно с помощью цикла Repeat: Repeat Read(Fx, х); Sx := Sx + X Until Eof(Fx); Во втором варианте возможна ошибка считывания, если файл Fx пустой. Первый вариант от такой ошибки застрахован, поэтому он предпочтительнее. Конец примера 3. Порядок выполнения задания к лабораторной работе № 9П
|
Программа по формированию навыков безопасного поведения на дорогах... Тема: Научно-методические основы реализации содержательной линии «Основы алгоритмизации и программирования» | Рабочая программа учебной дисциплины «програмирование и основы алгоритмизации» Целью дисциплины является изучение способов программирования и алгоритмизации математических и теплоэнергитических задач с использованием... | ||
Методические указания по выполнению контрольных работ по дисциплине Методические указания по выполнению контрольных работ по дисциплине «Правовые основы российского государства» для студентов по специальности... | Методические указания и контрольные задания для студентов-заочников... Методические указания и контрольные задания для студентов-заочников Салаватского индустриального колледжа | ||
Методические указания и контрольные задания для студентов-заочников... Методические указания и контрольные задания для студентов-заочников Салаватского индустриального колледжа | Методические указания по самостоятельной и индивидуальной работе... Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования | ||
Методические указания по выполнению внеаудиторной самостоятельной... Методические указания предназначены для студентов техникума, обучающихся по специальности | Методические указания к выполнению курсовой работы по дисциплине «Основы научных исследований» «Прикладная биотехнология» Наумовой Н. Л. Методические указания к выполнению курсовой работы предназначены для студентов 2 курса... | ||
Методические указания к выполнению практических работ по дисциплине... Методические указания предназначены для студентов среднеспециальных учебных заведений, обучающихся по специальностям: 080302 Коммерция... | «Разработка алгоритмов и программирование на языке Pascal» Лабораторный практикум содержит методические указания к выполнению лабораторных работ по алгоритмизации и программированию на языке... | ||
Методические указания к спецкурсу «Теория и практика нейролингвистического... Методические указания разработаны кандидатом психологических наук, доцентом кафедры психологии личности Е. В. Прокопьевой | Методические указания составлены в соответствии с учебным планом... Методические указания предназначены для студентов, обучающихся по направлению 011200. 68 «Физика», магистерская программа «Окружающая... | ||
Возможность доступа студентов к электронным фондам учебно-методической... Методические указания по выполнению контрольных работ по дисциплине «Правовые основы российского государства» для студентов по специальности... | Методические указания к практическим занятиям по дисциплине «Основы конструкции автомобилей» Методические указания предназначены для студентов, изучающих курс «Основы конструкции автомобиля». Они могут быть также использованы... | ||
Методические указания к выполнению контрольных работ по дисциплине “ Методические указания к выполнению контрольных работ по дисциплине “Основы внешнеэкономической деятельности” для студентов экономических... | Программа по формированию навыков безопасного поведения на дорогах... Программы: «Основы алгоритмизации и программирования» и «Арифметические основы эвм» |