Results 1 to 4 of 4
Thread: Ìîëáà çà ïîìîù
Hybrid View
-
5th June 2005 19:15 #1Registered User
Join Date: Jun:2003
Location: Ñòàðà Çàãîðà
Posts: 416
Ìîëáà çà ïîìîù
èìàì åäíà ìíîãî ãîëÿìà ìîëáà:
Òðÿáâà äà íàïèøà ïðîãðàìà íà Pascal 6.0 (òðÿáâà íà ñåñòðà ìè çà óíèâåðñèòåòà), â êîÿòî äà ñå âúâåæäàò ÷èñëà, èçïèñàíè ñ ðèìñêè öèôðè (äî 1000 êàòî ÷èñëî)è ïîñëå äà ñå ñáîðóâàò.
Àêî íÿêîé ìîæå äà ïîìîãíå, èìà áèðà, à ìîæå è ïîâå÷å. Çíàì, ÷å âñè÷êè ñòå çàåòè, íî àêî èìàòå âúçìîæíîñò ...
-
5th June 2005 19:46 #2
×è÷î ãóãúë ìîæå äà ïèøå òàêèâà à íå ïèå è áèðà.

P.S. âçåìè ïèòàé â êëóá ïðîãðàìèñòè â clubs.dir.bg
äà âèäèø êàêâè îðèãèíàëíè îòãîâîðè ìîæå äà ñúáåðåø
Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà
In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí
-
5th June 2005 20:10 #3Registered User
Join Date: Jun:2003
Location: Ñòàðà Çàãîðà
Posts: 416
çà ñúæàëåíèå íå íàìåðèõ íèùî ñ google
-
6th June 2005 09:25 #4íå ãàðàíòèðàì ÷å ùå âúðâè â TP6, íî â Äåëôè áà÷êàCode:
function ConvertRom2Arab(N:string):Integer; {-------------------------------------------} function Roman(aValue:string):Integer; var X:Char; begin X:=UpperCase(aValue)[1]; case X of 'M': Result:=1000; 'D': Result:=500; 'C': Result:=100; 'L': Result:=50; 'X': Result:=10; 'V': Result:=5; 'I': Result:=1; else Result:=0; end;//case end;{Roman} {-------------------------------------------} var I:Integer; lvRet:Integer; begin lvRet:=0; I:=1; while I<=Length(N)-1 do begin If(Roman(N[I]) < Roman(N[I+1]))then begin lvRet:=lvRet+(Roman(N[I+1])-Roman(N[I])); Inc(I); end else begin lvRet:=lvRet+Roman(N[I]); end;//If Inc(I); end;//while If(I=Length(N))then lvRet:=lvRet+Roman(N[I]); Result:=lvRet; end;{ConvertRom2Arab}




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè