Системы счислений. Паскаль

[Fifo4ka]

Доброе время суток,
уважаемые посетители этого замечательного сайта !!

Очень нужна ваша помощь в дописании кода программы перевода чисел из одной СС в другую СС.

Вот программка, которая переводит целые числа с 10-ной СС в произвольную и с произвольной СС в 10-ную:

uses crt;
var
b2,ss,b,s:string;
os,c,e,ch,p,i,j,n,k:integer;

begin
clrscr;
s:='0123456789ABCDEFGHIJ';{20}


  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.

Но трабл в том, что необходимо переводить и дробную часть числа. Причем, если дробная часть отделяется не через точку, то программа не должна закрываться, а должна писать ошибку. И необходим запрет на ввод букв основания СС.
Как это доделать подскажите, пожалуйста.

[NeshSoft]

Причем, если дробная часть отделяется не через точку, то программа не должна закрываться, а должна писать ошибку. И необходим запрет на ввод букв основания СС.

Посимвольно проверяем чтобы в числе не было лишних символов, а также считаем сколько в числе '.', если точек больше 1 или присутствуют лишние символы - выводим ошибку, иначе число введено верно, начинаем его обрабатывать

[Fifo4ka]

и все же какой алгоритм перевода дробной части??

[Greblin]

Fifo4ka
Покажу на примере алгоритм перевода дробной части. Пусть нам надо число 0.635 из 10ой системы перевести в двоичную
1. 0.635 * 2 = 1.27
теперь целую часть пишем пишем, а с дробной повторяем |0.1
2. 0.27 * 2 = 0.54 |0.10
3. 0.54 * 2 = 1.08 |0.101
4. 0.08 * 2 = 0.16 |0.1010
и т.д. Выполняем этот цикл, до тех пор, пока дробная часть не станет равна 0, или же мы не получим дробную часть, которая уже встречалась ранее (в этом случае будет бесконечная периодическая дробь)
Ну вот, соответственно допустим для 16ой системы счисления надо умножать на 16

[Fifo4ka]

вот, вроде с алгоритмом перевода дробной части разобралась, только на Си переделала:

#include <math.h>
#include <conio.h>
#include <stdio.h>

void cel (int x,int y) {
int Rez[20],i=0;
  while (x>=y) {
   Rez[i]=x%y;
   x=x/y;
   i=i+1;
  }
  Rez[i]=x;
  printf ("Rezul:");
  for (int j=i;j>=0;j--)
    printf ("%d",Rez[j]);
  }

void drob(float x,int y) {
int Rez[20],buf,k=0;
float eps,dec=0, r=x;
  do {
    buf=(int)(x*y);
    Rez[k]=buf;
    x=x*y-Rez[k];
    k=k+1;
  } while(k<4);
printf (".");
  for (int j=0;j<k;j++)
    printf ("%d",Rez[j]);
  for (j=0;j<k;j++){
    dec=dec+Rez[j]*1/pow(y,j+1);
  }
  printf ("\ndec=%f",dec);
eps=(r-dec)*100;
printf ("\nPogreshnost: %f%",eps);
}

void main () {
int x,y;
float d;
int running=1;
  while (running) {
  clrscr();
  printf ("1-Vvod s klaviaturi\n");
  printf ("2-Vvod iz fayla\n");
  printf ("3-Raschet i vivod rezultatov,pogresnost\n");
  printf ("4-Vihod");
  int ch=getch();
    if (ch=='1') {
      clrscr();
      printf ("Vvedite celuyu chast:\n");
      scanf ("%d",&x);
      printf ("Vvedite drobnuyu chast:\n");
      scanf ("%f",&d);
      printf ("Vvedite osnovanie sistemi\n");
      scanf ("%d",&y);
      if (y>20) {
        printf ("\nVvedite druguyu sistemu schisleniya!!!");
        scanf ("%d",&y);
      getch();
      }
    }
      if (ch=='2') {
      clrscr();
      printf ("Vvedite osnovanie sistemi\n");
      scanf ("%f",&d);
      char s[10];FILE *pf;
      printf("\nVvedite imya fayla, naprimer fail ss.txt)\n");
      scanf("%s",&s);
      pf=fopen(s,"r");
        while (!feof(pf)) {
          fscanf (pf,"%d",&x);
          fscanf (pf,"%f",&d);
        }
      printf ("Celaya chast:\n");
      scanf ("%d",&x);
      printf ("Drobnaya chast:\n");
      scanf ("%f",&d);
      }
    if (ch=='3') {
      clrscr();
      cel(x,y);
      drob(d,y);
      getch();
    }
    if(ch=='4')
    running=0;
  }
}

Но вот с работой над файлами я не очень дружу, как можно разделить число в файле на целую часть и дробную??

P.S. А название темы надо же поменять...

И как можно поставить защиту от ввода основания системы букв??

[Fifo4ka]

видимо, либо глупый вопрос, либо что??