Качала, В. В. Принципы создания пакета прикладных графических программ на языке Турбо-Паскаль (на примере задач геофизики) / под ред. А. А. Намгаладзе. – Апатиты : ПГИ КНЦ РАН, 1993.

фика. наименованияосей, примечанияипояснения, тосоот ветствующийзапроснаэкранежелательнооформитьтак (см.пример.3.1): ; Введите название графика: «if###########################! 'символамийпоказаноцветовоеполедляответапользовате ля). Цветарамки, текстазапросаиответавыбираютсявсоот ветствиисэстетическимивкусамиипристрастиямиавтора программыилипотенциальногопользователя. Видеалеследова лобыдатьвозможностьсамомупользователюподстраиватьцве таподсвоивкусы, чтоисделановнекоторыхпакетахпрог рамм. Привводетекстовойинформацииконтролируетсятолько числовведенныхсимволов. Еслионопревысилозаданное, то либолишниеотсекаются (спредупреждениемобэтомпользова теляилибезнего), либовыдаетсяпредупреждающеесообщение обошибке (например, краснымцветомсмиганием) ивводин формациивпрограммунепроизводится- программаждетпра вильноговвода. Дружественностьинтерфейсаулучшится, если призапросенаэкранвыведетсяпредыдущеезначениевводимой переменной, чтоможетсэкономитьвремянавводприпострое нииоднотипныхграфиков. Этосправедливодлявводаинформа циилюбоготипа, аособенноконстант. Пример3.1 ѵаг ts r string, "br, CSr : byte; i цветполяирамки cem, csrp : byt e ; { цветполяисимволовтекста cew, cs* : bvte, { цветполяисимволовответа xn, yn : byte, ■і координатыначале ІХ, Iw : bvte; { длинатекстаиответа stOtvet string; { ответпользователя begin ts 'Введитеназваниеграфика: lx Lentfth (ts); SetFrameCrlars ■, 1 - > .J t 1 • .L • г). FrameWir.dow ( хл-1.yn- 1,xn+lx+iw+i,yn+1,csr,cbr,"); FastWrite (ts, yn, xn, csnH-cem*16}; ts for 1 1 to 1* do ts ts + ' 26