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

FastWrlte (ts, yn, xn, csw+cew*l6); gotoXYAbs (xn+lx, yn); readln (stOtvet); for i 1 to 1» do FastWrite(Copy(stOtvet,i,1),yn,xn+Lx+i-1,csw+cew*16); end; Привводечисловыхконстантследуетчитатьихкакнабор символов, чтопомогаетизбежатьошибкисвязаннойсвведением вместоцифрыкакого-либосимвола(см.пример3.2). Есливве денныйнаборсимволовбезошибочнопреобразуетсявчисло, то производитсяпроверкаполученногочисланапринадлежностьк заданномудиапазону. Приошибочномвводеконстантывнизѵ эк раназагораетсяпредупреждающаянадписьи.машинаожидает введениеправильногозначения. Покавведенноезначениене удовлетворитвсемпроверкам,программабудетвозвращатьсяк еговводу. Аналогичнымобразомпроизводитсявводмассива данных, апроверкадолжнавыполнятьсядажепривводеданных изфайла. Пример3.2. ѵаг NOsh : boolean; { признакбезошибочноговвода > Otvet: integer; { ответпользователявчисловойформе> rez : integer; { -0 прибезошибочномпреобразовании > nz,vz: integer; { нижнееиверхнеезначения > procedure POsh; { сообщениеобсшибкеУ begin ts 'Значениевведеноневерно1 Повторитеввод!’; FastWrite (ts, 25, 5, 15+4*16+Blink); write (#7); write (#7); write (#7); gotoXYAbs (xn+lx, yn); repeat until KeyPressed; Window (1, 25, 30, 25); TextBackGround (0); NOsh False; end; {.................................> begin repeat NOsh TRUE; ... { вводответапользователяstOtvet > Val ( stOtvet, Otvet, rez); if rez <> 0 then POsh; if (Otvet >' nz) OR (Otvet vz) tnen Posh; 'until NOsh; end; 27