Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 20.10.2012
Сообщений: 21
1

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

01.11.2012, 09:44. Просмотров 1612. Ответов 2
Метки нет (Все метки)

Составьте программы для перевода арабских чисел в римские и для обратной операции. Например, 255=C C L V=сто+сто+пятьдесят+пять.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2012, 09:44
Ответы с готовыми решениями:

программы для перевода арабских чисел в римские и для обратной операции
Составить программы для перевода арабских чисел в римские и для обратной операции. Например, 255 =...

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

Составить программы для перевода арабских чисел в римские и для обратной операции
Составить программы для перевода арабских чисел в римские и для обратной операции. Например, 255 =...

Составить программу для перевода арабских чисел в римские и для зворотньох операции. Например 255 = ССЛВ = СТО + СТО + Пятьдесят + Пять
Составить программу для перевода арабских чисел в римские и для зворотньох операции. Например 255 =...

2
5980 / 2106 / 737
Регистрация: 10.12.2010
Сообщений: 5,923
Записей в блоге: 3
01.11.2012, 10:28 2
Много раз обсуждалось. Используйте поиск: программы для перевода арабских чисел в римские и для обратной операции
Программа перевода арабских чисел в римские!
0
0 / 0 / 2
Регистрация: 18.09.2012
Сообщений: 7
03.11.2012, 00:11 3
Лучший ответ Сообщение было отмечено programmman как решение

Решение

Цитата Сообщение от programmman Посмотреть сообщение
Составьте программы для перевода арабских чисел в римские и для обратной операции. Например, 255=C C L V=сто+сто+пятьдесят+пять.
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
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')
      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;
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2012, 00:11

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

Программа для перевода арабских чисел в римские
Составить программу для перевода арабских чисел в римские и для обратной операции. Например, 255 =...

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

Программа для перевода арабских цифр в римские
Нужно перевести число, записанное римскими цифрами, в десятичную систему счисления, и наоборот....

Оператор case of для перевода арабских цифр в римские
По условию задачи нужно изменить номер месяца из арабских цифр в римский. Вот что у меня вышло :...

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

Программа перевода арабских чисел в римские!
Составить программу перевода любого значения N(n&lt;3999) в запись римскими цифрами.


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

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

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