Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Deus95
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 28
1

Нужна блок-схема(алгоритм) для этой програмки!

10.12.2013, 19:17. Просмотров 155. Ответов 0
Метки нет (Все метки)

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
                              uses crt;
const
  Tab_per: array[1..13] of record
    ar: word;
    rm: string[2];
  end = ((ar: 1000; rm:'M'),  (ar: 900; rm: 'CM'), (ar: 500; rm: 'D'),
         (ar: 400; rm: 'CD'), (ar: 100; rm: 'C'),  (ar: 90; rm: 'XC'),
         (ar: 50; rm: 'L'),   (ar: 40; rm: 'XL'),  (ar: 10; rm: 'X'),
         (ar: 9;rm: 'IX'),   (ar: 5; rm: 'V'),    (ar: 4; rm: 'IV'),
         (ar: 1; rm: 'I'));
var
  rimch: string;
  arch: longint;
  num: byte;
  symb: string[2];
  znch: word;
begin
clrscr;
  Write('Введіть арабське число: ');
  ReadLn(arch);
  rimch := '';
  num := 1;
  repeat
    symb := Tab_per[num].rm;
    znch := Tab_per[num].ar;
    while znch <= arch do
       begin
         rimch := rimch + symb;
         Dec(arch, znch);
       end;
    Inc(num);
  until arch <= 0;
  WriteLn('Rimskoe chislo: ', rimch);
  Readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2013, 19:17
Ответы с готовыми решениями:

Блок-схема для этой программы
const m = 10; var arr: array of integer; i, j, k: integer; begin randomize; ...

Нужна блок-схема для программы
program z4; uses crt; type mn=set of 'a'..'z'; var mn1,mn2:mn; b,d:char; ...

Нужна блок-схема для программы
Укрупненная общая схема и схема детализации всех программ,используемых в алгоритме program...

Вычислить значение n! для введенного с клавиатуры с циклом с параметром. мне нужна блок-схема алгоритма
помогите пожалуйста

нужна блок-схема
помогите пожалуйста с блок-схемой к этой программе: const n=10; var a:array of integer;...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2013, 19:17

Нужна блок схема
Можно ли с помощью Worda написать блок схему если да то помогите написать блок схемы для этих 2...

Нужна блок-схема
Вот программка, к ней нужна блок-схема. Помогите пожалуйста. uses crt; var a:array of...

Нужна блок-схема
program m1; var a:array of integer; i,j,max,min,s,n,m,i1,j1:integer; begin randomize;...


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

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

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