Системы счисления.

@Abuka · Регистрация: 16.06.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте! Подскажите пожалуйста.
Что делает и как работает строка
1. s:chr(d+ord('0'))+s;
2. if s='' then s:='0';
3. Как выводятся числа в обратном порядке.
4. Почему программа выводи числа в 5,6,7 системе одинаковые.
Собстенно сама программа:

Pascal

program TRANSLATE_IN_3;
var s:string;
i,d,p:integer;
n:longint;
begin
write('‚Введите число:');
readln(n);
for p:=5 to 7 do 
begin
while n>0 do 
begin
d:=n mod p; 
s:=chr(d+ord('0'))+s; 
n:=n div p; 
end;
if s='' then s:='0';
writeln('в',p','-ричной',s);
end;
readln;
end.

@Puporev · 16.08.2010, 13:23

Pascal

program TRANSLATE_IN_3;
uses crt;
var s:string;
    i,d,p:integer;
    n,m:longint;
begin
clrscr;
write('Введите число:');
readln(n);
for p:=5 to 7 do 
 begin
  s:='';m:=n;//строка пустая, запомним исходное число
  while m>0 do
   begin
    d:=m mod p;//последняя цифра от деления на основание
    s:=chr(d+ord('0'))+s;//пишем в начало строки символ этой цифры, 
                          //его код на 48(ord('0')) больше цифры'
    m:=m div p;//целая часть от деления
   end;
  if s='' then s:='0';
  writeln('в ',p,'-ричной = ',s);
 end;
readln;
end.

@Abuka · 16.08.2010, 14:15 **[ТС]**

Большое спасибо!

Добавлено через 30 минут
А что означает строчка
if s='' then s:='0';

@Rockedit · 16.08.2010, 14:16

Означает, что если строка s пустая, присвоить ей значение '0'.

@Abuka · 16.08.2010, 18:32 **[ТС]**

Спасибо!

Добавлено через 2 часа 28 минут
Программа переводит введенное число из любой системы счисления в 10.
В некоторых моментах я не понимаю(не знаю) значение и смысл данных операций , если можно отпишите пожалуйста комментарии где стоит знак вопрос.

Pascal

program schisleniya;
uses crt;
var
b2,ss,b,s:string;
os,c,e,ch,p,i,j,n,k:integer;
begin
clrscr;
s:='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_';{36}
writeln('VVEDITE CHISLO');
read(n);
writeln('VVEDITE SISTEMU SCHISLENIYA');
read(k);
while n>=1 do begin
p:=n mod k;
if p>=10 then b:=copy(s,p,1) else str(p,b);                      ?
ss:=b+ss;                                                                   ?
n:=n div k;
end;
writeln(ss);
writeln('VVEDITE SISTEMU SHISLENIYA');
readLN(k);
writeln('VVEDITE CHISLO');
readln(sS);
c:=length(ss);
for i:=1 to c do begin
b:=copy(ss,i,1);
for j:=1 to 36 do begin
b2:=copy(s,j,1);                                         ?
if b=b2 then os:=j;                                      ?
end;
ch:=k*ch+os;                                              ?
end;
writeln(ch);
readkey;                                                    ?
end.

@Mawrat · 17.08.2010, 12:00

Abuka, Copy() здесь нет смысла использовать. Удобнее заменить:
b:=copy(s,p,1) на: b := s[i]
b:=copy(ss,i,1) на: b := ss[i]
b2:=copy(s,j,1) на: b2 := s[j]
Конструкцию:

Pascal

for i:=1 to c do begin
  b:=copy(ss,i,1);
  for j:=1 to 36 do begin
    b2:=copy(s,j,1);                                         ?
    if b=b2 then os:=j;                                      ?
  end;
  ch:=k*ch+os;                                              ?
end;

заменить на:

Pascal

for i:=1 to c do begin
  for j:=1 to 36 do begin
    if ss[i] = s[j] then os:=j;                                      ?
  end;
  ch:=k*ch+os;                                              ?
end;

@Abuka · 18.08.2010, 01:51 **[ТС]**

Спасибо большое! Щас сделаем.

Добавлено через 1 час 18 минут
Опишите пожалуйста как работает перевод числа в строку на этом наброске.

Pascal

while n16>0 do
    begin
    d:=n16 mod 16;
    if d in [0..9] then
        s:=chr(d+ord('0'))+s
    else
        s:=chr(d-10+ord('A'))+s;
    n16:=n16 div 16;
    end;

@Puporev · 18.08.2010, 07:59

Pascal

while n16>0 do //пока число не ноль
        begin
        d:=n16 mod 16;//берем остаток от деления на 16
        if d in [0..9] then//если 0-9
                s:=chr(d+ord('0'))+s//в начало строки пишем символ этой цифры
        else
                s:=chr(d-10+ord('A'))+s;//если 10-15, пишем в начало строки A-F
        n16:=n16 div 16;//берем целую часть от деления и все повторяем
        end;

@Abuka 0 / 0 / 0 Регистрация: 16.06.2010 Сообщений: 35
	16.08.2010, 14:15 [ТС]	3
	Большое спасибо! Добавлено через 30 минут А что означает строчка if s='' then s:='0'; 0

@Rockedit Автор FAQ 1800 / 612 / 37 Регистрация: 22.12.2009 Сообщений: 1,544
	16.08.2010, 14:16	4
	Означает, что если строка s пустая, присвоить ей значение '0'. 0

Опции темы