Урокам тема №5: программирование на языке turbo-pascal. Организация циклов. Операторы циклов. Составление программ с использование операторов цикла
Скачать 0.64 Mb.
|
ТЕМА №8: ФАЙЛЫ. ТИПИЗИРОВАННЫЕ ФАЙЛЫ. ТЕКСТОВЫЕ ФАЙЛЫ.ПРОГРАММНО - ДИДАКТИЧЕСКОЕ ОБЕСПЕЧЕНИЕ: ЭВМ типа IBM. ТР5. ЦЕЛИ И ЗАДАЧИ: Дать представление о файлах и средствах их обработки с помощью ТР5. Приобретение навыков составления программ с использованием файлов различного типа ТРЕБОВАНИЯ К ЗНАНИЯМ И УМЕНИЯМ: Учащиеся должны знать:
Учащиеся должны уметь:
ПЛАН-СОДЕРЖАНИЕ УРОКА Основные понятия Мы все время рассматривали задачи, в которых данные поступают с клавиатуры, а результаты выводятся на экран. Ни исходные данные, ни результаты не сохраняются. А если данных слишком много? Как записать их на диск? Для этого необходимо исходные данные и результаты оформить в виде файлов, которые хранятся на диске. Файлы – это поименованная структура данных на техническом носителе, представляющая собой последовательность элементов (записей) одного типа или - это массив переменной длины неограниченного размера. Файл может быть компонентом другой структуры, но не должен входить в другой файл. Отличие файла от массива: размещение на внешнем носителе, длина файла не задается, место элемента не определяется индексом. Файлы бывают:
Файл объявляется в разделе описания переменных с указанием типа элементов файла. Например: Var F1: file of integer; F2: file of char; F3: text; F4: file; Типизированными файлами называются файлы, в описании которых присутствует указание типа. Типизированные файлы – это файлы с прямым доступом к компонентам (записям). Нетипизированный файл – это просто последовательность байтов, без конкретизации структуры. Файл, компонентами которого являются данные символьного типа, называется текстовым. Отличие текстовых файлов от типизированных - наличие строковой структуры. В текстовые файлы можно записывать любую информацию, в том числе числа. При этом они (числа) автоматически преобразуются в строковые величины, а при считывании из файла – обратное преобразование в числа. Описание файлов:
Файл на техническом носителе определяется полным именем (<путь>\<собственно имя>.<расширение>). Для обозначения файла и работе с ним в программе используется файловая переменная. Файловая переменная - это переменная, используемая в программах для обозначения файла и обращения к нему. Она не может использоваться как обычная переменная (слева от знака присваивания, в логических и арифметических выражениях). Особенности файловой переменной:
При работе с файлом используется понятие указателя или индекса файла, т.е. положение магнитной головки в определенном месте файла. Перед началом работы файл должен быть создан или открыт, по окончании работы – закрыт. При работе с файловыми переменными, используются специальные процедуры и функции:
Пимеры программ:
var f: filt of integer; assign(f, ‘file’); … rewrite(f); …write(f, v1,v2,…, vn); clos(f);
var f: filt of integer; assign(f, ‘file’); … reset(f); … read(f, v1,v2,…, vn); clos(f);
uses crt; var f:text; r,i:integer; rr:string; begin clrscr; rr:='Dautova'; assign(f,'dddddd'); rewrite(f); writeln(f,rr); for i:=1 to 20 do begin r:=random(10); writeln(f,r); end; close(f); end._
uses crt; var f:text; r,i:integer; rr:string; begin clrscr; assign(f,'dddddd'); reset(f); readln(f,rr); writeln(rr); for i:=1 to 20 do begin readln(f,r); writeln(r); end; close(f); end._
Uses crt; Var a,b,c,x1,x2, d: real; f:text; Begin Assign(f,’result.txt); Rewrite(f); Readln(a,b,c); D:=b*b-4*a*c; If d>=0 then Begin X1:=-b+sqrt(d)/(2*a); X2:=-b-sqrt(d)/(2*a); End; Writeln(‘решени квадратного ур-я’); Writeln(f,'a=',a:6:3,'b=', b:6:3,'c=',c:6:3); If d<0 then writeln(f,’у урав-я нет корней’) else writeln(f, ‘корни: x1=’, x1:6:3,’x2=’, x2:6:3); Close(f); Writeln(‘рез-ты работы программы в файле result.txt’); Repeat until keypressed; end.
"Карл у Клары украл кораллы, Клара у Карла украла кларнет." Требуется подсчитать кол-во букв «К» Uses crt; Var f:text; s:integer; a:char; Begin Assign(f,’Karl.txt’); Reset(f); S:=0; While not eof(f) do Begin While not eoln(f) do Begin Read(f,a); If a=’k’ then s:=s+1; End; Readln(f); End; Close(f); Writeln(s); Repeat until keypressed; end.
Uses crt; Var f1,f2:text; s,s1,sa,sb:string; a:char; n,y,i:integer; Begin Clrscr; Assign(f1,’file1’); Assign(f2,’file2’); Rewrite(f1); Readln(s); Writeln(f1,s); Close(f1); Reset(f1); Rewrite(f2); Read(f1,s1); N:=lenght(s1); Y:=n div 2; Writeln(y); Sa:=’’; sb:=’’; For i:=n downto y+1 do Sa:=sa+s1[i]; Writeln(sa); For i:=1 to y do Sb:=sb+s1[i]; Writeln(sb); S1:=sb+sa; Writeln(s1); Write(f2,s1); Close(f1); Close(f2); Repeat until keypressed; end. |
Похожие:
 | Анкета диагностика эффективности применения проектной деятельности,... «Работа с графикой», «Программирование на языке «Turbo Pascal», «Графика языка Turbo Pascal», «Логические функции ms excel» |  | Усвоить понятие программы, структуры программы на языке Turbo Pascal,... На прошлых уроках мы познакомились с понятием алгоритма и основами алгоритмизации. Давайте вспомним, что такое алгоритм, какими свойствами... |
| «Разработка алгоритмов и программирование на языке Pascal» Лабораторный практикум содержит методические указания к выполнению лабораторных работ по алгоритмизации и программированию на языке... | | Реферат по теме Понятие алгоритма, его свойства. Описание алгоритмов... Понятие алгоритма, его свойства. Описание алгоритмов с помощью блок схем на языке Turbo Pascal |
| Пояснительная записка Элективный курс «Основы программирования на языке Turbo Pascal» Изучение курса позволяет учащимся более полно выявить свои способности в изучаемой области знаний, создать предпосылки по применению... | | Аннотация в настоящем докладе обсуждаются возможные способы преобразования... Динамическая эквивалентность как способ преодоления различий в национальных картинах мира |
| Рабочая программа учебной дисциплины «Русский язык» Спо 230401 Информационные системы (по отраслям) предусматривает изучение следующих учебных циклов: общеобразовательного; общего гуманитарного... | | Краткие рекомендации для педагога Полное название разработки Сборник... Фундаментальные основы здоровья и профилактика заболеваний учащихся и преподавателей |
| Программа по формированию навыков безопасного поведения на дорогах... Если учебная дисциплина сформирована за счет вариативной части циклов опоп, ее индекс и наименование не должны совпадать с индексом... | | Урока по информатике в 9 классе. Тема урока: Команды цикла, языка Паскаль Задачи урока: ввести понятие циклических повторений в программе, установить связь между тремя видами циклов, создание алгоритмов... |
| Тема: разветвляющийся вычислительный процесс. Оператор выбора Цель: Познакомить со структурой оператора выбора case и научить использовать его при составлении программ на языке Pascal | | Тема урока: «Составление линейных программ для решения задач на применение... Повторить и обобщить знания о свойствах, типах, способах построения алгоритмов, этапах решения задач, о работе операторов input,... |
| Угринович Н. Д. Информатика и икт. Профильный уровень: учебник для 10 класса Егэ» увеличено количество часов за счет уменьшения количества часов на темы «Моделирование и формализация» и «Информационное общество».... | | «Динамическое Web-Программирование» Целью курса "Динамическое Web-Программирование" является изучение принципов разработки приложений, работающих в среде Интернет и... |
| Рабочие учебные программы циклов тематического усовершенствования... Рабочая программа составлена на основе образовательного стандарта послевузовской профессиональной подготовки специалистов | | Программа по формированию навыков безопасного поведения на дорогах... Планирование составлено на основе авторской программы курса 8-го класса Информатика и икт «Алгоритмизация и программирование на языке... |
