Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.01.2014, 21:50   #1
Алан1114
Новичок
Джуниор
 
Регистрация: 28.01.2014
Сообщений: 2
По умолчанию Помогите пожалуйста построить блок схему по программе (срочно)

program Massiv;
var
a: array [1..10] of integer;
b: array [1..10] of integer;
N:integer;
j:integer; // переменная для подсчета размера нового массива
i:integer; // счетчик в цикле
begin
// ввод размера масива
writeln('Введите N (N<=10)');
readln(N);
writeln('Значения массива А');
// ввод значений масива
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение
j:=0; // начальное значение размера нового массива
for i:=1 to n do begin // цикл для обхода массива
if (a[i] mod 2)=0 then // условие для фор\мирования нового массива
begin
inc(j); // увеличение размера формирующегося массива
b[j]:=a[i]; // присвоение значения элементу массива b
end;
end;
// вывод результата
Writeln('Ответ');
Writeln('Размер полученного массива ',j);
Write('B[]: '); for i:=1 to j do Write(B[i],' ');
end.
Алан1114 вне форума Ответить с цитированием
Старый 28.01.2014, 21:59   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Ну, может так?
Изображения
Тип файла: jpg x_18fb61eb.jpg (87.5 Кб, 83 просмотров)
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 28.01.2014, 22:58   #3
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Вот, правда блоки ввода/вывода не распознаются:
Изображения
Тип файла: jpg Massiv.jpg (42.5 Кб, 140 просмотров)
Arigato вне форума Ответить с цитированием
Старый 28.01.2014, 23:04   #4
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Arigato, сам же возмущался, что на форуме бездельников расплодилось. И сам же бездельников поощьряешь.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 29.01.2014, 01:32   #5
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

С тем же успехом и бездельник может скачать программу для автоматического построения блок-схемы по коду. Жалко только, что в программе глюк, и она не читает команды ввода/вывода, размещая их в прямоугольнике.
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста сделать блок схему к программе. Oleg43 Фриланс 6 10.01.2014 23:19
Помогите пожалуйста сделать блок схему к программе. Oleg43 Помощь студентам 4 10.01.2014 22:22