Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Intman
0 / 0 / 0
Регистрация: 24.12.2018
Сообщений: 5
1

Составить блок схему к выражению и написать к ней программу

25.12.2018, 16:16. Просмотров 837. Ответов 1
Метки нет (Все метки)

Составить блок-схему к следующему выражению:

Код
S:=128
нц для i от 1 до 4
S:=div(S,2)
кц
Написать программу для этого выражения на Delphi или C++

Ответ который должен получится в результате выполнения кода: S=8
1) 128/2=64
2) 64/2=32
3) 32/2=16
4) 16/2=8
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2018, 16:16
Ответы с готовыми решениями:

Составить блок-схему к выражению и написать к ней программу
Составить блок-схему к выражению: a:=1; b:=1; S:=0; нц пока a<=5 a:=a+b; b:=b+a; ...

Написать программу и составить к ней блок-схему
Доброго времене суток, уважаемые коллеги:). Прошу вашей помощи в решении данной задачи. Написать...

Написать программу и блок-схему
написать программу и блок-схемуувеличивающая в 2 раза все эелементы массива которые больше 15 ))...

Составить блок-схему
procedure TForm1.RadioButton1Click(Sender: TObject); var max,a,b,c,d,min:real; begin a:=strtoint...

Составить блок-схему
Здравствуйте, нужна помощь в составление блок-схемы данного алгоритма. procedure...

1
Puporev
Модератор
58542 / 44458 / 30695
Регистрация: 18.05.2008
Сообщений: 106,516
25.12.2018, 16:53 2
Лучший ответ Сообщение было отмечено Intman как решение

Решение

Блок схема
New_FlowChart_1_Part_0.jpg

Код
Delphi
1
2
3
4
5
6
7
var s,i:integer;
begin
s:=128;
for i:=1 to 4 do
s:=s div 2;
write(s)
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2018, 16:53

Составить блок-схему
var i,s:integer; d:real; begin i:=strtoint(edit1.Text); if (i mod 2=1) and (i>0)then...

составить блок-схему
помогите составить блок-схему unit Unit1; interface uses Windows, Messages, SysUtils,...

Составить блок-схему!
нарисуйте блок схему пожалуйста!!! буду очень признателен!


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

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

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