VPF::Помогите исправить блоу схему. срочно

PRo9

Дата 24.12.2008, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 30.11.2008

Репутация: нет
Всего: нет

вот такая вот задача

Дана последовательность неотрицательных чисел последнее из которых равно нулю: причём других равных нулю чисел в последовательности нет. Найти последнее число, большее десяти, в этой последовательности. Если таких чисел нет напечатать ноль.

я написал вроде блок схему, но там запоминает номер числа, а нужно чтоб само число запоминало. Что нужно написать вместо того, что написано в красном кружочке?

вот код

Код


i:=1; idx10=-1;
while (a[i]<>0) do begin {просматриваем до нуля}
  if a[i]>10 then idx10=i; {если >10, то запоминаем где оно}
  inc(i);
end;
if idx10=-1 
  then writeln('не нашлось чисел > 10')
  else writeln('последнее число >10 (',a[idx10],') найдено в позиции ',idx10);

Помогите. заранее спасибо

Это сообщение отредактировал(а) PRo9 - 24.12.2008, 11:24

Kbl4AH

Дата 24.12.2008, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: нет
Всего: 15

Все в коде у тебя верно...
а вот блок-схема не правильно нарисована...
во-первых, в таком цикле тоже должны быть ветви "да", "нет"::
во-вторых, возврат в цикл не нарисован...
в-третьих, в ветви условия "да" только блок idx10=i должен быть, а блок inc(i) должен быть после ветвей "да", "нет"
в-четвертых... после цикла нужно поместить блок условия с вариантами сообщений выводимых на экран...
препод придрался, наверное, потому (почему номер позиции, а не само число), потому что глядя на блок-схему не видно, что ты где-то выводишь число... видно только, что ты запоминаешь номер позиции... что противоречит требование к результату программы

Вариант решения:

Код


 ...........................................................
 for i := (high(a) - 1) downto low(a) do
  if a[i] > 10 then
   begin
    writeln(a[i]);
    readln;
    halt;
   end;
 writeln('0');
 readln;
end.

Это сообщение отредактировал(а) Kbl4AH - 24.12.2008, 15:34

PRo9

Дата 24.12.2008, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 30.11.2008

Репутация: нет
Всего: нет

А не можешь нарисовать правильно, если не сложно. Я просто не очень умею их рисовать

Это сообщение отредактировал(а) PRo9 - 24.12.2008, 15:36

Kbl4AH

Дата 24.12.2008, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: нет
Всего: 15

Цитата(PRo9 @ 24.12.2008, 15:33

)

А не можешь нарисовать правильно, если не сложно

сложно

тем более обозначения правильные не помню...

Для твоего кода я бы так блок-схему сделал...
Но соответсвие ГОСТ не гарантирую...

Это сообщение отредактировал(а) Kbl4AH - 24.12.2008, 16:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »