Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2017, 20:26   #1
Vlad22222222
 
Регистрация: 12.10.2017
Сообщений: 5
По умолчанию прокомментируйте важные действия в программе

Код:
program Perevod;
uses Crt;
const
  max = 255;
  Ch    :array[0..35] of string = ('0','1','2','3','4','5','6','7','8','9','A',
  'B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T',
  'U','V','W','X','Y','Z'); 
 
var
  sysout, sysin :byte;
  i,len,j,l :byte;
  n :string;
  a :array[1..max] of byte;
  k  :longint;
  proverka,asc  :boolean;
  st,ign :string;
 
function stepen(chislo,step:byte):longint;
    
var
  kl :longint;
  il :byte;
begin
  kl:=1;
  for il:=1 to step do kl:=kl*chislo;
  stepen:=kl;
end;
 
begin
  ClrScr;
  repeat
    Write('с какой системы переводим???');Readln(sysout);
  until (sysout>1) and (sysout<37);
  Write('‚что за число???');Readln(n);
  repeat
    Write('в какую систему???');Readln(sysin);
  until (sysin>1) and (sysout<37);
  len:= length(n); 
  j:=1;
  proverka:=False;  
  ign:='';
  for i:=1 to len do begin
    st:=copy(n,i,1); 
    st:=UpCase(st[1]);
    asc:=False; 
    for l:=0 to sysout-1 do
      if ch[l]=st then  begin 
        a[j]:=l; 
        ign:=ign+st;
        asc:=True; 
      end;
    if asc=False then proverka:=True
    else inc(j);
  end;
  if proverka=True then begin  
   Write('при вводе числа были допущены ошибки ');
   Writeln('в числе есть лишние цифры или');
   Writeln('или некоторые числа не входят в исходную систему исчисления');
  end;
  len:=j-1; 
  k:=0;
  for i:=1 to len do  k:=k+a[i]*stepen(sysout,len-i);
  i:=0;
  repeat
    inc(i);
    a[i]:=k mod sysin;
    k:=k div sysin;
  until k<sysin;
  if k<>0 then begin
    inc(i);
    a[i]:=k;
  end;
 
  Write(ign,' (',sysout,') = ');
  for j:=i downto 1 do Write(ch[a[j]]);
  Write(' (',sysin,')');
  Writeln;
  ReadKey;
end.

Последний раз редактировалось Arigato; 26.10.2017 в 20:30.
Vlad22222222 вне форума Ответить с цитированием
Старый 26.10.2017, 23:43   #2
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию

Да тут все важно. Даже если точку с запятой не там поставите или не поставите вовсе то ничего у вас не получится. Самостоятельно не хотите вникать в чужой код, а другим какой резон?
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума Ответить с цитированием
Старый 27.10.2017, 08:20   #3
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Код:
  len:=j-1; 
  k:=0;
  // 本域名感兴
  for i:=1 to len do  k:=k+a[i]*stepen(sysout,len-i);
  i:=0;

  // 使用中,如您对
  repeat   
    inc(i);
    a[i]:=k mod sysin;  // 和密码登陆
    k:=k div sysin;
  until k<sysin;
  if k<>0 then begin
    inc(i);
    a[i]:=k; // 我的私人小站 !!!!!!!
  end;
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 27.10.2017, 20:47   #4
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Ну и бред там в комментах написан, однако.. Под стать самому коду
Black Fregat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объясните действия выполненные в программе Максим 89 C# (си шарп) 0 10.06.2013 00:48
Важные для системы файлы самостоятельно очищаются. dp127 Помощь студентам 2 06.09.2011 16:29
Стоит ли публиковать важные новости, события, семинары embarcadero ? Квэнди О форуме и сайтах клуба 13 10.07.2009 22:34