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


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

Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программа...
Помогите пожалуйста!

Program publisher;
Procedure Run_Write_Data;
Var A,B:Array[1..1024] of Integer;
Step,i,j,Numb:Integer;
Begin
Assign (Output,’Output.txt’);
Rewrite (Output);
FillChar (A, SizeOf (A) ,0);
FillChar (B, SizeOf (B) ,0);
For i:=1 to 10 do
Begin
Step:=1 Sh1 i; {2^i}
B [1] :=1; B[2] :=Step;
j:=2; Numb:=2;
While j<step do
Begin
If Odd (B [j] ) =Odd (A[Numb])
then begin
B [j+1] :=A [Numb];
B [j+2] :=Step+1-A [Numb]
end
else begin
B [j+1] := Step+1-A [Numb] ;
B [j+2] := A [Numb]
end;
Inc (j,2);
Inc (Numb)
end;
A:=B
Write (i,’ : “);
for j:=1 to step do Write (B[j],’ “);
WriteLn
End;
Close (Output)
end;
Begin
Run_Write_Data
end.
icewind вне форума   Ответить с цитированием

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

Можете поискать интересующую информацию в аналогичных топиках

Помогите написать блок-схему
Помогите нарисовать блок схему

Старый 01.05.2012, 12:25   #2 (permalink)
icewind
Member
 
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Lightbulb Я заплачу на Webmoney пару долларов!

Я заплачу на Webmoney пару долларов!
icewind вне форума   Ответить с цитированием
Старый 02.05.2012, 06:24   #3 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от icewind Посмотреть сообщение
Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программа...
Помогите пожалуйста!
В этой строчке Step:=1 Sh1 i; {2^i} ошибка. Наверное, Вы имели ввиду Step:=1; Sh1:=i; {2^i}. Если правильно поняла, то вот блок-схема:
Миниатюры
i-.jpg  
Léon вне форума   Ответить с цитированием
Старый 02.05.2012, 08:28   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от 11Angelav Посмотреть сообщение
В этой строчке Step:=1 Sh1 i; {2^i} ошибка. Наверное, Вы имели ввиду Step:=1; Sh1:=i; {2^i}.
Нет, скорее Step:=1 ShL i; Имеется в виду битовый сдвиг влево (Shift Left).
Vladimir_S вне форума   Ответить с цитированием
Старый 02.05.2012, 10:16   #5 (permalink)
icewind
Member
 
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо Огромное!!! Очень благодарен!
icewind вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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