Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 15.05.2012, 22:04   #1 (permalink)
icewind
Member
 
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Создайте блок-схему

Var
m0,m,Max_W,i,counter,q:Integer;
f:Text;
Res:Array[1..20] of ShortInt;

Function Pw3(v:byte):LongInt;
var
t:byte;
P:LongInt;
begin
if v=0 then P:=1 else
begin
P:=1;
for t:=1 to v do P:=P*3;
end;
Pw3:=P;
end;

Begin
Assign(f,'Input.txt');
Reset(f);
Readln(f,m0,Max_W);
Close(f);
m:=m0;
counter:=0;
Repeat
q:=m mod 3;
if q=2 then q:=-1;
Inc(counter);
If counter<=Max_W then
Res[counter]:=q;
m:=m div 3;
if q=-1 then m:=m-q;
Until (q=1) and (counter>1);
Write(m0,' = ');
If counter<=Max_W then
For i:=counter downto 1 do
if i=counter then write(Pw3(i-1)) else
if Res[i]=-1 then write(Pw3(i-1)*Res[i]) else
write('+',Pw3(i-1)*Res[i]);
Assign(f,'Output.txt');
Rewrite(f);
If counter>Max_W then
writeln(f,'No solution!') else
begin
write(f,m0);
for i:=1 to counter do
if Res[i]=-1 then write(f,' ',Pw3(i-1));
writeln(f);
for i:=1 to counter do
if Res[i]=1 then write(f,' ',Pw3(i-1));
end;
Close(f);
Readln;
End.
icewind вне форума   Ответить с цитированием

Старый 15.05.2012, 22:04
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Схожие темы можно найти через поиск, но я помогу вам и вышлю их сюда

Составить блок-схему
Создайте блок схему
Помогите написать блок-схему

Старый 16.05.2012, 23:16   #2 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от icewind Посмотреть сообщение
Создайте блок-схему
Точно такая же программа и к ней сделана блок-схема, вот.
Léon вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:16.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.