Коментарии к программе

@Vexel · Регистрация: 18.10.2009

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

Помогите написать программу перевода с 2 й системы счисления в 16 ричную систему счисления сделать текст программы с коментариями. Заранее благодарен!

@Snoopy · 01.11.2009, 19:36

перевод с 2 в 16

@Vexel · 01.11.2009, 19:39 **[ТС]**

Напишите пожалуйста комментарии к этой программе

Pascal

uses
  crt;
var
  i,s,k,m,x,y: integer;
  j: char;
  n: string;
  a: array [1..10] of char;
begin
  clrscr;
  write('Wwedite chislo: ');
  readln(n);
  y:=0;
  m:=-1;
  while n<>'' do
  begin
    k:=0;
    for i:=1 to 4 do
      if n<>'' then
      begin
        x:=1;
        inc(m);
        j:=n[length(n)];
        delete(n,length(n),1);
        for s:=1 to m do
          x:=x*2;
        k:=k+(ord(j)-48)*x;
      end
      else
        break;
    inc(y);
    case k of
      0..9: a[y]:=chr(k+48);
      10: a[y]:='A';
      11: a[y]:='B';
      12: a[y]:='C';
      13: a[y]:='D';
      14: a[y]:='E';
      15: a[y]:='F';
    end;
    m:=-1;
  end;
  for i:=y downto 1 do
    write(a[i]);
  readkey;
end.

@Vexel 12 / 12 / 2 Регистрация: 18.10.2009 Сообщений: 158
		1
	Коментарии к программе 01.11.2009, 19:26. Показов 1040. Ответов 2 Метки нет (Все метки) Помогите написать программу перевода с 2 й системы счисления в 16 ричную систему счисления сделать текст программы с коментариями. Заранее благодарен! 0

@Snoopy 1915 / 1065 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	01.11.2009, 19:36	2
	перевод с 2 в 16 0

	01.11.2009, 19:39

Коментарии к программе

Решение