Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определяет длину окружности, описанного треугольника, заданного координатами его вершин https://www.cyberforum.ru/ pascalabc/ thread393339.html
способ изображения точки на плоскости в виде записи с двумя полями x, y: real, напишите программу, которая определяет длину окружности, описанной треугольника, заданного координатами его вершин
Алгоритм Форда-Фалкерсона Pascal ABC
Помогите с алгоритмом Форда-Фалкерсона, пожалуйста.. Есть код на делфи unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...
Pascal ABC Определить вывести числа 2 и 5 и средний балл по каждому предмету
Дана матрица А оценки по 3м дисциплинам. 1) Ввести и распечатать матрицу 2) Определить вывести числа 2 и 5 и средний балл по каждому предмету (столбцу) 3) Определить и вывести строки с max и min...
Pascal ABC Определить количество столбцов, не содержащих ни одного нулевого элемента Вроде все правильно, но не считает колличество столбцов. Не подскажите где допущена ошибка? "Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного... https://www.cyberforum.ru/ pascalabc/ thread393296.html
Pascal ABC Удалить из текста все буквы, которые входят во введенное слово. https://www.cyberforum.ru/ pascalabc/ thread393288.html
Помогите решить задачу Вот задача как основа Var St: string; z:string; x:string; i: integer; Begin Write('введите строку текста - St'); Readln(St); z:='0123456789'; i:=1; while...
Case of или двумерный массив Pascal ABC
Составить программу для перевода любого значения N(N<=3999) в запись римскими цифрами
Pascal ABC Поиск факториала суммы цифр числа с использование только процедур или функций.
Пользователь вводит натуральное число. Найти факториал суммы цифр этого числа. Использовать процедуры или функции!
Pascal ABC Дан двухмерный массив из четного числа строк. Поменять местами первую строку со второй, третью - с четвертой. Дан двухмерный массив из четного числа строк. Поменять местами первую строку со второй, третью - с четвертой. https://www.cyberforum.ru/ pascalabc/ thread393265.html
Pascal ABC сегмент окружности https://www.cyberforum.ru/ pascalabc/ thread393262.html
подскажите пожалуйста как нарисовать только одну сторону сегмента окружности, чтобы можно бы двигать этот отрезок вокруг оси. или может еще есть какие ворианты? допустим выводить только радиус...
Pascal ABC Рисунок кота помогите нарисовать кота в паскальABC! https://www.cyberforum.ru/ pascalabc/ thread393239.html
32 / 32 / 30
Регистрация: 25.11.2011
Сообщений: 43
27.11.2011, 23:03 0

Программа перевода арабских чисел в римские!

27.11.2011, 23:03. Просмотров 19871. Ответов 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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
uses crt;
const dec=3250;
function basedigit(x:integer):char;
begin
case x of 1:basedigit:='I';
5:basedigit:='V';
10:basedigit:='X';
50:basedigit:='L';
100:basedigit:='C';
500:basedigit:='D';
1000:basedigit:='M';
else basedigit:='0';
end;{case}
end;
function altconvert(x:integer):string;
var base:integer;
tmp:string;
begin tmp:='';
base:=0;
if (x<0) then tmp:='err' else if (x>3999)and(x<999999) then begin tmp:='*'+altconvert(trunc(x/1000))+'*';
x:=x-trunc(x/1000)*1000 ;
end;
while (X>0) do begin
if (x >= 1)and(x<=9) then
base:=1
else if (x >= 10)and(x<=99) then
base:=10
else if (x >= 100)and(x<=999) then
base:=100
else if(x >= 1000)and(x<=3999)
then base:=1000;
if x>=9*base then begin
tmp:=tmp+basedigit(base)+basedigit(base*10);
x:=x-9*base;
end
else if x>=5*base then begin
tmp:=tmp+basedigit(5*base);
x:=x-5*base;
end else if x>=4*base then begin tmp:=tmp+basedigit(base)+basedigit(5*base);
x:=x-4*base;
end;
while x>=base do begin
tmp:=tmp+basedigit(base);
x:=x-base;
end;
end; {while}
altconvert:=tmp;
end;
function convert(x:integer):string;
var tmp:string;
begin tmp:='';
if(x>=4000)or(x<1) then
convert:='err'
else begin
while x>=1000 do begin
tmp:=tmp+'M';
x:=x-1000;
end;
if x>=900 then begin
tmp:=tmp+'CM';
x:=x-900;
end
else
if x>=500 then begin
tmp:=tmp+'D';
x:=x-500;
end
else
if x>=400 then begin
tmp:=tmp+'CD';
x:=x-400;
end;
while x>=100 do begin
tmp:=tmp+'C';
x:=x-100;
end;
if x>=90 then begin
tmp:=tmp+'XC';
x:=x-90;
end
else if x>=50 then begin
tmp:=tmp+'L';
x:=x-50;
end else if x>=40 then begin
tmp:=tmp+'XL';
x:=x-40;
end;
while (x>=10) do begin
tmp:=tmp+'X';
x:=x-10;
end;
if x=9 then begin
tmp:=tmp+'IX';
x:=x-9;
end
else if x>=5 then begin
tmp:=tmp+'V';
x:=x-5;
end
else if x=4 then begin
tmp:=tmp+'IV';
x:=x-4;
end;
while (x>=1) do begin
tmp:=tmp+'I';
x:=x-1;
end;
end;{else}
convert:= tmp;
end;
var x:integer;
begin clrscr;
write('Введи число от 1 до 3999 ');
readln(x);
writeln('В арабских выглядет так ' + convert(x) );
readkey;
end.


Вернуться к обсуждению:
Программа перевода арабских чисел в римские!
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2011, 23:03

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

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

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

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

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

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