Задача в TurboPascal с использованием string, помогите пожалуйста
Задано целое число от 1 до 999. Вывести его римскими цифрами.
Какую программу составить? Помогите пожалуйста
Задано целое число от 1 до 999. Вывести его римскими цифрами.
Какую программу составить? Помогите пожалуйста
> Какую программу.. .
Ну например вот такую:
function Arab2Roman(arab:integer):string;
var
i:integer;
d:integer;
arab_str: string;
arab_len: integer;
c: integer;
res: string;
begin
res := '';
str(arab, arab_str);
arab_len := Length(arab_str);
for i := 0 to arab_len - 1 do begin
val(arab_str[arab_len - i], d, c);
if (d+1) mod 5 = 0 then
res := Copy('IXCM', 1+i, 1) + Copy('VXLCDM', i*2 + (d+1) div 5, 1) + res
else
res := Copy('VLD', 1+i, d div 5) + Copy('IIIXXXCCCMMM', 1+i*3, d mod 5) + res;
end;
Arab2Roman := res;
end;
var
v: integer;
begin
write('число: ');
readln(v);
writeln('в римской сс: ', Arab2Roman(v));
end.
Источник: http://ru.wikipedia.org/wiki/Римские_цифры