Программа на Паскале.Циклы.Помогите с блок схемой.

Меню сайта
Главная страница Примеры блок-схем Скачать Купить Контакты Что нового История создания Сделаю для вас блок-схему FAQ (вопрос/ответ) Блог

Форма входа

Друзья сайта
Программа Ростовщик 1.04 Программа расчета кредита Курсовые по информатике Старый, но живой ГОСТ для Блок-Схем Сервис заполнения бланков аттестатов Библиотека VBA для сервиса AntiGate.com

Статистика

Приветствую Вас, Гость · RSS

17.05.2024, 14:37

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: diamFC

Бесплатно сделаю блок-схему » Блок-схемы по просьбам » Главное - ВЕРИТЬ (© Didme) » Программа на Паскале.Циклы.Помогите с блок схемой.

Программа на Паскале.Циклы.Помогите с блок схемой.

11Angelav

Дата: Понедельник, 26.12.2011, 20:52 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 2

Репутация: 0

Статус: Offline

Помогите, пожалуйста, сделать блок-схему для этой программы!
Const
Max_Number_of_Figures=5;
VAR
N10,N3,N10_frc_re,r:Real;
N10_int,m:LongInt;
Sign:ShortInt;
fig:Byte;

BEGIN
Write('Enter the number in decimal system: ');
Readln(N10);
If N10<0 then Sign:=-1 else Sign:=1;
N10:=Abs(N10);
N10_int:=Trunc(N10);
N10_frc_re:=N10-1.0*N10_int;
N3:=0;
If N10_int>0 then
begin
m:=1;
Repeat
m:=m*3;
Until m>N10_int;
Repeat
m:=m div 3;
fig:=N10_int div m;
N10_int:=N10_int mod m;
N3:=N3*10+fig;
Until m=1;
end;
If N10_frc_re>0 then
begin
r:=1;
m:=0;
Repeat
r:=r/10;
Inc(m);
N10_frc_re:=N10_frc_re*3;
fig:=Trunc(N10_frc_re);
N10_frc_re:=N10_frc_re-fig;
N3:=N3+fig*r;
Until m=Max_Number_of_Figures;
end;
N3:=N3*Sign;
Write('N in 3-based system is ');
If N10_frc_re=0 then
Writeln(Round(N3))
else
Writeln(N3:0:Max_Number_of_Figures);
Readln;
END.

Прикрепления: Const.docx (14.8 Kb)

Сообщение отредактировал 11Angelav - Понедельник, 26.12.2011, 21:10