В.Г. Абрамов, Н.П. Трифонов, Г.Н. Трифонова - Введение в язык Паскаль (1107618), страница 54
Текст из файла (страница 54)
1 4 1 5 9 2 : 8 : 2 )определяет следующий фрагмент в выводимой строке:3.14Во всех приведенных выше примерах в качестве параметров т и п фигурировали целые без знака. Однако в качестве т и п могут использоватьсяи выражения, значения которых могут изменяться в процессе выполненияпрограммы, т.е. в этих выражениях могут фигурировать не только константы, но и неременные. Такая возможность (особенно применительнок параметру т) очень удобна, например, при выводе результатов вычислений в виде графиков.
Так, если в программе вычисляется значение функцииу = / ( х ) для значения аргумента х с постоянным шагом, причем 0 <,у < 8 0 ,229то для построения графика можно, например, значение у изобразить литерой * в той позиции строки, номер которой равен целой части значения у.Эта цель может быть достигнута с помощью оператораwriteln<'*':trunc<y))В качестве иллюстрации форматного вывода результатов в паскале рассмотрим следующий пример.П р и м е р 12.4.
Получить таблицу значений функций у ( х ) = 1 + sinx,z (х) = cosx, и(х) = 1/ (lOOjc+O.OOl) 2 в узлах сетки, полученной разбиением отрезка [а, Ь\ на N равных частей (включая границы отрезка).Кроме этой таблицы построить график второй из заданных функций.Значения a, b и JY вводятся из стандартного файла input.Таблица должна иметь вид:ТАБЛИЦА ЗНАЧЕНИЙ ФУНКЦИЙ.***********************************************************X* 1+SIN (X) *COS(X)* 1 /SQR (100*Х+0.001) ************************************************************Х0*Y0*Z0*X1*Yf*Z*Хд,*Уд,**1zы**U0U1*u^** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *ГРАФИК ФУНКЦИИ COS(X)(Далее изображен график заданной функции.)Прежде чем привести текст паскаль-программы, поясним алгоритм вывода графика функции.При выводе графика функции удобно ось ОХ направить вниз вдоль экрана дисплея (или рулона бумаги АЦПУ).
В этом случае каждая строкадолжна содержать две отличные от пробела литеры: одна из них (напримерб у к в а 1) будет изображать часть оси абсцисс, соответствующую текущемузначению аргумента, а другая литера (например *) будет изображать точкуна графике при этом значении аргумента.Для вывода графика таблично заданной функции (а таблица значенийz(x) будет вычислена при выводе таблицы значений заданных функций)в общем случае нужно исследовать эту таблицу, найти т = min{z ; } иМ = max{zf}, по этим значениям выбрать номер к позиции, в которой будетизображаться ось QX, и определить масштаб h по оси OF (с учетом того,что в строке имеется только 80 позиций, в которых можно напечатать туили иную литеру).
Этот масштаб означает, что при каждом изменении значения функции на величину h литера, изображающая точку на графике,будет смещаться в очередную позицию по строке.Если, например, по оси OY мы хотим выделить 71 позицию для изображения точек на графике функции, у которай т < 0 и М > 0, то можновзять h = (М — т)170 и к - t r u n c ( a b s ( w ) / A ) + 5, где число 5 взято из техсоображений, чтобы точка для z f = т отстояла от края экрана на 5 позиций.230Д л я о п р е д е л е н и я н о м е р а / позиции в с т р о к е , в к о т о р о й надо и з о б р а з и т ьзначение zt, м о ж н о , н а п р и м е р , в ы ч и с л и т ь р = t r u n c ( a b s ( z , - ) / й) и п о л о ж и т ь/ = к + р при 2 { > 0 и / = к — р при Zj < 0. По п р и в е д е н н ы м в ы ш е ф о р м у л а м к а ж д ы й раз н е о б х о д и м о в ы ч и с л я т ь п о з и ц и ю д л я печати л и т е р ы * .В случае р = 0 печатается т о л ь к о л и т е р а * .С Пример 12.4.Ярко Л.
В. Ф-т ВМиК МГУ 2.6.В7г.Вычисление заданных функций и вывод значенийв виде Форматной таблицы.Пример печати графика заданной Функции.}program Форвывод(i nput,output);const N=20;vari,l,k,p:integer;sh ,x , h ,max , mi n , a , b: real;tabval : array C1..N3 o-f real;function y(arg: real): real;begin у:--l+si n <ar g) end;function zlarg: real): real;begin z:=cos(arg)end;function u(arg: real): real;begin u:=1/sqr<100*arg+0.001>end;tbegin {ввод значений а и b>read(a ,b);{вычисление шага)sh:=(b-a)/N;{печать заголовка таблицы)writeln ( 'ТАБЛИЦА_ЗНАЧЕНИЙ_ФУНК:ЦИЙfor i:=1 to 70 do write('*');');writeln;writeln(•*','X':5,'*':5,'1+SIN(X)":12,'*':5,'COS(X)':10,'*':5,'1/SQR(100*X+0.001)':22,'*':5>;for i : = 1 to 70 do w r i t e C * ' ) ; writeln;{печать таблицы)max:=2; min:=-2;for i:=0 to N dobegin x:=a+i*sh;tabvalСi]:=z(x);if tab/alСi3>max then max:=tabvalСi] elseif tabval С i ]<mi n then mi n: =t.abval С i 3 ;writeln ( '*' ,x:8:4, '*' :2,y'.x) : 14: 10, '*' :3,tabvalС i 3: 13:9, '*':2,u(x>:24, *':3)231end;{печать нижней рамки таблицы}•for i г — 1 to 70 do write*'*'); writeln;{печать графика}wr i teln ( 'ГРАФИК_ФУНКЦИИ._С05 (X)h: = (max — min)/70;'>;k:=trunc(abs(mi n ) / h ) + 5 ;•for i : =0 to N dobegin p:=trunc(abs(tabvalС i 3)/h>;if tabvalСi Э>0 then writeln('I':k, '* ':p) elseif tabvalС i 3<0 then writeln('*':k-p, 'I ':p) elsewr i teln ( '*':k)endend.В заключение рассказа о вводе и выводе в языке Паскаль сделаемследующее замечание.
Стандартные процедуры read, readln, write иwriteln применимы для работы с любыми текстовыми файлами. Мы подробно изучили дейс1вия этих процедур при работе со стандартными текстовыми файлами ввода и вывода input и output, так к а к это наиболее частоеиспользование этих стандартных процедур. Но все, что было рассмотрено,справедливо для любого текстового файла /. Следует лишь уточнить, какв случае произвольного текстового файла выполняется оператор процедуры writeln ( f, x l , х2, ..., хп).
Это становится понятным, если вспомнить,что мы уже знаем действие оператора процедуры w r i t e l n ( f ) , которое состоит в записи специальной управляющей литеры "конец строки" и сдвигеокна на конец файла /, а оператор writeln ( f , x l , х2, ..., хп) эквивалентенпоследовательности операторов write(f, x l , х2, ...,xn); writeln(f).П р и м е р 12.5. Пусть во внешнем файле с именем АБИТ находятсяследующие сведения об абитуриентах: фамилия, имя, отчество, иол, годрождения, номер экзаменационного листа, оценки полученные на экзаменах, нуждается ли в общежитии. Пусть известен проходной балл (т.е.
суммабаллов, которую необходимо набрать при сдаче экзаменов, чтобы бытьзачисленным в вуз), который вводится из стандартного файла input.Требуется создать внешний файл с именем СТУД, в который перенесенысведения о зачисленных в вуз студентах, т.е. тех абитуриентах, которыенабрали сумму баллов не меньшую, чем проходной балл. Кроме того, вывести на печать в виде таблицы фамилии, имена и отчества зачисленных студентов, а также номера их экзаменационных листов, которые представляютсобой пятизначные целые числа.
Число вступительных экзаменов равно четырем. Предположим, что операционная система связывает стандартныйтекстовый файл input с клавиатурой терминала, на которой будет набранпроходной балл, а стандартный текстовый файл output связываетсяс алфавитно-цифровым печатающим устройством, в печатной строке которого содержится 80 позиций. Кроме этого потребуем, чтобы фамилия, имяи отчество не превышали 15 литер каждое, причем незначащие позиции232(если пятнадцати позиций окажется много) заполнены символом пробел.{Пример 12.5.Рыбин С.И.ф-т ВМиК МГУ 5.5.87г.Отбор зачисленных студентов из внешнего Фа.:1ла,содержащего сведения об абитуриентах, печать списказачисленных студентов на АЦПУ с 85 позициями в строке}{Пример работы с Файлами, ввода информации ивывода ее на печать в форматном виде}programзачисление<input,output,АБИТ,СТУД);const числоэкз=4;typeстрока=раскес1 array CI..
153 of char;анкета=гесогс1 Фио:record Фам,имя ,отч: отрокаend;пол:(муж,жен);годрожд:I960..1999;экзлист:integer;оцен; array С 1..числоэкз3 of 2..5;общеж: booleanend;vark,n,i: integer;пб:12..20;{проходной балл}зап: анкета;АБИТ,СТУД: file of анкета;>{procedure печзаголовка;var j: integer;begin writeln;{печать первой строки заголовка}[печать 60 звездочек - верхняя рамка таблицы}for j:-l to 60 do write!'*');wr i t.el n;{печать второй строки заголовка}wr i te ( ' *_ N * ' ) ;write ( 'ФАМИЛИЯwr i teln('„.„ОТЧЕСТВО*ИМЯ*');*_Ыэл_*'>;(печать третьей строки заголовка}233•for j:=i to 60 do write('*')jwri teln;end;Суprocedure печстроки(var ннф:анкета);var j: integer;begin {печать очередной строки таблицы}write('*'s1>;wr i te(n:3,'._');wi th инФ dobegin {печать Фамилии}•for j:=l to 15 do wr i te (фио.
ФамС j ] ) ;wr i te('_');{печать имени}•for j: = l to 15 da wr i te (фио. имя С j ] ) ;wr i te('_'>;{печать отчества}•for j: = l to 15 do wr i te (Фио. отч L j 3 ) ;write('*');{печать номера экз.листа}wr i te(экзлист:5)end;wri teln('*' : 1>end;>procedure печокончания;var j: integer;begin {печать нижней кромки таблицы}•for j:=l to 60 do w r i t e C * ' ) ;writeln;writeln;writeln('ВСЕГ0_ПРИНЯТ0_',n:1, '.СТУДЕНТОВ'>end;>begin {печать запроса на проходной бали ввод проходного балла}writeln ( 'СООБ14ИТЕ_ЛРОХОДНОЙ_БА/1/1: '); read(n6>;п:=0;{число зачисленных студентов}reset(АБИТ);печзаголовка;rewrite(СТУД);repeat read (АБИТ,зап);k:=0;•for i: = l to числоэкз doк:=к+зап.oueHCi 3;i-f к>пб then beginns=n+i;пвчотроки(зап);wri te(СТУД,зап)end;until eo-f (АБИТ);печокончанияend.В результате в ы п о л н е н и я этой п р о г р а м м ы во в н е ш н и й ф а й л с и м е н е мСТУД б у д у т перенесены сведения о тех абитуриентах, к о т о р ы е в ы д е р ж а л ик о н к у р с и зачислены в в у з .
На печать будет в ы д а н а таблица с ф а м и л и я м и ,именами, отчествами и номерами экзаменационных листов зачисленныхстудентов, к о т о р а я б у д е т иметь с л е д у ю щ и й в и д :******************************************** N *ФАМИЛИЯ* ИМЯ* ОТЧЕСТВО* Ыэл **************************************************************1. АРТЕМЬЕВАЛЕКСАНДРЮРЬЕВИЧ*12345**2. АРХИПОВВЛАДИМИРПЕТРОВИЧ*15687**3. БРЯБРИНАЮЛИЯВИКТОРОВНА*Ю045**398. ЯБЛОНСКАЯМАРИЯВЛАДИМИРОВНА*Ю032**399.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
