Здравейте... един въпрос относно паскалеско.....
как мога да отделя при въвеждане - правилна от неправилна информация.
Например въвеждам масив от числа, но някой ако въведе буква - ще даде грешка.... може ли да ми приведете малък пример за ориентация :)
Благодаря предварително....
Нали никой не се е родил научен....
но.... :))))

We`ll Be First

Съдържаниет е скрито
Влезте за да го видите

За Паскал - като свалиш проверката за входно-изходни грешки.
Пример:

var t:real;
..........
{$I-} {Маха се проверката за входно-изходни грешки}
If IOResult <> 0 then Write('Грешка при въвеждането!'); {Правиш собствена проверка на I/O}
{ Ако искаш да разбереш каква точно е грешката трябва да си направиш собствана процедурка, която изследва стойността на IOResult и връща подходящо съобщение. Ако е 0 - всичко е ОК }
{$I+}

В Делфи по-удобно е да обработваш генерираните изключения. Идеята е горе-долу същата.

Това е пример за PASKAL
Процедурата връща винаги стринг, който се отсява в зависимост от стойностите на променливите D и G от тип Char. В пример1 са зададени стойности '0' до '9', а в пример2 'a' do 'z'.
Може да направиш още много подобрения във функцията.
Това са само дребни насоки.

uses Crt,Drivers;

function RetEvent(D,G:Char;Row,Col:integer):string;
var
Event:TEvent;
AStr:string;
begin
AStr:='';
repeat
GetKeyEvent(Event);
if (Event.What<>0) then
if (EVent.CharCode in [D..G]) then
AStr:=AStr+Event.CharCode
else
if Lo(Event.KeyCode) = 8 then
AStr:=Copy(AStr,1,Pred(length(AStr)));
GotoXY(Col,Row);
Write(AStr);
ClrEol;
until Event.KeyCode = kbEnter;
RetEvent:=AStr;
end;

var
AStr:string;
BStr:string;
begin
ClrScr;
AStr:=RetEvent('0','9',1,1);
BStr:=RetEvent('a','z',2,1);
end.

злоупотреба с чужд псевдоним
и по-важно - извън темата

Редактирано от LeoS на 10.04.01 10:18.

Аз ти се извинявам, че не го забелязах веднага и го допуснах.
Но - всички грешим ...

.

Съдържаниет е скрито
Влезте за да го видите

Благодаря ти много прятел :).....
определено съвета ти ще ми помогне :).... сега ще го разучавам:)......
това за Москва.... :))))) ммм ами някой ме е познал от профила :).... и знае че съм там :).... та се е закачил :).....
Още веднъж мерси!

We`ll Be First

Съдържаниет е скрито
Влезте за да го видите