Прошу очень помощи, лаба завтра(((( вообще ничего в голове не рождается((((
"Напишите программу в Pascal для перевода чисел из пятеричной системы в десятеричную, дробные числа".
Программа перевода из 5-ой в десятичную сс (дробные числа)
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Ну пожалуйййста, помогите девушке ((( Очень очень огромное спасибо скажу)))
Есть перевод из 5-ой в 10-ую, как сделать, что бы и дробь считала. К примеру перевела 2.3
uses crt;
const c5=['0'..'4'];
var s:string;
i,b,c1,c2:integer;
begin
clrscr;
repeat
write('Введите двухрязрядное число в сс 5 s=');
readln(s);
if (length(s)<>2) or not(s[1] in c5)or not(s[2] in c5)then
writeln('Введено неверно');
until (length(s)=2) and(s[1] in c5)and(s[2] in c5);
b:=0;
if s[1] in ['0'..'4'] then b:=b+(ord(s[1])-48)*5;
if s[2] in ['0'..'4'] then b:=b+(ord(s[2])-48);
write(s,'=',b);
readln;
end.
uses crt;
const c5=['0'..'4'];
var s:string;
i,b,c1,c2:integer;
begin
clrscr;
repeat
write('Введите двухрязрядное число в сс 5 s=');
readln(s);
if (length(s)<>2) or not(s[1] in c5)or not(s[2] in c5)then
writeln('Введено неверно');
until (length(s)=2) and(s[1] in c5)and(s[2] in c5);
b:=0;
if s[1] in ['0'..'4'] then b:=b+(ord(s[1])-48)*5;
if s[2] in ['0'..'4'] then b:=b+(ord(s[2])-48);
write(s,'=',b);
readln;
end.
Все, уже на другом форуме помогли. Отбой. Извините. Закройте плиз, тему.