/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 385
от 31.05.2007, 03:05

Вопрос № 88.551

господа, программисты, вопрос, конечно, ламерский, но как реализовать проверку ввода данных, причем с выходом на повторный ввод этой же информации? Например, когда надо вводить число, а по ошибке вводят буквы... Причем такую проверку в лабе необходимо реализовать после каждого ввода.

Отправлен: 25.05.2007, 17:23 Вопрос задал: Beerb0x (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Beerb0x! Смотрите проложение. Вводятся только цифры. Удачи! Приложение: program q88551; uses crt ; var c:char; i,n:longint; begin c:=' '; n:=0; write('enter number:'); while(ord(c)<>13)do begin c:=ReadKey; if ((c<='9')and(c>='0'))then begin i:=10*i+ord(c)-48; write(c); end; end; writeln; writeln('number:',i); end. --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 25.05.2007, 18:33

Отвечает: sir henry Здравствуйте, Beerb0x! В Паскале проблема обычно состоит в том, что если ввести не тот тип данных (например вместо цифр ввести буквы), то программа сразу же падает в обморок. Поэтому вводить надо именно строку, а потом эту строку проверять на корректность. Если все корректно, то преобразовать строку в нужный тип. В приложении пример для целочисленных значений. Приложение: Program prov; Uses Crt; Var cto_nujno: integer; Function Vvedenie: boolean; Var vvod: string; err: integer; Begin Vvedenie:=False; {Запрашиваем число. Обычно, чтобы меньше было ошибок, здесь же указывается диапазон допустимого ввода} WriteLn('Введите числовое значение (от -1000 до 1000):'); ReadLn(vvod); {А теперь проверяем} Val(vvod, cto_nujno, err); If err<>0 Then Begin WriteLn('О, ужас!!!! Это не число, а полное безобразие!'); WriteLn('На ', err, ' позиции введенного Вами числа стоит какое-то непотребство.'); WriteLn('Ввод нужно повторить.'); WriteLn; End Else Vvedenie:=True; End; Begin Repeat Until Vvedenie; End.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 26.05.2007, 04:55

Вопрос № 88.582

Здравствуйте эксперты, дали посмотреть такую штуку, она считает какой то физический процесс, что связное с греблей на лодках, помоему сила давления на весло. При попытки открыть через Паскаль пишет, что надо компилировать процесс 8087 процессоре, с таким раньше не сталкивался, подскажите пожалуйста Приложение: uses crt,graph,Integral; var n:integer; GrDriver,Grmode:integer; MashX,MashY:real; hx,hy,x1,x2,y1,y2,Fmax,Fmin,i,temp:real; s:string; function min:extended; var i:integer; Hx,F:real; m,vs:extended; begin Hx:=1; m:=999999;F:=Fmin; While (F<=Fmax) do begin if CountBar(0,5,0.01,F,v,true)<m then m:=CountBar(0,5,0.01,F,v,true); F:=F+Hx; end; min:=m; end; function max:extended; var i:integer; Hx,F:real; m,Vs:extended; begin Hx:=1; m:=-999999;F:=Fmin; While (F<=Fmax) do begin if CountBar(0,5,0.01,F,v,true)>m then m:=CountBar(0,5,0.01,F,v,true); F:=F+Hx; end; max:=m; end; begin ClrScr; Writeln('-----------------------'); Writeln('Vvedite koefficienty trenia!'); Write('b = ');readln(b); Write('c = ');readln(c); Write('Vvedite min znachenie tyagi grebcov Fmin = ');Readln(Fmin); Write('Vvedite max znachenie tyagi grebcov Fmax = ');Readln(Fmax); {********************} m:=150;v:=2;a:=2; MashX:=0;MashY:=0;hx:=0;hy:=0; GrDriver:=Detect; Grmode:=2; InitGraph(GrDriver,Grmode,''); if GraphResult<>0 then Halt(1); ClearDevice; MashX:=(GetMaxX-350)/(Fmax-Fmin); MashY:=(GetMaxY-350)/(max-min); Moveto(round(MashX),0);Lineto(round(MashX),GetMaxY); Moveto(0,GetMaxY div 2);Lineto(GetMaxX,GetMaxY div 2); OutTextXY(Round(MashX),10,'Y');OutTextXY(GetmaxX-20,GetMaxY div 2 +5,'X'); i:=Fmin; While(i<FMax) do begin str(i:1:1,s); OutTextXY(round(MashX)+round(i*MashX),GetMaxY div 2+7,s); OutTextXY(round(MashX)+round(i*MashX),GetMaxY div 2-3,'|'); temp:=CountBar(0,5,0.01,i,v,true); str(temp:1:1,s); OutTextXY(round(MashX)+15,GetMaxY div 2-round(temp*MashY),s); OutTextXY(round(MashX)-5,GetMaxY div 2-round(temp*MashY),'--'); i:=i+round(Fmax/6); end; x1:=Fmin;y1:=CountBar(0,5,0.01,Fmin,v,true); x2:=0;y2:=0; SetColor(2); OutTextXY(500,50,'---- v(Ft) '); While x2<=Fmax do begin x2:=x1+1; y2:=CountBar(0,5,0.01,x2,v,true); MoveTo(round(MashX)+round(x1*MashX),GetMaxY div 2-round(y1*MashY)); LineTo(round(MashX)+round(x2*MashX),GetMaxY div 2-round(y2*MashY)); x1:=x2;y1:=y2; end; x1:=Fmin;y1:=CountBar(0,5,0.01,Fmin,a,false); x2:=0;y2:=0; SetColor(5); While x2<=Fmax do begin x2:=x1+1; y2:=CountBar(0,5,0.01,x2,v,false); MoveTo(round(MashX)+round(x1*MashX),GetMaxY div 2-round(y1*MashY)); LineTo(round(MashX)+round(x2*MashX),GetMaxY div 2-round(y2*MashY)); x1:=x2;y1:=y2; end; SetColor(5); OutTextXY(500,70,'---- a(Ft) '); {********************} readkey; CloseGraph; end. также прилагается INTEGRAL.PAS: unit Integral; INTERFACE uses crt; var dx,b,c,v,a,m:real; Function Fv(dt,vs,Ft:real):extended; Function Fa(dt,as,Ft:real):extended; Function CountBar(x1,x2,e,Ft,vv:real;av:boolean):extended; IMPLEMENTATION Function Fv(dt,vs,Ft:real):extended; begin Fv:=(Ft-b*vs+c*vs*vs*vs)/m*dt; end; Function Fa(dt,as,Ft:real):extended; begin Fa:=(Ft-b*as+c*as*as*as)/m; end; Function CountBar(x1,x2,e,Ft,vv:real;av:boolean):extended; var xx1,xx2,i:extended; c:longint; begin i:=0; for c:=1 to round(abs(x2-x1)/e) do if (av) then begin xx1:=Fv(x1+c*e,vv,Ft); xx2:=Fv(x1+c*e+e,vv,Ft); i:=i+abs(xx1+xx2)/2*e; end else begin xx1:=Fa(x1+c*e,vv,Ft); xx2:=Fa(x1+c*e+e,vv,Ft); i:=i+abs(xx1+xx2)/2*e; end; CountBar:=i; end; begin end.

Отправлен: 25.05.2007, 20:40 Вопрос задал: Tribak (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич Переключает между двумя различными моделями генерации объектного кода обработки чисел с плавающей точкой, обеспечиваемыми компилятором. Синтаксис: {$N+} или {$N-} Значение по умолчанию: {$N-} Тип: Глобальная Команда меню: Options|Compiler|8087/80287 Состояние $N-: В состоянии $N-, компилятор генерирует код для выполнения всех вещественных вычислений программно, вызывая подпрограммы библиотеки поддержки. Состояние $N+: В состоянии $N+, компилятор генерирует код для выполнения всех вещественных вычислений с использованием математического сопроцессора 80x87 и дает вам доступ к четырем дополнительным вещественным типам: Single, Double, Extended и Comp. ВНИМАНИЕ: Вы можете также использовать директиву $E+, чтобы эмулировать 80x87. Это дает вам доступ к вещественным типам при отсутствии 80x87 сопроцессора.Здравствуйте, Tribak! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 25.05.2007, 20:46 Оценка за ответ: 5

Отвечает: Gh0stik Здравствуйте, Tribak! Вам просто нужно прописать директиву математического сопроцессора{$N+} и после этого программа заработает. Выдержка из справки: $N: Математический сопроцессор ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ Переключает между двумя различными моделями генерации объектного кода обработки чисел с плавающей точкой, обеспечиваемыми компилятором. Синтаксис: {$N+} или {$N-} Значение по умолчанию: {$N-} Тип: Глобальная Команда меню: Options|Compiler|8087/80287 Состояние $N-: В состоянии $N-, компилятор генерирует код для выполнения всех вещественных вычислений программно, вызывая подпрограммы библиотеки поддержки. Состояние $N+: В состоянии $N+, компилятор генерирует код для выполнения всех вещественных вычислений с использованием математического сопроцессора 80x87 и дает вам доступ к четырем дополнительным вещественным типам: Single, Double, Extended и Comp. В приложении я уже внес необходимые коррективы. Good Luck!!! Приложение: {$N+} uses crt,graph,Integral; var n:integer; GrDriver,Grmode:integer; MashX,MashY:real; hx,hy,x1,x2,y1,y2,Fmax,Fmin,i,temp:real; s:string; function min:extended; var i:integer; Hx,F:real; m,vs:extended; begin Hx:=1; m:=999999;F:=Fmin; While (F<=Fmax) do begin if CountBar(0,5,0.01,F,v,true)<m then m:=CountBar(0,5,0.01,F,v,true); F:=F+Hx; end; min:=m; end; function max:extended; var i:integer; Hx,F:real; m,Vs:extended; begin Hx:=1; m:=-999999;F:=Fmin; While (F<=Fmax) do begin if CountBar(0,5,0.01,F,v,true)>m then m:=CountBar(0,5,0.01,F,v,true); F:=F+Hx; end; max:=m; end; begin ClrScr; Writeln('-----------------------'); Writeln('Vvedite koefficienty trenia!'); Write('b = ');readln(b); Write('c = ');readln(c); Write('Vvedite min znachenie tyagi grebcov Fmin = ');Readln(Fmin); Write('Vvedite max znachenie tyagi grebcov Fmax = ');Readln(Fmax); {********************} m:=150;v:=2;a:=2; MashX:=0;MashY:=0;hx:=0;hy:=0; GrDriver:=Detect; Grmode:=2; InitGraph(GrDriver,Grmode,''); if GraphResult<>0 then Halt(1); ClearDevice; MashX:=(GetMaxX-350)/(Fmax-Fmin); MashY:=(GetMaxY-350)/(max-min); Moveto(round(MashX),0);Lineto(round(MashX),GetMaxY); Moveto(0,GetMaxY div 2);Lineto(GetMaxX,GetMaxY div 2); OutTextXY(Round(MashX),10,'Y');OutTextXY(GetmaxX-20,GetMaxY div 2 +5,'X'); i:=Fmin; While(i<FMax) do begin str(i:1:1,s); OutTextXY(round(MashX)+round(i*MashX),GetMaxY div 2+7,s); OutTextXY(round(MashX)+round(i*MashX),GetMaxY div 2-3,'|'); temp:=CountBar(0,5,0.01,i,v,true); str(temp:1:1,s); OutTextXY(round(MashX)+15,GetMaxY div 2-round(temp*MashY),s); OutTextXY(round(MashX)-5,GetMaxY div 2-round(temp*MashY),'--'); i:=i+round(Fmax/6); end; x1:=Fmin;y1:=CountBar(0,5,0.01,Fmin,v,true); x2:=0;y2:=0; SetColor(2); OutTextXY(500,50,'---- v(Ft) '); While x2<=Fmax do begin x2:=x1+1; y2:=CountBar(0,5,0.01,x2,v,true); MoveTo(round(MashX)+round(x1*MashX),GetMaxY div 2-round(y1*MashY)); LineTo(round(MashX)+round(x2*MashX),GetMaxY div 2-round(y2*MashY)); x1:=x2;y1:=y2; end; x1:=Fmin;y1:=CountBar(0,5,0.01,Fmin,a,false); x2:=0;y2:=0; SetColor(5); While x2<=Fmax do begin x2:=x1+1; y2:=CountBar(0,5,0.01,x2,v,false); MoveTo(round(MashX)+round(x1*MashX),GetMaxY div 2-round(y1*MashY)); LineTo(round(MashX)+round(x2*MashX),GetMaxY div 2-round(y2*MashY)); x1:=x2;y1:=y2; end; SetColor(5); OutTextXY(500,70,'---- a(Ft) '); {********************} readkey; CloseGraph; end. ********************** ********************** ********************** unit Integral; {$N+} INTERFACE uses crt; var dx,b,c,v,a,m:real; Function Fv(dt,vs,Ft:real):extended; Function Fa(dt,as,Ft:real):extended; Function CountBar(x1,x2,e,Ft,vv:real;av:boolean):extended; IMPLEMENTATION Function Fv(dt,vs,Ft:real):extended; begin Fv:=(Ft-b*vs+c*vs*vs*vs)/m*dt; end; Function Fa(dt,as,Ft:real):extended; begin Fa:=(Ft-b*as+c*as*as*as)/m; end; Function CountBar(x1,x2,e,Ft,vv:real;av:boolean):extended; var xx1,xx2,i:extended; c:longint; begin i:=0; for c:=1 to round(abs(x2-x1)/e) do if (av) then begin xx1:=Fv(x1+c*e,vv,Ft); xx2:=Fv(x1+c*e+e,vv,Ft); i:=i+abs(xx1+xx2)/2*e; end else begin xx1:=Fa(x1+c*e,vv,Ft); xx2:=Fa(x1+c*e+e,vv,Ft); i:=i+abs(xx1+xx2)/2*e; end; CountBar:=i; end; begin end. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 25.05.2007, 20:51 Оценка за ответ: 5

Вопрос № 88.609

Ответьте пожалуйста на такой вопрос. Почему при переходе в графический режим (в текстовом все нормально) в Turbo Pascale 7 вместо кириллицы пишет какую-то дребедень. Можно ли это как-нибудь исправить.

Отправлен: 25.05.2007, 23:54 Вопрос задал: Waldemar_83 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Решетник Д Здравствуйте, Waldemar_83! Найдите в интернете программу keyrus.com и запускайте программу в bat-нике после этого keyrus.com --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: Студент) Ответ отправлен: 26.05.2007, 09:53

Отвечает: LEXASOFT Здравствуйте, Waldemar_83! Дело в том что Borland не продумала для графического режима шрифты. Я обычно эту проблему решал своими шрифтами и выводом текста поточечно, с помощью PutPixel. Исходники к сожалению не смог найти. --------- Нет безвыходных положений...

Ответ отправил: LEXASOFT (статус: 5-ый класс) Ответ отправлен: 26.05.2007, 23:47

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru