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

Pascal (Паскаль)

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

Преобразование чисел из римской системы в десятичную и обратно - Pascal

24.11.2009, 18:48. Просмотров 17378. Ответов 56
Метки нет (Все метки)

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

Вообще не понимаю как делать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2009, 18:48
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Преобразование чисел из римской системы в десятичную и обратно (Pascal):

Перевод из десятичной системы в двоичную и обратно из двоичной в десятичную - Pascal
uses crt; var m:arrayof integer; n:longint; i,k:integer; begin clrscr; write('-> '); readln(n); k := 0;

Преобразование натуральных чисел в римской нумерации в восьмеричную систему счисления - Pascal
Помогите ребят. Нужно написать программу преобразования натуральных чисел в римской нумерации в восьмеричную систему счисления. Я...

перевод со знаком из СС 16 со в десятичную и обратно - Pascal
Помогите с програмкой) Задание: перевести число с СС16 в десятичную 1. Входная и выходная данные СТРОКИ; 2.наличие символа знака у...

Перевод чисел из десятичной системы счисления в 2-ичную, 8-ричную, 16-ричную и обратно - Pascal
Помогите составить проги.Очень нато!!!Желательно в процедурах или функциях.

преобразование из 16(си) в десятичную. - Pascal
Написать программу,которая преобразует введеное с клавиатуры двухразрадное шестнадцатеричное число в десятичное. ПЛИЗЗЗЗ ХЕЛП!

из шестнадцатеричной системы счисления в десятичную - Pascal
написать программу переводящую целое число из шестнадцатеричной системы счисления в десятичную

56
Стасечка
1 / 1 / 0
Регистрация: 08.05.2011
Сообщений: 73
14.10.2011, 20:45 #31
хм...тогда я даже не знаю в чем может быть проблема
0
Puporev
Модератор
52816 / 40627 / 13879
Регистрация: 18.05.2008
Сообщений: 94,226
14.10.2011, 20:47 #32
Что-то в коде напакостили значит, вот это запустите.
0
Вложения
Тип файла: rar Program1.rar (402 байт, 22 просмотров)
Стасечка
1 / 1 / 0
Регистрация: 08.05.2011
Сообщений: 73
14.10.2011, 20:49 #33
неа,она запускается,я вбиваю римское число и он тут же возвращается к коду программы.Нажимаю Alt F5,а там все равно никакого ответа.
0
Puporev
Модератор
52816 / 40627 / 13879
Регистрация: 18.05.2008
Сообщений: 94,226
14.10.2011, 20:51 #34
Попробуйте скачать Турбо здесь.
Скачать Паскаль
0
Xak
3 / 3 / 0
Регистрация: 16.03.2011
Сообщений: 151
14.10.2011, 21:03 #35
Цитата Сообщение от Стасечка Посмотреть сообщение
неа,она запускается,я вбиваю римское число и он тут же возвращается к коду программы.Нажимаю Alt F5,а там все равно никакого ответа.
ну либо комп глючит либо вы вводите не "MMMIXIXIXIXI" и т.д ,а "mmmixixixix", в таком случае работать не будет)

Добавлено через 5 минут
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
program rim_arab;
uses crt;
var a:string;
    i,j:integer;
    b:array[1..50] of integer;
    s:longint;
begin
clrscr;
writeln('Rimskoe chislo');
readln(a);
for i:=1 to length(a) do
    begin
      if (a[i]<>'I') and (a[i]<>'V') and (a[i]<>'X')
      and (a[i]<>'L') and (a[i]<>'C') and (a[i]<>'D') and (a[i]<>'M')
      and (a[i]<>'i') and (a[i]<>'v') and (a[i]<>'x')
      and (a[i]<>'l') and (a[i]<>'c') and (a[i]<>'d') and (a[i]<>'m')
      then halt;
      if a[i]='I'then b[i]:=1;
      if a[i]='V'then b[i]:=5;
      if a[i]='X'then b[i]:=10;
      if a[i]='L'then b[i]:=50;
      if a[i]='C'then b[i]:=100;
      if a[i]='D'then b[i]:=500;
      if a[i]='M'then b[i]:=1000;
      if a[i]='i'then b[i]:=1;
      if a[i]='v'then b[i]:=5;
      if a[i]='x'then b[i]:=10;
      if a[i]='l'then b[i]:=50;
      if a[i]='c'then b[i]:=100;
      if a[i]='d'then b[i]:=500;
      if a[i]='m'then b[i]:=1000;
    end;
s:=0;
for i:=1 to length(a) do
   begin
     s:=s+b[i];
     if(i>1)and(b[i-1]<b[i]) then s:=s-2*b[i-1];
   end;
write(s);
readln;
end.
0
Puporev
Модератор
52816 / 40627 / 13879
Регистрация: 18.05.2008
Сообщений: 94,226
14.10.2011, 21:03 #36
Можно дописать так
Pascal
1
2
3
4
writeln('Rimskoe chislo');
readln(a);
for i:=1 to length(a) do
a[i]:=UpCase(a[i]);
тогда можно и маленькими буквами вводить.
1
Xak
3 / 3 / 0
Регистрация: 16.03.2011
Сообщений: 151
14.10.2011, 21:05 #37
Цитата Сообщение от Puporev Посмотреть сообщение
Можно дописать так
Pascal
1
2
3
4
writeln('Rimskoe chislo');
readln(a);
for i:=1 to length(a) do
a[i]:=UpCase(a[i]);
тогда можно и маленькими буквами вводить.
а несуществет команды чтобы в нижний регистр переходить можно было?
0
Стасечка
1 / 1 / 0
Регистрация: 08.05.2011
Сообщений: 73
14.10.2011, 21:05 #38
Все,большое всем спасибо заработала)))
0
Xak
3 / 3 / 0
Регистрация: 16.03.2011
Сообщений: 151
14.10.2011, 21:10 #39
Цитата Сообщение от Стасечка Посмотреть сообщение
Все,большое всем спасибо заработала)))
А, если не секрет, из-за чего не работала?
0
Стасечка
1 / 1 / 0
Регистрация: 08.05.2011
Сообщений: 73
14.10.2011, 21:12 #40
ды эт я ступила,вводила строчные буквы)
0
Xak
3 / 3 / 0
Регистрация: 16.03.2011
Сообщений: 151
14.10.2011, 21:34 #41
Цитата Сообщение от Стасечка Посмотреть сообщение
ды эт я ступила,вводила строчные буквы)
как я и сказал)
0
Puporev
Модератор
52816 / 40627 / 13879
Регистрация: 18.05.2008
Сообщений: 94,226
14.10.2011, 21:47 #42
Цитата Сообщение от Xak Посмотреть сообщение
а несуществет команды чтобы в нижний регистр переходить можно было?
В Турбо Паскале нет.
В Авс есть
Pascal
1
2
LowCase(c)//1 символ
LowwerCase(s)//вся строка
1
powerful123
1 / 1 / 0
Регистрация: 30.11.2013
Сообщений: 50
12.03.2014, 19:32 #43
Puporev, а можно сделать так если пользователь введет 'JJKK XX LLL',то также из римскую цифру переведет в арабскую.

Добавлено через 5 минут
Puporev, а можно сделать так если пользователь введет 'JJKK XX LLL',то также из римскую цифру переведет в арабскую.
0
Puporev
Модератор
52816 / 40627 / 13879
Регистрация: 18.05.2008
Сообщений: 94,226
12.03.2014, 19:35 #44
Если ты про код что вначале, то там же написано
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
for i:=1 to length(a) do//идем по строке
    begin
      {if (a[i]<>'I') and (a[i]<>'V') and (a[i]<>'X')
      and (a[i]<>'L')and (a[i]<>'C') and (a[i]<>'D') and (a[i]<>'M')
      then halt;} //это уберем
      if a[i]='I'then b[i]:=1;//если символ римской цифры, то переводим в число
      if a[i]='V'then b[i]:=5;
      if a[i]='X'then b[i]:=10;
      if a[i]='L'then b[i]:=50;
      if a[i]='C'then b[i]:=100;
      if a[i]='D'then b[i]:=500;
      if a[i]='M'then b[i]:=1000;
    end;
потом все складываем, там дальше написано
0
powerful123
1 / 1 / 0
Регистрация: 30.11.2013
Сообщений: 50
12.03.2014, 20:30 #45
Puporev, а как сделать так что если я ввожу XXI KIK,то считало только правильно записанную форму римского числа?
0
12.03.2014, 20:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2014, 20:30
Привет! Вот еще темы с ответами:

Подпрограмма из шестнадцатеричной системы в десятичную - Pascal
Прошу помочь написать программу на паскале которую нужно разбить на подпрограммы. Цель такова - дан ряд символов, символ представляет из...

Перевод из двоичной системы счисления в десятичную - Pascal
Помогите создать программу на языке паскаль Добавлено через 40 секунд и если сможете блок схему. Очень поможете)

Перевод из двоичной системы в двоично-десятичную - Pascal
var bin: string; {в этой переменной будем хранить считанное значение число в двоичной СС} bin_dec: string; {в этой переменной по...

Перевод числа из пятеричной системы в десятичную систему счисления. - Pascal
помогите сделать 2 лабы пожалуйста, а то оч надо Заранее благодарен !! вот задание : 1)Написать программу перевода числа из...


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

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

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