КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Локальные и глобальные переменные. Подпрограммы в языке Паскаль
Подпрограммы в языке Паскаль. Результаты работы программы Работа с типизированными файлами Функция FileSize(<ф.п.>) возвращает текущий размер файла в компонентах (не применяется для текстовых файлов). Функция FilePos(<ф.п.>) возвращает номер текущей компоненты файла (не применяется для текстовых файлов). Процедура Seek(<ф.п.>,<номер>) осуществляет настройку на требуемую компоненту файла (не применяется для текстовых файлов). Пример: Программа создает файл из 10 вещественных чисел. Выводит числа, начиная с шестого, и вычисляет сумму выведенных чисел. program F_type; uses CRT; const n=10; var Numfile:file of real; i:byte; Num, s:real; begin Clrscr; Assign(Numfile, 'f:\Work\Numer.dat'); Rewrite(Numfile); Writeln('Для создания файла введите ', n, ' чисел:'); for i:=1 to n do begin Write(i,' число:'); Readln(Num); Write(Numfile, Num); end; Close(Numfile); Writeln; Writeln('Результат:'); Reset(Numfile); s:=0; Seek(Numfile,5); for i:=5 to FileSize(NumFile)-1 do begin Read(Numfile, Num); Writeln(i+1, ' число: ', Num:6:3); s:=s+Num; end; Close(Numfile); Writeln('s=', s:6:3); Readkey; end. Для создания файла введите 10 чисел: 1 число:5.6 2 число:-8.4 3 число:5.12 4 число:-71.56 5 число:8.3 6 число:12.7 7 число:53.2 8 число:45.8 9 число:25.3 10 число:14.32
Результат: 6 число: 12.700 7 число: 53.200 8 число: 45.800 9 число: 25.300 10 число: 14.320 s=151.320 Подпрограмма – это поименованный фрагмент программы, содержащий описание определённого набора действий. С помощью подпрограмм любая программа может быть разбита на несколько частей, которые могут взаимодействовать между собой. Каждая подпрограмма описывается один раз, при необходимости к ней можно многократно обращаться. В Паскале имеется два вида подпрограмм: процедуры и функции. Используемые подпрограммы должны быть описаны в разделе процедур и функций. Структура любой подпрограммы аналогична структуре основной программы. Описание завершается «;». Областью видимости или областью действия переменной называется часть программы, где данная переменная может быть использована. Программа и совокупность описанных в ней процедур и функций образуют блочную структуру. Блок, содержащий в своем разделе описаний другой блок (процедуру или функцию), называется внешним по отношению к нему. Блок, содержащийся в разделе описаний некоторого блока, называется внутренним или подблоком. Объекты, описанные внутри какого-либо подблока, являются по отношению к нему локальными и недоступны внешним блокам. Формальные параметры также являются локальными в пределах подпрограммы. Объекты, описанные в некотором внешнем блоке, доступны и могут быть использованы в любом его подблоке, т.е. они являются глобальными по отношению к этим подблокам. Глобальными называются переменные, область действия которых распространяется на всю программу или блок. Локальными называются переменные, область действия которых ограничена рамками подпрограммы или блока, в которых она определена.
Дата добавления: 2014-12-07; Просмотров: 1026; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |