Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Антон10
0 / 0 / 0
Регистрация: 28.10.2012
Сообщений: 15
1

Переделать исходный код. Код в Паскале,а нужно сделать его в Фортране

15.03.2013, 22:21. Просмотров 850. Ответов 2
Метки нет (Все метки)

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
{$S+,R+} 
program arab_to_roman; 
 
uses crt; 
 
var 
n : word; 
ch : char; 
 
procedure convert(n : word); 
const 
no = 12; 
index : array [ 0..no] of word = 
(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000); 
strings : array [ 0..no] of string [ 2] = 
( 'I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M'); 
 
var 
i : word; 
 
begin 
if n = 0 then 
exit; 
if keypressed then 
halt; 
if n >= index [ no] then 
begin 
write(strings [ no]); 
n := n - index [ no]; 
end 
else 
begin 
i := no; 
repeat 
if keypressed then 
halt; 
dec(i); 
until (n >= index [ i]) and (n < index [ i+1]); 
write(strings [ i]); 
n := n - index [ i]; 
end; 
convert(n); 
end; 
 
begin 
clrscr; 
repeat 
write('Введите положительное целое число: '); 
readln(n); write(n, ' = '); 
convert(n); 
writeln; 
writeln('Чтобы завершить работу, нажмите Q:'); 
writeln('Для продолжения работы нажмите любую другую клавишу:'); 
ch := upcase(readkey); 
if ch = 'Q' then 
break; 
writeln; 
writeln; 
until false; 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2013, 22:21
Ответы с готовыми решениями:

Нужно переделать код из Паскаля в C++
Составьте циклический алгоритм и программу для вычисления результата по...

Нужно сделать этот код с процедурой
Нужно сделать этот код с процедурой.const n=10; var i:integer; a,b,c:array of...

Переделать код
Переделайте под PAscalABC.NET program KR; uses crt, graph; const...

Переделать код С++ в Pascal
Есть рабочий код на С++, помогите переделать на Паскаль. Сделал программу на...

Переделать код с С++ в Pascal
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;ctime&gt; using namespace...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26370 / 17694 / 7005
Регистрация: 22.10.2011
Сообщений: 31,147
Записей в блоге: 6
16.03.2013, 02:06 2
Антон10, Обязательно именно этот код переводить? У Розетты есть перевод арабских в римские цифры, он работает, можешь побаловаться: LiveWorkSpace
0
HighPredator
16.03.2013, 11:22     Переделать исходный код. Код в Паскале,а нужно сделать его в Фортране
  #3
 Комментарий модератора 
Кросспост темы: Переделать исходный код Паскаль -> Фортран
Закрыто.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2013, 11:22
Привет! Вот еще темы с ответами:

Переделать код из С++ в паскаль
В с++ вообще не разбираюсь, переделайте, пожалуйста...

Как переделать код???
как переделать вот это z= ctg(1+|x+y|) - 1+ |x+y|^3 в это ...

Переделать код под процедуру
по этой программе выполнить процедуру массивов var a: array of real;...


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

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

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