Блок-схема на Pascal

@TransformatoR · Регистрация: 31.08.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте, срочно нужно нарисовать блок-схему этой программы:

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
Var 
x,x1,rez,i,a:integer;
rim:string;
Begin 
WriteLn('VVedite vashe chislo rimskimi ciframi:');
ReadLn(rim);
rez:=0;x:=0;
For i:=1 to length(rim) do
begin
            x1:=x;
            if rim[i]='M' then x:=1000;
            if rim[i]='D' then x:=500;
            if rim[i]='C' then x:=100;
            if rim[i]='L' then x:=50;
            if rim[i]='X' then x:=100;
            if rim[i]='V' then x:=50;
            if rim[i]='I' then x:=1;
            if rim[i]='m' then x:=1000;
            if rim[i]='d' then x:=500;
            if rim[i]='c' then x:=100;
            if rim[i]='l' then x:=50;
            if rim[i]='x' then x:=100;
            if rim[i]='v' then x:=50;
            if rim[i]='i' then x:=1;
            if x>x1 then a:=-2*x1
                    else a:=0;
            rez:=rez+x+a
end;
WriteLn('V desyatichnoi cicteme eto budet:',n); 
WriteLn('Nagmite ENTER')
ReadLn;
end.

Заранее благодарен!

@Puporev · 01.09.2010, 21:28

Сообщение от TransformatoR

срочно нужно

Вариантов 3.
1.Рисуете сами.
2. Обращаетесь в платный раздел Фриланс
https://www.cyberforum.ru/order-program/
Ждете до морковкина заговенья добровольца.

@Mad_Dog · 02.09.2010, 13:26

А есть ли смысл рисовать граф-схему алгоритма к неправильно работающей программе???

@TransformatoR · 02.09.2010, 14:42 **[ТС]**

Сообщение от Mad_Dog

А есть ли смысл рисовать граф-схему алгоритма к неправильно работающей программе???

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

@Puporev · 02.09.2010, 14:50

Кроме того что в ней 2 синтаксических ошибки, так еще и пишет что XIX=199

@TransformatoR · 02.09.2010, 14:55 **[ТС]**

Ах да, их-то я исправил. Теперь она работает хорошо. И схема получилась немного страшная, но её приняли

@Puporev · 02.09.2010, 14:56

Сообщение от TransformatoR

И схема получилась немного страшная, но её приняли

Так держать!

Новые блоги и статьи Все статьи Все блоги /
Согласованность транзакций в MongoDB Codd 30.04.2025 MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .	Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O Javaican 30.04.2025 Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .	Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .	Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	02.09.2010, 13:26
	А есть ли смысл рисовать граф-схему алгоритма к неправильно работающей программе??? 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.09.2010, 14:50
	Кроме того что в ней 2 синтаксических ошибки, так еще и пишет что XIX=199 0

@TransformatoR 7 / 7 / 0 Регистрация: 31.08.2010 Сообщений: 131
	02.09.2010, 14:55 [ТС]
	Ах да, их-то я исправил. Теперь она работает хорошо. И схема получилась немного страшная, но её приняли 0

Опции темы