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


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2012, 19:17   #1 (permalink)
Lera-Valera
Новичок
 
Регистрация: 19.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, составить блок-схему алгоритма программы

Program ABC;
Const n= 20;
Var c,b,i: integer;
A: array[1..n] of integer;
Begin
i:=1;
a[i]: = 2;
readln(b);
repeat
a[i+1]:=a[i]*2;
i:= i+1;
untila[i]>b;
for c:=1 to i-1 do writeln(a[c]);
end.
Lera-Valera вне форума   Ответить с цитированием

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

Посмотрите, может быть в обсуждаемых топиках проблема уже решена

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

Ads

Яндекс

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

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

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

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




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

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