В.Н. Пильщиков - Сборник упражнений по языку Паскаль (975819), страница 13
Текст из файла (страница 13)
РР((ГРГ(О((В..")В(1 (к(ко" ГР(,((1 .гекс Г,,(к к( п(РЫК след",е(' 1оккл )В (Вм'1(кс( '(Секо ее к'О((((() Гт((рел,ВВ(т(, «(РОРК(ГЛ((»:. "— 'С(Е((Г(; 1) фбР((ЕЛГ(В ~ .ОЛВК ';Г(ОР'(ТЛГ:,~) 1("Р( 1,"'.— ": 1(И(1* С(1х Кое'1".—.. 1(В((/1В * ) о(лск ' 11',,Г;:(В'- с(1:;фр я к: .. (),' ) ( 2 / 3,.' 4," 1 р / 7 ) В (1 14.~)(к )(рогр Ф('(ь.
))Ь(1((сл(-с( О((р( Г((е((г(( сь ВГ('.111( (,'( кол((беллой к(Г(ср((1(ь( Д Г .(о 1 тр(О|к; (1: -.)ГО (1 ' 1М)Г(1)' РЙЗЛГ'(КЕ((КВ КГ~ '!,* О( ~ 1( 1'„Г)'Г ()(.;) Л() —,'~,';К )(1+(ГО,.()Е(;<,,), ".)() 1(К 1((11(( ГИ 1! КР, '"С (К .. '11, К (О(,::...О (1 Л К О ~ (( й(Р. (1Т Ф' 1!.'~;ЧКС **. (С Г ( (1()ГЛ(.Л1, ~(К((- Кл «;В'(О.1, (:ОЛ( К( ВВ Л( йл Г) ((.
ФАЙЛОВЫЕ ТИПЫ (3а О33 р (! О и' !ест! О а". !!31ягс33) 3) ьйла ВВВ33з1333лея, а разм! р а!а3'3'!'3!а 3).Я33СЯ)333аа33.*' 1 ) 13((жео лн, О!3!3 аз яз ЛЯ3йл33 1333тт!31 алс"ел 1, за !Гя С,'~3С!У )К1. Санта!Ь ГГТВ1*с я 13ЛЕГЗС111."' 3 ааа3 Я 313>Л33!Г3 В) !1)сй!333 л1'., Лтн. 3'я!тат! Яа !)!Лйл33 !!Я!!!13! 33лса!ея", ЯЗТ33Л1 утас' ~!133;с газ ятл1 ая 3т3!31т3ть ТГ33 Ртж,'33(3 элеас131.' !) )3 СЯКОЕ 133:Г133 !'"а!3т3: асзл:".!О,тес'. ВЛЯТ3; НО33Ь3е алс"-ясьн я 3!а !33ЯЗ*„С се тлт3:!!у, в !агнец, аула у3ад13О, яя я у 3 113 3О 3Ь: ТОТ!; ЯО ЯЕ)!ВОСО, ТОЛЬЯО язсл я1С1р 13а13ял угада!~ 1В3!3а!Гя»у3' '3 яа3яяс В,ЗОВВ1ьг ВЗ~Л33333~ Т3т13ЛЯ11 1С3 33!а'33ЛЗВ (Г!.3', Т3,*!. Л33 '., *'ЛОВЯЯ)Р с! (!).!тас ля, Я1 В О;а!с ! 3С а13' !3Г3'ля нельзя свг!3ь Ват'! ВЗ 3(~а!Зла я аа3!В3'а!зать В ясгс? )те(1ВВ ля, я!11 на%за СЗЯТ1ТВВЗЬ на !)33!йаа..
а!ГС33 ут 3! Я3313О1ла Яезьая ВВЯЯС14- 13ат! е 3!3 !.с 3 й Вас!333(аз!3 Я3! й(33ЛЗВ3'* ..я с(: еь: *: 1 '.!' а. а! ОГИ1 я(!Всга3333а1ь саян фа3Т 3 ЛОГ ! ОЯ,; Пус3ь 33 а!Лл 1' СО3,3т л 3Г3 'еа з133;,Г!а — й Я 7. (313!!е;3сл3! ь, !!анне Зная!!! '3.' с~у 33'! 3*аз 1ь: с3!'3!Сн!3зя !/ 1113лс' В1илл- 1!В311-;3 3лелузтая 1; сь3!1: 1, ~ а) геа3(((); !с: 3!(1,уь, )( 1к.!. е ((() !."Вп г Я3!31,))! й ягя са(( ! ! аз Г3а3с!((,! 1; Г) ГЕЗС((!); У: — 3.1, 33Л3((С ГС! 333(() 1.:О (3еа11! !33333((,Л); в) Г3 33(((): У вЂ” (, Герса( !тт33'(),л3! у:: - у:.а си!1!) СО((() (.Л.аь 3у(31" СЛСВ; ' '-.)!!»: О1 с(3331. ) (ЯВТЯ «Я!3!3 !3Я В 13)3!333Е333Я3нсса 3; !3Я1 ОГЗПСанна 333у1313333:Я Г1Л13ЯГ3(,а), 3333тг,(3Я33 а1: лаана 3Л (1аас,3ят1, 333113!!Я!СТВО але- В 1Г!Га В 33(~3 3С'езлья33я с'!3>3'.с !а! 3 ЛГ )! 31!3(3т 3т: 3'х (3СГ: !т'Ф.!! Г: а3 (13, С),' (3: й ., )' 3!с!(1( СО3(те)", лая!!а: T 1 )с Л: исят~ про1и'~'" " )УЙ() и) зячнсмиаинГтчо и пид,г Вгс : псла ч пйопаччп (1, 1, 2, 3, 5, ...), Не и; саосходяпи:с.
ДЕЛОГО ГГЛОИОПт,гЬПС:и ЧИСЛЯ и. 1, 15.11'. 1) рс ГЬ =111е о1 1ЯОО1еап; «~ И1ся; ь п(игнедупу Г.рпся(1,9) оч двух файлоп тигга ЙВ, котопап файлу ) п)пи'Вяииает содерлГимос файла Йс 15,15. Гуре 1СГ(егь=(11с О1' 'я'..'а'; Описать пронсдуру адпви1(),В,Й) сл трех файлов типа 1СГГВГЯ, КОтораи аап1и'И~Веет В фаЙЛ,Г снаиала Все Влея1еитм файла 19 я Витек — Все алементм фаЙЛЯ Й. 15,16. 1уре дата=гесогй месиц: (ини,фев,мар,апр, Май,НГОи,июл,айг,сеи, окт,ноя,деь); число:1,.31 СГН1; сйД=-11)С о1 дата; ОГИГсять пропедуру Дол(Г(,тла) От тр х файлоп типа ФД„ кочораи и- файла ГГ Г1срегп!ишяет В файл а Все летно.
датм, а В файл са — Все аимпие датъь 15 17"'. 1уре геа1В=(1)е о1 гея1; Огсисачи фупк1ппо ЙВЯ(1) о1 иеп)стого файла Г чипа гасит, кргораи поде д~гмааст ксличесгпо алемситои файла иепуиих срсдпсго арифиетичсского ьсех алеменчои этого файла. 15 15 1урс челоисг == гссгкт1 ими:рас1Гсс) ЯГГау 11..91 О1 сйаг,* лари п1..99 сиг1: Г1 "~'пгь = 1~1С О1 чслопск; ОСИСЯ1Г проислуру Гймпк-.Д1 ЛГЯ!ьс(ГР), ~ счата1опсув имена ~.::..х,ипдси из непустой гругп и ) Р, ГО1екидих наиьпч.ьи~ий поаиост.
15.19. 111И грпм.,:Я. „".„Япа пспустаи послсдйнатсльиость слоги с .Лергг иипх Ог 1 и 8 глухи; иеио1у соссдппми слоВякп~ — ьчпчтяп, яя пгследпим слоиохь — -'1Очкя. 11япечятя'1ь Гие сися,:~~я,чьмс От последнего слона. 15,9'.. 11р*'краииа. /(«ЯЯ испус1пи послслои ггслгии~с1ь сгоа, пдержап~,'х От 1 до 3 Йуки; мегьду соседними гл и и"ии — яю и: я, л послсдиип слоном — точка, Цяпе чатать Всс с ниии пяиь'Р1 мпе1 длчпм. ~5,25". Р~р~( (Гол.(я( и и(О иав(степ Гпп ~ф~ (1арт!Ов и ф„ко ис иав(!ст(и «пи ик =л(е(ыыов, сии(а!1 про((ет!уру !К(рея(!Г д) Г.р!1!'П(и!Пак((иу!Г! ( и!.лу ! (Ос('пио!Пое (1 ярла 15.26'. Гуре 1 Й==-П!е о( геа1; Описать тоги!!Гскук( Фуи:((и!К( Гп(ГЧ,П!5 1(о(орая Опреде- ляет, икеет ли Р(ЯЙ(л ~ типа 11!т. Пе'!Сги(ГГО лл!Г!!55 и, есл( Кисет, ирис((яипяет' паряь(('Тру Гл ср(лиий злекепт' зтого 1!!Якла.
15.27. (уре ГР((,=.(!1е Гф и, 1; "1 ( писать Г,'' кк(.иго !!КГ(~д (Ги~ ел(л1(Г!Г!1((о 1олиис(тио зле ыеипГв в паиросе( -,,ы:»Г(Й вы вас!Пк!Гп(и 1ослелоп;!тел1,- кос(и (р:!5!Г!а 15.2~(. 1уре Г1=-.(!!е о! Ипи дег; ! .*!'("и. а ксл'.Г(л. Иа ((,.а!(ЛГ!и ! 11 д злск!С((ты уиорялояеиы т !к) 1',(Гур! (к~Пи!с!.
Тре(й с!!!. ГГл !ь зп1 !рк(и'(ы в Одкп файл 11, таки.с у!Кф'итк(ПГ!ь( ~ по ~к",:5!Птя(ии(!. сагь и .с Про';ур, Ги;туса,'ОА О1 Караи(про!т !1!!и 15.2(Г. 1уре Гр((кл:-5й. Г(Г с1!ПГ; (тписять ~к(ГИГ(еск((с (1(ик !Кк ГГГ((11(п(1п! пропер(ио(иу10. Впляе1с\ '(и и ыепи:итк (с Г"йй са ~ П11' вил(ПО(1:!апис! ГО (Го!(т(ои(е( и.(! (с;. ИИ1ке(. и, ес'Ги я!.!Ие!Ся, ириспя((яаки И((!О ЧО(ИИ."ГО И' "СИЯ! ПГР! '!кака:ИС У О!О ОТГГОИГЕ1 И( .,От и(киы1И(: .*'.
',ЯГ(сто!5 аиак Г!ГИО(испи((: ' Гии"!То ' '1!Пп ры и .'и!!(ОЛ!,' Ии(ри((5, с(аиф!1 и(! (Кифпау <иеи„л( .. ! 12! ((4(5~ ° .1(с(Г! ,Ппфии ! Г!(СИГИ;,ЛГ, 15,5(р Са(ип(и 1 тспс!Опы:, ф(!5лои (5(ЯК!лс!! тига 1ех1), О!ВГти!ь иа (л(,!!'!Оии (' ЯО!Кмкы: ЯГ:-!к:1:ле "'иы 1!и:ии(:! (Сь! и ЙЬ- о1 с5ЯГ? 5) Кр: (к !Ск 1., ыя сря((ЛОГ! (1яйл(1 какик е!Пе типов кк(гут 1(с1и" ьГГ, и;1 с!рГ,КИ (!Г)яаят(льио ли 1%'е строки фяис!я,'!осипы 51Г(ь Ойпи'ПГОПОК5 длпиы? ДО1(у(тим! ! ли 1 У«1(,И! в! 1 Г,:и аи,(и(и( ' с 1П((! ряпио (и!!5 то иеиу рявио .ИГЯИГИИЕ Р ' г! р,и при 'яи!(си в 1 !Си(о Пако!пи((ь с(року, то К !и '-! !и ! Г« "'* * 1 ((як(к",:(Е((Г'ГИ!Я ВЛ( К(т ПЫПОГПГЕИИЕ ОПЕ д) Вср ИО пи, '1то ка '! ЗКСГОКО1 О файла КОзкпо скит!!" 15Л9".
(урс; слово=рас)се«1 аггау (!..20~ о1 сваг) со. ==-а ':;у,1..(ОО) '1 Опнсагь продедуру жн(«, «), записывыошуо слова списка как строки в текстовьп! фаин (5.40'"'. В тексаовога файле «аап1и апа испус~ня иоследоиательиосгь вепн-савенпых кисел, разделенных проОелааок сди со ь фукидид глад(«) дли нахождении иаи.
Оольгне$ и иа Зтнк висел. 15.:11. В тткспдю.: файле «1 гдигисаиа госледовательноо1ь велык ии(ел, рааделеииык прскйела11н, ()пнсат1 про двдуру «1ва««квс(«1,«2), ЗаПИСЫВанпдуВ В тЕКСтОВЫй файд «2 все поло ки'и'тьпые цвела иа 15.42', 1уре дата =. гогого и ело:1. Л1; меснц:1.,12; год:1900..1999 Нане 1атать дя у г1 и слс,;; ~ои1ем индов 25.10.! 917, 22 6.1941, 9.5.1945 и т. и. 15.43. 01ивсагь продсдур) 1«ггеа(«), истории нос~ромно покатает «од«(ио~ и: нси,стайн теис~ гвого файла «, вставлни и напало кадо,ой псидтаеыой строки се порндкоиый нове)т (он долукеп ааиииать 4 гоадднп) и пройеа.
1 ~.44 (Ъиг1о,има. Бю,еда~ать тадлипу ниаиеонй функиии а1п к и 1ьт т на от)~'акг (0,5) с игагои 0.1. Впадении и пеиагать ~ одной к~к) рой в дробной насти, ападспнн синуса — с пн~ь:Г, а зннчснпн тиигенса--е экспоиснпнзльпон фткр'.. 15,45 11: огранив, 11япси'тать первые 10 дрок к~реугольгии,а 1 дикадяи и следук**дини ин«ас а) б) 1 ! 1 В 1 .д и 1 1 1 и 4 1 4 и 1 1 о1т1В,В11 9 (В:пм! стос1гг;.ддиьи» крапине кисла равны 1, а каькдое ВНУтРЕ11ИЕŠ— СУККК" Двуь нанти НаД Инги) 4." 1))ии риони 1)аиеиата'гь кас генку наойоак'адпсую унподгси!с кстодйикоиа 11вук ааданпых натуральных 94 ил.'е'~. В~т:ыхиаи:рю.ег: ~ Ь8;"2 3 Ы9М 15.47 . 11 Ы~".'1~Я 'Н"..Б:~.;!:;1;."~. Н.:.~. ~'.,::6: ГЬ~,"Ь', ы:.е зло ~~ьк 'а кя сз,юк~~, л:,а',:~р.. мгам~ ЬЬ!; Ла с Дак1~ Т,~к, Чтоби иж/И~я 1;ров: я:, и:~..РЗ,.З Ь ~,:нюх л~.бо Со„',ер~К;.;:я роик Г'.~ ЛГт~'р„«;ь;, .~су~ в~к '5 48 Р~~~~й~~~й Ь~~~~~~ ~~с~~~ "~: -~~~~~~:-'~ ф ~', Т Ь''1Р'м'.Г..Ь 7!(*~'81'."' ~ 3 Ю."Л,:Х 1О'~Х7Ы1, СГ ~ Д'.~'ЫЯЯИР СВГ;)РЮМ 0 ~,Т'Я~,'МТВД '.С~.":О~С Х'.) ~0: 1у~к лр«кз — ожЬд а~гну ~1 .~21 е1 с1".а-, !' '~,ти! = — ~''~~ад Ф1Ю.'г~е~~~~ *,~,.т,~',"'я "~'.: \,* ~~И:Д ~ ~! <; ц;~ лп.".~ 1:1,.1 ~6 кур-= 1~1е о~ лу:ы,кт; ;.
~ "и л:я ~;."ько о кх с.удентах, кажда у;.ькя~ б."Г:Е!.""ЯЕБ, Я 1БВ1Л~П 03 ~Х6~",*'Ь '."1~ГО Б ~. ( ~~!(!."! !~, ":~1~1 !< '''~~~~!1~Г",!', Р~Г~Р~>Я ~1У Е~" ~~~~ Е К~:Л:.~~И' ~1'*! 1И'С>Ы'.П ~Ж а Оолге длнпные От(тезки н поперегРгенгго пе(геносятся н фаизгы;) и В (ггнс. 7, и). )Ззекг слнаа101ся па(гы ггт(1езков файлов А и В и перепосятся в файлы С и В (рнс. 7, г) " ''Е.'1РР1'~' 'Е З ГТ": й НГ:... б к та а РРк. 7 и т. л. ПН10010, Гто н конце коицон ейннан )'по(гяйогенная посгге;10321елг,н0010 кисел Зголгкнз ГРказатнея и флнЛе Л) нь ссгГглгенгньге тиинц списци (6.1. (Нрг гг(: 1(;ПР..:-;: г; НЗГ (НГЗГЕ(Г ((усть геренгниыг н н д нмсгот златое: ня, гоказгнпгые из ('1**0. й.
( 111ГЕРНЗЬ "Га СГ1ЕЛЗ 10ЗРНЕ НОГ(ЗОГЛ 1 э) Г(зг) ян,гмезся зР'ГРРРеноезг Г1г'йеккРРПРГРР) (Р; сгьглка на обгккт (ЛОРРГЗРенну10) целого тпР;а нлн сан ззггт ОГГРНГГРй НРК. 3 1(ггг оггггогзннет гн(РРР1011нля р'. ГРГРглку иа ойьект цело~о 1нпя, 011 1 зГОГ Г Ргзенз 10Г1 ц1*1КРГ 01 (ГЗ1ГОП11 т10'ы пс(эс«ГЕНР11-1К Г1 и (Р'З 1))' РГ10 ПРЛРггт 1НРГГ1ЯЛО РГЛ ПГКГГГН Н (ИЗН:и Гатс Вьгг.'ОЛ1Н'ННЯ Г.ЛГГРГРГРНПЗ ОНРРЗГГР(РОИ? (1(: - й" й р -Н (; е11 й.— 11й 1)зе й р1=-ц;. (йеп г(:=р, ((1еи Р(Р(:— ъгг!0(п((Р() )6.2Я.
1уре Р=гесогг) Я1Ьоо)еал; Ь,о:)геа) е1ЯЬ чаг г1))1; Г1)еяя л рета лляя Г ЯЛЕЕ1 ЯЛ'РЯЛЛЕ, ЯОКЯзяпло; л'1 ЛЛЕ, 11 ЬЬ1) леола1ь гтруятуре алаяелля ле)я. Леллол г 11оеяе яе- ЛОЛЛЕЛЛЯ СЛГЛ1)11ОГЦЛЯ ОГИ*РЯТОРОЛ1 1) гЬЬ<>Л1) ЬЬел г".,е:=г).Ь: гЬЬ):=гЬО) — Ь4„гЬЛ1.=-г)ЛЯ = — 1).с )Ь'.З~ лаг р Л 41Л)ягягг' г1)еояг" Калле лз с яе'1У1ол', 1х о Р 1 г1га1оя ле1 11 1ВЯ яыъ1 я л11 ЯЯ' я) р:=г); б) Л:=г; в) р: —.=Л1); 1) г1=-л)1; а) с)1=р); е) р) 1--.Л1); яя) г)1=р). Я) е)1==сгг))гГ); л) 1) г<>Ы 1 11Л ггр=-Я1Я);; к) 1) о'..
Я1) )Ьел 1))1 —.,-р); Л) 1) Г. =- Р ))1ЕЯ 1Е, 1'";~11); м) 1) л<>г 1ЬЯЛ гегЯЛгг",) ) 6 4 ))я1Я1'1ея яргг). и ма рггя';ге1л 1))ля1т1о 1О1ЛРО1); яяг х.))1оо)еал; у:Ьо )ея1л ЬЯЛ111 )А) лгже(х)", (В) х),",— )гга', у: — по1 х",,; 1г.') Л1арЯаега); 10) Ят1)е)1ЯЯ» Я1 Г Л О ЛТЯ Я1: ЕГЯ Я1.1О1ЯЛЕ В1Я1) -. " ;1ТР141 Я Т:: Я 1Я, ЛТГЯЯЯЯЯЯЯ1 ЯРОго Я~'РЯГ! Я1'.:,".:,ОЯ, ЯЯ.1ЯЯЯЯ"Г )1,Р' ),рг .' -.=': Ь ": 1я --гегог:,~ )):С~1яг: )2:г1 !Л Нзрйсовзть сгртукту(зу внзненнй йерененнь!к р н г) йосзе вгвволнення сзевук'Гнгх ойсрзтсфов~ пест(о)", г)1~=: '7', пете(р); р(Л1: =- я сс(г)1); рЬ12 ~:=- г) 16.6.