Перевод чисел, Обучение переводу Опции

[DeIYIoN]

Помогите пожалуста..полный завал...
Мне нужно написать обучающую программу по переводу чисел...
Она должна обучать переводу пользователя...
Совсем не знаю как это сделать..
Буду очень благодарен!!!

[volvo]

Переводу чисел КУДА? Каких чисел? Точнее можно изъясняться?

[DeIYIoN]

Перевод из одной системы счисления в другую...системы счисления могут быть разными...

[volvo]

А теперь - уточни, что именно ты подразумеваешь под

Она должна обучать переводу пользователя...

Вот я - пользователь, что должна делать программа, если я хочу обучиться переводу чисел из СС с основанием 10 в СС с основанием 7? Пошагово, пожалуйста...

Это ни разу не придирка, ты просто написал "обучить", но чтоб обучить одного, достаточно показать ему результат и написать алгоритм (словами), а чтоб научить другого - надо рассказывать, какая цифра откуда взялась, и еще цветную "мультипликацию" сделать, чтоб он понял... Итак, что должна делать программа в моем случае?

Опять же, числа - только целые, или возможны еще и вещественные?

[DeIYIoN]

Т. е. если конечно я сам понимаю правильно...она должна показывать как осуществляется перевод числа из одной системы счисления в другую пошагово...т.е. что как бы делал я что бы перевести это чило в ручную..
Наверно необхадимо сделать что то вроде меню..с выбором пути перевода(из n-ой в 10-ную, из 10-ной в n-ую)...у меня сложность и возникла с тем что я не знаю как сделать программу обучающей...

Добавлено через 2 мин.
..да забыл...нужно хотя бы сделать только для целых чисел...

Добавлено через 3 мин.
..да и ещё забыл...было бы конечно не плохо с, как ты написал, "мультипликацией"(это сложно наверно очень)...но наверно достаточно было бы что б был написан алгоритм перевода и ответ...

[Lapp]

как сделать программу обучающей...
...
было бы конечно не плохо с, как ты написал, "мультипликацией"(это сложно наверно очень)...но наверно достаточно было бы что б был написан алгоритм перевода и ответ...

Я шибко звиняюсь за оффтоп, но странна мне эта идея весьма.. Забавен сам ход мысли преподавателя, который такое задает. Так и видится, что он насмотрелся всяких флэшек подобного рода, и в его сознании они подменили суть мишурой..

[DeIYIoN]

Так значит никто мне не поможет....жаль...если не здам прогу могу собираться в армию...

Сообщение отредактировано: DeIYIoN - 3.06.2009 23:20

[Lapp]

Так значит никто мне не поможет....жаль...если не здам прогу могу собираться в армию...

Эй, cool down, pal)).
Зачем так? Поможем, конечно. Главное, чтоб ты помогал нам помогать тебе)). Я подумаю..

PS
Ты бы лучше убрал первую строчку...

[DeIYIoN]

Так значит никто мне не поможет....жаль...если не здам прогу могу собираться в армию...


Добавлено через 8 мин.
Сори за повтор...не совсем разобрался как удалять первуюю строчку..

Добавлено через 1 мин.

Эй, cool down, pal)).
Зачем так? Поможем, конечно. Главное, чтоб ты помогал нам помогать тебе)). Я подумаю..

Просто я уже отчаялся...

Сообщение отредактировано: DeIYIoN - 3.06.2009 23:15

[Lapp]

Просто я уже отчаялся...

Ты можешь для начала посмотреть в FAQе про перевод и сделать просто прогу для перевода? Потом ее доработаем для обучения.

[DeIYIoN]

Прога для перевода есть...написано правда коряво, но...

[Lapp]

Прога для перевода есть

Дык. Давай..

[DeIYIoN]

коряво потому что писал сам...

Вот... (Показать/Скрыть)

program schisleniya;
uses crt;
label 1,2,3,4;
var
a:char;
b2,ss,b,s:string;
os,c,e,ch,p,i,j,n,k,t:integer;

procedure goto_xy(x,y:byte); assembler;
asm
  mov ah,2
  xor bh,bh
  mov dh,y
  mov dl,x
  dec dh
  dec dl
  int 10h
end;

procedure Zast;
  const
     LU = #218; RU = #191; LD = #192; RD = #217;
     H = #196; V = #179;
     X1 = 6; Y1 = 10; X2 = 83; Y2 = 35;
     Txt = 'Press any key';
  Var
     k : integer;
  begin
     clrscr;
     TextBackground(11);
     clrscr;
     Window(X1, Y1, X2, Y2);
     TextBackground(8);
     TextColor(Yellow);
     Clrscr;

     Writeln('');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     Writeln('        ******  ******  *****   ******  ******     ****     ******');
     Writeln('        *    *  *       *    *  *       *     *   *    *    *    *');
     Writeln('        *    *  *       *    *  *       *     *   *    *    *    *');
     Writeln('        *    *  ****    *****   ****    ******    *    *    *    *');
     Writeln('        *    *  *       *       *       *     *   *    *    *    *');
     Writeln('        *    *  *       *       *       *     *   *    *  **********');
     Writeln('        *    *  ******  *       ******  ******     ****   *        *');
     Writeln('                                                                     ');
     Writeln('                  *    *   *     *   ****   ******     *');
     Writeln('                  *    *   *    **  *    *  *         * *');
     Writeln('                  *    *   *   * *  *       *        *   *');
     Writeln('                  ******   *  *  *  *       ****     *   *');
     Writeln('                       *   * *   *  *       *        *   *');
     Writeln('                       *   **    *  *    *  *        *   *');
     Writeln('                       *   *     *   ****   ******   *   *');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     GotoXY((X2-X1-Length(Txt)) div 2, Y2-Y1-1);
     Write(Txt);
     Readkey;
     TextMode(CO80);
  end;
begin
Zast;

1: clrscr; ch:=0; ss:='';
writeln('1. PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA VO VVEDENNYU');
writeln;
writeln('2. PEREVOD CHISEL IZ VVEDENNOY SISTEMU SCHISLENIYA V 10-nuy');
writeln;
write('viberete neobhadimoe deistvie (1/2) '); readln(t);
if t=1 then goto 3;
if t=2 then goto 4
else  writeln;
writeln('Takogo punkta v menu net!!!');
ReadKey;
goto 1;

3: clrscr; s:='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_';{36}
writeln('PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA VO VVEDENNYU');
writeln;
writeln('Vvedite chislo');
read(n);
writeln('Vvedite sistemy 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('polychilos ',ss);
goto 2;

4: clrscr;
writeln('PEREVOD CHISEL IZ VVEDENNOY SISTEMU SCHISLENIYA V 10-nuy');
writeln;
writeln('Vvedite sistemy schisleniya');
readLN(k);
writeln('Vvedite chislo v vvedennoy sisteme schisleniya');
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('polychilos ',ch);

2: goto_xy(1,9); write('Џа®¤®«¦Ё¬, (Y/N)? '); read(a);
case a of
'Y','y': goto 1;
'N','n': halt
else goto 2;
end;
End.

Сча попробую изменить используя информацию которую нашел тут...

[DeIYIoN]

Нашел темы В FAQ про перевод чисел с двумя функциями перевода..и как их объеденить в одной программе..там ведь переменая "n" разных типов....я не очень силен в Поскале...

Вот что у меня получилось... (Показать/Скрыть)

program schisleniya;
uses crt;
label 1,2,3,4;
var
a:char;
i,t:integer;
radix: longint;
n:string;

procedure goto_xy(x,y:byte); assembler;
asm
  mov ah,2
  xor bh,bh
  mov dh,y
  mov dl,x
  dec dh
  dec dl
  int 10h
end;

procedure Zast;
  const
	 LU = #218; RU = #191; LD = #192; RD = #217;
	 H = #196; V = #179;
	 X1 = 6; Y1 = 10; X2 = 83; Y2 = 35;
	 Txt = 'Press any key';
  Var
	 k : integer;
  begin
	 clrscr;
	 TextBackground(11);
	 clrscr;
	 Window(X1, Y1, X2, Y2);
	 TextBackground(8);
	 TextColor(Yellow);
	 Clrscr;

	 Writeln('');
	 Writeln('																	');
	 Writeln('																	');
	 Writeln('																	');
	 Writeln('		******  ******  *****   ******  ******	 ****	 ******');
	 Writeln('		*	*  *	   *	*  *	   *	 *   *	*	*	*');
	 Writeln('		*	*  *	   *	*  *	   *	 *   *	*	*	*');
	 Writeln('		*	*  ****	*****   ****	******	*	*	*	*');
	 Writeln('		*	*  *	   *	   *	   *	 *   *	*	*	*');
	 Writeln('		*	*  *	   *	   *	   *	 *   *	*  **********');
	 Writeln('		*	*  ******  *	   ******  ******	 ****   *		*');
	 Writeln('																	 ');
	 Writeln('				  *	*   *	 *   ****   ******	 *');
	 Writeln('				  *	*   *	**  *	*  *		 * *');
	 Writeln('				  *	*   *   * *  *	   *		*   *');
	 Writeln('				  ******   *  *  *  *	   ****	 *   *');
	 Writeln('					   *   * *   *  *	   *		*   *');
	 Writeln('					   *   **	*  *	*  *		*   *');
	 Writeln('					   *   *	 *   ****   ******   *   *');
	 Writeln('																	');
	 Writeln('																	');
	 Writeln('																	');
	 GotoXY((X2-X1-Length(Txt)) div 2, Y2-Y1-1);
	 Write(Txt);
	 Readkey;
	 TextMode(CO80);
  end;

function FromDec(n, radix:longint):string;
var s:string;
const digit: string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
	s:=digit[(n mod radix)+1]+s;
	n:=n div radix;
  until n=0;
  FromDec:=s;
end;

function ToDec(n:string; radix:longint):longint;
var m, i:longint;
const
digit:string[16]='0123456789ABCDEF';
begin
   m:=0;
   while(n[1]='0') and (length(n)>1) do delete(n,1,1);
   for i:=1 to length(n) do
   m:=m*radix+pos(n[i],digit)-1;
   ToDec:=m;
end;

begin
Zast;

writeln('1. PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA VO VVEDENNYU');
writeln;
writeln('2. PEREVOD CHISEL IZ VVEDENNOY SISTEMU SCHISLENIYA V 10-nuy');
writeln;
write('viberete neobhadimoe deistvie (1/2) '); readln(t);
if t=1 then goto 3;
if t=2 then goto 4
else  writeln;
writeln('Takogo punkta v menu net!!!');
ReadKey;
goto 1;

3: clrscr;
writeln('PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA V "G" SISTEMY SCHISLENIYA');
writeln;

writeln('Vvedite chislo');
read(n);
writeln('Vvedite sistemy schisleniya');
read(radix);
writeln('polychilos ',FromDec(n,radix));
goto 2;

4: clrscr;
writeln('PEREVOD CHISEL IZ "G" SISTEMU SCHISLENIYA V 10-nuy');
writeln;
writeln('Vvedite sistemy schisleniya ');
readln(radix);
writeln('Vvedite chislo ');
readln(n);
writeln('polychilos ',ToDec(n,radix));

2: goto_xy(1,9); write('Џа®¤®«¦Ё¬, (Y/N)? '); read(a);
case a of
'Y','y': goto 1;
'N','n': halt
else goto 2;
end;
End.

[Lapp]

Я долго думал, как "обучать", и придумал нечто совсем простое. Но мне кажется, что основная идея тут соблюдена. Программа не дописана, поскольку я решил, что надо спросить, пойдет ли такой стиль.

type
var
  a: string;
  b,v: LongInt;
  d: integer;
  c: char;
  i,n: integer;
  Good: boolean;
  Digs: set of char;

function DigVal(c: char): integer;
begin
  if c<#58 then DigVal:=Ord©-48 else DigVal:=Ord©-54
end;

begin
  Write('Введите основание исходной системы счисления (от 1 до 37): ');
  ReadLn(b);
  if b>9 then d:=9 else d:=b-1;
  WriteLn('В системе с основанием ',b,' для ввода числа вы можете использовать');
  Write('цифры от 0 до ',d);
  if b=11 then Write(' и латинскую букву A')
  else if b>11 then Write(' и латинские буквы от A до ',Chr(b+54));
  WriteLn;
  if b>10 then WriteLn('при этом буквы имеют такие числовыме значения:');
  for i:=10 to b-1 do WriteLn(Chr(i+55),' = ',i);
  WriteLn;

  Digs:=[];
  for c:='0' to Chr(d+48) do Include(Digs,c);
  for c:='A' to Chr(b+54) do Include(Digs,c);

  repeat
    Write('Введите число для перевода: ');
    ReadLn(a);
    for i:=1 to Length(a) do a[i]:=UpCase(a[i]);
    Good:=true;
    for i:=1 to Length(a) do Good:=Good and (a[i] in Digs);
    if not Good then WriteLn('Вы ввели неправильный символ. Повторите ввод.');
  until Good;
  n:=Length(a);

  WriteLn('Теперь переведем число в машинное представление.');
  WriteLn('Для этого воспользуемся формулой:');
  WriteLn('m = a[0] + a[1]*b + a[2]*b^2 + a[3]*b^3 + ... + a[n]*b^n');
  WriteLn('Здесь символ ^ означает возведение в степень,');
  WriteLn('цифры в числе пронумерованы справа налево.');
  WriteLn;
  WriteLn('В нашем случае это будет выглядеть так:');
  for i:=1 to n do begin
    if i>1 then Write(' + ');
    Write(DigVal(a[n-i+1]));
    if i>1 then Write('*',b);
    if i>2 then Write('^',i-1);
  end;

  v:=DigVal(a[1]);
  for i:=2 to n do v:=v*b+DigVal(a[i]);

  WriteLn;
  WriteLn('Произведя вычисления, получим:');
  WriteLn(v);
  WriteLn('- тут использована десятичная запись.');

  WriteLn('Теперь введите основание системы счисления,');
  Write('в которую вы хотите преревести ваше число (от 1 до 37): ');
  ReadLn(b);
  WriteLn;
  WriteLn('Перевод будем осуществлять в цикле...');

  ReadLn
end.

Естественно, всяких красивостей можно добавить. Типа чистить экран, разноцветность всякая..

[DeIYIoN]

А можно как нить переносить текст сразу в Паскаль...не переписывая вручную..?

[Lapp]

А можно как нить переносить текст сразу в Паскаль...не переписывая вручную..?

copy - paste?

а, понял, у тебя кодировка слетает..
Ты FAR'ом не пользуешься?

[DeIYIoN]

Нет..может и есть где..

Добавлено через 1 мин.
Нашел...

[Lapp]

скачай и установи себе FAR
http://farmanager.com/download.php?l=en

1. Скопируй текст программы (выделить и Ctrl-C)
2. в Фаре начни новый файл Shift-F4
3. Сделай кодировку DOS до вставки
4. Вставь (Ctrl-V)
5. Сохрани с нужным названием (F2)
6. выйди и зайти в ТР
7. открой этот файл в ТР

Добавлено через 1 мин.
Менять кодировку клавишей F8, кодировка написана в верхней строке

[DeIYIoN]

Долго буду смотреть..потому что у меня в Паскале нет руского языка..так что я пока переписываю текст что б понять программу...

Добавлено через 10 мин.
Всё супер...можно доделывать программу...