yoda17

nie jaze ale tam jest jakies *10 i cos tam -48 mozna troche jasniej?

hej wie ktos moze o co chodzi w tym programie chodzi mi o linijkę 11,12,13 od góry Program napisany w pascalu program Numer; Uses Crt; var ciag: string; var liczba,i: integer; var a: char; begin ClrScr; Repeat Writeln('Podaj numer telefonu zatwierdzony ENTERem'); Readln(ciag); liczba:=100*(ord(ciag[1])-48); liczba:= liczba+10*(ord(ciag[2])-48); liczba:= liczba+(ord(ciag[3])-48); ClrScr; if (liczba=277) then Writeln ('Numer znajduje sie w sieci TPsa') Else if (liczba=640) then Writeln ('Numer znajduje sie w sieci Dialog') Else Writeln ('Podales zly numer'); Delay(20000); Writeln; Writeln ('S zakancza program, alby kontynuowac kliknij na inny znak'); Readln(a); until (a='s'); end.

Hej Mam pewien problem z napisaniem programu w pascalu Początek jako tako już mam ale nie wiem co dalej ma ktoś moze pomysł jakich funkcji tzreba tu użyć? Program który sprawdza poprawną budowę numeru telefonu podanego przez użytkownika a taże sprawdza czy jest to numer w Dialogu lub TPSA dla mojego rejonu (czyli dialog 640-xx-xx, TPSA 277-xx-xx) HELP!!!!!!!!!!!!!!!!!!!!! Pozdro