Informatika gyűjtemény

Egy szinttel feljebb fr_alien.pas

2004050607080910

<<  1. óra  >>

<<  Idegen számok  >>

NézetNyomtat

fr_alien.pas (Vissza)
Az alábbi letöltési lehetőségek közül választhatsz: (segítség)
Karakterkódolás:
Sortörés:
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: utf-8
Méret: 921 byte
program szamrendszer;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var szam, eredeti, kimeneti: string;
    i, j, k, l, eredmeny : integer;
    m : array[1..65]of char;
begin
  { beolvas }
  readln(szam);
  readln(eredeti);
  readln(kimeneti);
  {length(eredeti) ->számrendszer
  megkeres számjegyek eredetiben(1-et le kell vonni)
  kiír}
  eredmeny:=0;

  for j := 1 to length(szam) do
     begin
     i:=1;
     while eredeti[i]<>szam[j] do
          begin
          i:=i+1;
          end;
     i:=i-1;
     eredmeny:= eredmeny*length(eredeti)+i;
     end;
  {eddig jó volt - átírtuk tízes számrendszerbe}
  {length(kimeneti)->kimeneti számrendszer}
  k:=1;
  while eredmeny>0 do
    begin
       m[k] := kimeneti[(eredmeny mod length(kimeneti))+1];
       k:=k+1;
       eredmeny := eredmeny div length(kimeneti);
    end;
    k:=k-1;
    for l := 0 to k - 1 do
    begin
    write(m[k-l]);
    end;
  readln;
end.
(Vissza)