Jater

Elena_function2

Dec 12th, 2012
63
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Дано число в шестнадцатеричной  системе счисления.
  2. Проверить правильность ввода этого числа.
  3. При правильном вводе перевести число в десятичную систему счисления.}
  4. program Gde_to_tam_daleko_est_ty;
  5. var d,s,i,j,c,f:integer; h:string; z:boolean;
  6.  
  7. function Hex1(he:string):boolean;
  8. begin
  9.     s:=0;
  10.     for i:=1 to length(he) do
  11.         if ((ord(he[i])>47) and (ord(he[i])<58))
  12.         or ((ord(he[i])>64) and (ord(he[i])<71))
  13.         or ((ord(he[i])>96) and (ord(he[i])<103)) then
  14.             s:=s+1;
  15.     if s=length(he) then Hex1:=true
  16.     else Hex1:=false;
  17. end;
  18.  
  19. function pow(n:integer):integer;
  20. begin
  21.     s:=1;
  22.     if n=0 then pow:=1
  23.     else
  24.     for j:=1 to n do
  25.         s:=s*16;
  26.     pow:=s;
  27.    
  28. end;
  29.  
  30. begin
  31.     write('Vvedi chislo: ');
  32.     readLN(h);
  33.     c:=0;
  34.     if Hex1(h) then
  35.         begin
  36.         for i:=1 to length(h) do
  37.             begin
  38.             f:=pow(length(h)-i);
  39.             if ((ord(h[i])>47) and (ord(h[i])<58)) then
  40.                 c:=(ord(h[i])-48)*f+c;
  41.             if ((ord(h[i])>64) and (ord(h[i])<71)) then
  42.                 c:=(ord(h[i])-55)*f+c;
  43.             if ((ord(h[i])>96) and (ord(h[i])<103)) then
  44.                 c:=(ord(h[i])-87)*f+c;
  45.             end;
  46.         writeLN(h,'(16) =',c,'(10)');
  47.         end
  48.     else writeLN('Ne pravelnuy vvod! =\');
  49.     read;
  50. End.
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×