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

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

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

Pascal

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

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, Вот вам ко второй задаче схема!

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

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

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

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

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

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

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

Опции темы