Informatika gyűjtemény

Egy szinttel feljebb pr_alien.pas

2004050607080910

<<  1. óra  >>

<<  Idegen számok  >>

NézetNyomtat

pr_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: us-ascii
Méret: 1 KB
program szrend;

var i,j,k:integer;//ciklusvaltozok
v1:integer;//elvalasztasok helyei
t1:text;//a bemeneti es kimeneti filek
s:string;//segedvaltozo a beolvasott soroknak
s1,s2,s3,s4:string;//szam, es szamrtendszerek kodjai, es az eredmeny forditva 
szam:longint;//ebbe taroljuk a szamot, amit szamoltunk...
db:integer;//a tesztadatok darabszama

begin
assign(t1,'alienlarge.in');
reset(t1);
readln(t1,db);

for i:=1 to db do begin

readln(t1,s);

v1:=1; s1:='';                          //szetdarabolom oket stringekre
while s[v1] <> ' ' do
begin s1:=s1+s[v1]; v1:=v1+1; end;

v1:=v1+1; s2:='';
while s[v1]<>' ' do
begin s2:=s2+s[v1]; v1:=v1+1; end;

v1:=v1+1; s3:='';
while v1<length(s)+1 do
begin s3:=s3+s[v1]; v1:=v1+1; end;



szam:=0;                               //atalakitom integer szamrendszerbe
for j:=1 to length(s1) do begin
szam:=szam*length(s2);

k:=1;
while s2[k]<>s1[j] do k:=k+1;
szam:=szam+k-1;

end;



s4:='';                                 //atalakitom celszamrendszerbe
while szam>0 do begin

s4:=s4+s3[(szam mod length(s3))+1];
szam:=szam div length(s3);

end;

                                        //ki is irjuk oket. ..
write('Case #',i,': ');

for j:=length(s4) downto 1 do write(s4[j]); //csak eddig forditva volt...
writeln();

end;

close(t1);
end.
(Vissza)