Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
deathart
1 / 1 / 0
Регистрация: 07.11.2011
Сообщений: 11
#1

Система счисления. - Pascal ABC

09.02.2012, 16:26. Просмотров 616. Ответов 3
Метки нет (Все метки)

Здравствуйте уважаемые форумчане, нужна ваша помощь. Есть задача нужно расписать, что каждая строчка обозначает!!!!

Условия к задачи.....
Перевести число, представленное в системе счисления с основанием S, в системы счисления с основаниями P, Q, R. Обеспечить корректность ввода числа в системе счисления с основанием S. Перевод чисел реализовать с применением функций. (Разработайте функцию для перевода числа из системы счисления с основанием S в систему счисления с основанием P, а затем, функции для перевода из P в Q и из P в R.) Не использовать стандартных возможностей по вводу/выводу чисел представленных в 2-ой, 8-ой, 16-ой системах счисления. Для представления цифр больших 9 использовать заглавные буквы латинского алфавита.
числа S=8. P=10. Q=4. R=7

Вот сама задача....
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
uses Math;
const
        S = 8;
        P = 10;
        Q = 4;
        R = 7;
        Numb = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
function InP(V:String):Integer;
var
        d,i:integer;
begin
        d:=0;
        for i:=1 to length(v) do
                d:=d+(pos(v[i],Numb)-1)*trunc(power(S,length(v)-i));
        InP:=d;
end;
 
function FromPToQ(V,Q:integer):String;
var
        d:integer;
        l:string;
        t:string;
begin
        d:=v;
        l:='';
        while d>=q do
                begin
                        t:=numb[d mod q+1];
                        l:=t+l;
                        d:=d div q;
                end;
        l:=numb[d mod q+1]+l;
        fromPToQ:=l;
end;
 
var
        st:string;
        i:integer;
 
begin
        writeln('введите число с основанием',S);
        readln(st);
        for i:=1 to length(st) do if pos(st[i],Numb)>S then
        begin
                writeln('Некорректное число, не может быть символа ',st[i]);
                readln;
                halt;
        end;
 
        i:=InP(st);
        writeln('В десятичной - ',i);
        writeln('В системе с основанием ',Q,' - ',fromPtoQ(I,Q));
        writeln('В системе с основанием ',R,' - ',fromPtoQ(I,R));
        readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2012, 16:26
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Система счисления. (Pascal ABC):

Система счисления (из 2-ой в 8-ю систему счисления) - Pascal ABC
Система счисления (из 2-ой в 10-ю,из 10-ю в 8-ю систему счисления)

Система счисления - Pascal ABC
Помогите составить две программы: 1) Сложение чисел в 11 системе счисления; 2) Умножение чисел в 11-ричной системе счисления.

Система счисления - Pascal ABC
Здравствуйте. Решил создать программу для перевода чисел в другие системы счисления. Проблема в самом конце программы (код ниже). Процедура...

Система счисления - Pascal ABC
Сделать процедуру, которая будет переводить вещественное число (с дробной частью) в 10 системе счисления в 7-ую систему счисления.

Двоичная система счисления - Pascal ABC
При записи в двоичной системе счисления число будет заканчиваться на 0, если оно является четным. Аналогично, число будет заканчиваться на...

Троичная система счисления - Pascal ABC
Как составить программу на Паскале , для троичной системы (+-0)?

3
Вася1q
21 / 21 / 0
Регистрация: 13.09.2011
Сообщений: 312
09.02.2012, 20:32 #2
Тебе просто пояснить нужно?
0
deathart
1 / 1 / 0
Регистрация: 07.11.2011
Сообщений: 11
09.02.2012, 20:41  [ТС] #3
Да. Пояснить пожалуйста, что обозначает каждая строчка!!
0
barnaul1
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 5
14.05.2012, 21:32 #4
привет. тебе так и не ответили что обозначает каждая строчка?
0
14.05.2012, 21:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2012, 21:32
Привет! Вот еще темы с ответами:

Римская система счисления - Pascal ABC
Разбор Следует отдельно переводить число десятков и число едениц, расмотрев все случаи (всего их 18). также следует рассмотреть...

Перевод действительных неотрицательных чисел из системы счисления M в систему счисления N, где 2<=M,N<=16 - Pascal ABC
Добрый вечер. Помогите с заданием, пожалуйста. Перевод действительных неотрицательных чисел из системы счисления M в систему счисления N,...

Перевод целых неотрицательных чисел из системы счисления M в систему счисления N, где 2 <= M, N <= 16 - Pascal ABC
Перевод целых неотрицательных чисел из системы счисления M в систему счисления N, где 2 &lt;= M, N &lt;= 16.

Программа перевода из двоичной системы счисления в шестнадцатеричную систему счисления - Pascal ABC
1.Программа перевода из двоичной системы счисления в шестнадцатеричную систему счисления. 2.Лишние пробелы.Дана строка состоящая из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.