|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2010, 15:07 | #1 |
Регистрация: 26.05.2010
Сообщений: 3
|
Блок - схема
Помогите пожалуйста составить блок-схему по задачам
Program ChetnChiclo; Var I, kolvo: Integer; A: array[1..5] of Integer; Begin Writeln (‘Введите элемент массива’); Kolvo :=0; For i=1 to 5 do Begin Write (A[‘,I,’=’); Readln (A[i]); End; For I:=1 to 5 do If A[i]>0 then kolvo := kolvo +1; If kolvo=0 then writeln (‘положительных элементов нет!’) Else Begin If kolvo mod 2 = 0 then writeln (‘Верно! В массиве четное число положительных элементов’) Else writeln (‘Не верно! В массиве нечетное число положительных элементов’) End; Readln; End. Program SrednSnach; Var I, kolvo: Integer; Sredn: real; A : array[1..5] of real; Begin Writeln (‘Введите элемент массива’); Kolvo :=0; {Количество положительных элементов} Sredn :=0;{Среднее значение положительных элементов} For I := 1 to 5 do Begin Writeln (‘A[‘,I,’]=’); Readln (A[i]); End; For I :=1 to 5 do If A[i] > 0 then Begin Kolvo := kolvo+1; Sredn := sredn+A[i]; End; If kolvo=0 then writeln (‘Положительных элементов нет!’) Else Begin Sredn := sredn/kolvo; Writeln (‘среднее значение положительных элементов = ‘,sredn:2:2); For I :=1 to 5 do If A[i]>0 then A[i]:=A[i]-sredn; Writeln (‘Преобразованный массив:’); For i:=1 to 5 do Writeln (‘A[‘,I,’]=’,A[i]:2:2); End; Readln; End. |
26.05.2010, 15:31 | #2 |
Форумчанин
Регистрация: 12.05.2010
Сообщений: 125
|
Делать лень, может поможет следующая инф.:
начало и конец программы - овал условие - ромб выражение - прямоугольник ввод-вывод - "кривой" прямоугольник цикл for - обычно шестиугольник... ещё соединительные линии.)))))) |
26.05.2010, 16:54 | #3 |
ICQ: 444663614
Регистрация: 19.03.2010
Сообщений: 9
|
|
26.05.2010, 22:03 | #4 |
Регистрация: 26.05.2010
Сообщений: 3
|
спасибо большое))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок-схема | romashon | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 18.04.2010 22:21 |
Блок-схема | Svtvpv7 | Общие вопросы C/C++ | 2 | 26.02.2010 12:04 |
блок схема | скатя | Помощь студентам | 1 | 29.12.2009 11:16 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |