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

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

06.07.2019, 13:45. Показов 1429. Ответов 4

Не выводит ответ в чем может быть причина?
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
procedure Form1.button1_Click(sender: Object; e: EventArgs);
const
 
RomeDigits: array [1..13] of string[2] =
('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
 
ArabicNumbers: array [1..13] of integer =
(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
arabic: integer; 
 
function ArabicToRome (n: integer): string;
var
i: integer;
res: string;
begin
res:='';
i:=13; 
while n>0 do begin
 
   while ArabicNumbers[i]>n do
   i:=i-1;
   res:=res+RomeDigits[i];
   n:=n-ArabicNumbers[i];
   end;
ArabicToRome := res;
 
end;
 
begin
textbox1.text:=inttostr(arabic);
textbox7.text:=(ArabicToRome(arabic));
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.07.2019, 13:45
Ответы с готовыми решениями:

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

4
106 / 82 / 15
Регистрация: 07.06.2011
Сообщений: 582
Записей в блоге: 2
06.07.2019, 15:33 2
Цитата Сообщение от Junoir Посмотреть сообщение
Delphi
1
2
3
4
begin
   textbox1.text:=inttostr(arabic);
   textbox7.text:=(ArabicToRome(arabic));
end;
Должно быть
Delphi
1
2
3
4
begin
   arabic:=inttostr(textbox1.text);
   textbox7.text:=(ArabicToRome(arabic));
end;
0
0 / 0 / 0
Регистрация: 24.06.2019
Сообщений: 7
06.07.2019, 15:49  [ТС] 3
arabic:=inttostr(textbox1.text);
Нет перегруженной подпрограммы с такими типами параметров
0
106 / 82 / 15
Регистрация: 07.06.2011
Сообщений: 582
Записей в блоге: 2
06.07.2019, 15:53 4
Лучший ответ Сообщение было отмечено Junoir как решение

Решение

Фу ты, наоборот:
Delphi
1
arabic:=strtoint(textbox1.text);
1
2368 / 770 / 561
Регистрация: 15.01.2019
Сообщений: 2,383
06.07.2019, 16:23 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
42
program Project1;
 
function ArabicToRome (n: integer): string;
{Функция для преобразования числа в арабской числовой нотации в
 римскую числовую нотацию. Ограничение на ввод значений n <= 3999}
const
  RomeDigits: array [1..13] of string[2] =
  ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
  ArabicNumbers: array [1..13] of integer =
  (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
  i: integer;
  res: string;
begin
  res:='';
  i:=13;
  if n < 3999 then
    begin
      while n > 0 do
        begin
          while ArabicNumbers[i] > n do
            i:=i-1;
          res:=res+RomeDigits[i];
          n:=n-ArabicNumbers[i];
        end;
      ArabicToRome := res;
    end
   else
     ArabicToRome := 'number above conversion range';
 
end;
 
var
  arabic: integer;
 
begin
  Writeln('Введите число в арабской числовой нотации:');
  Readln(arabic);
  Writeln('Это же число в римской числовой нотации:');
  Writeln((ArabicToRome(arabic)));
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.07.2019, 16:23

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt,...

Нужен Turbo pascal или Free pascal на русском
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По книге обучаюсь по Turbo...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в Pascal ABCprogram zadacha; uses crt, graph; const m=150; var...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в pascal ABCprogram zadacha; uses crt, graph; const m=50; var...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru