Нарисовать блок-схему

@VOV · Регистрация: 07.12.2009

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
const n=8;
var a,b:array[1..n] of integer;
    i,sum,k:integer;
    sr:real;
 begin
  ClrScr;
  for i:=1 to n do
   begin
    a[i]:=random(10)-6;
    Write(a[i]:3);
   end;
  Writeln;
  for i:=1 to n do
   sum:=sum+a[i];
   sr:=sum/n;
  for i:=1 to n do
   if a[i]>sr then
    begin
     k:=k+1;
     b[k]:=a[i];
     Write(b[k]:3);
    end;
  readln;
 end.

@Лакшми · 09.12.2009, 22:38

А че тут делать-то? Тебе в каком виде? В визио пойдет?

@VOV · 09.12.2009, 22:50 **[ТС]**

да пойдет

@Лакшми · 09.12.2009, 23:03

Тогда рисую

Добавлено через 3 минуты
Так, стоп! Почему sum не инициализирована? Вы знаете что там изначально лежит? Нет. И я не знаю. Можете получить что угодно в результате.

Добавлено через 7 минут
Блин, почему k тоже изниоткуда взялась? Инициализировать тоже надо.

@VOV · 09.12.2009, 23:06 **[ТС]**

ти нарисуй а там будет видно!!!!!!!!!!!!

@Лакшми · 09.12.2009, 23:08

Да я и так все вижу! В последнем цикле вообще бред сивой кобылы... Зачем класть значение в b[k], если можно сразу выводить a[i] в if-е? Что у нас с k? Она же нигде не изменяется. Блин, придется все исправлять на блок-схеме.

@VOV · 09.12.2009, 23:26 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var a,b:array[1..100]of integer;
i,n,k:integer;
s:real;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 for i:=1 to n do read(a[i]);
 readln;
 s:=0; 
 for i:=1 to n di s:=s+a[i];
 s:=s/n;
 k:=0;
 for i:=1 to n do if a[i]>s then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 
 for i:=1 to k do write(b[i],' ');
 readln;
end.

@Лакшми · 09.12.2009, 23:32

Что, еще одну? Ты хотя бы эту глянь, может че не понравится.
Вот в визио http://ifolder.ru/15394693
Вот в ворде Блок-схема.doc

@Лакшми · 10.12.2009, 01:54

Вот так и рисуй людям - не ответа, ни привета....

А говорил "срочно-срочно"...

Добавлено через 8 минут
Вторую блок-схему нарисую, если хоть откликнешься... А то получается так: кинул на форум вопрос, дальше живешь своей жизнью, пришел на форум - готовый ответ... Не, вы здорово устроились, я смотрю.....

По поводу второй задачи. Мне нужно условие задачи изначально. Во-первых, я уже говорила, там могут быть особые условия, во-вторых, если задача четко на алгоритм, то алгоритм нужно проработать до мельчайших подробностей. Для чего нужно решение? Для алгоритма или для "чтобы хоть как-нибудь работало"?

@Давид · 10.12.2009, 08:29

VOV, Вот вам ко второй задаче схема!

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Лакшми 61 / 50 / 1 Регистрация: 09.07.2009 Сообщений: 451
	09.12.2009, 22:38
	А че тут делать-то? Тебе в каком виде? В визио пойдет? 1

@VOV 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 56
	09.12.2009, 22:50 [ТС]
	да пойдет 0

@Лакшми 61 / 50 / 1 Регистрация: 09.07.2009 Сообщений: 451
	09.12.2009, 23:03
	Тогда рисую Добавлено через 3 минуты Так, стоп! Почему sum не инициализирована? Вы знаете что там изначально лежит? Нет. И я не знаю. Можете получить что угодно в результате. Добавлено через 7 минут Блин, почему k тоже изниоткуда взялась? Инициализировать тоже надо. 1

@VOV 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 56
	09.12.2009, 23:06 [ТС]
	ти нарисуй а там будет видно!!!!!!!!!!!! 0

@Лакшми 61 / 50 / 1 Регистрация: 09.07.2009 Сообщений: 451
	09.12.2009, 23:08
	Да я и так все вижу! В последнем цикле вообще бред сивой кобылы... Зачем класть значение в b[k], если можно сразу выводить a[i] в if-е? Что у нас с k? Она же нигде не изменяется. Блин, придется все исправлять на блок-схеме. 1

@Лакшми 61 / 50 / 1 Регистрация: 09.07.2009 Сообщений: 451
	09.12.2009, 23:32
	Что, еще одну? Ты хотя бы эту глянь, может че не понравится. Вот в визио http://ifolder.ru/15394693 Вот в ворде Блок-схема.doc 2

@Лакшми 61 / 50 / 1 Регистрация: 09.07.2009 Сообщений: 451
	10.12.2009, 01:54
	Вот так и рисуй людям - не ответа, ни привета.... А говорил "срочно-срочно"... Добавлено через 8 минут Вторую блок-схему нарисую, если хоть откликнешься... А то получается так: кинул на форум вопрос, дальше живешь своей жизнью, пришел на форум - готовый ответ... Не, вы здорово устроились, я смотрю..... По поводу второй задачи. Мне нужно условие задачи изначально. Во-первых, я уже говорила, там могут быть особые условия, во-вторых, если задача четко на алгоритм, то алгоритм нужно проработать до мельчайших подробностей. Для чего нужно решение? Для алгоритма или для "чтобы хоть как-нибудь работало"? 1