VPF::Помогите написать блок схему на Паскале

PRo9

Дата 30.11.2008, 20:45 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 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 - 30.11.2008, 20:46

destrd

Дата 30.11.2008, 23:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Ну и что вам тут не понятно, вы не можете оформить команды в прямоугольники, а условия в ромбики и поставить между ними стелочки, и написать начало и конец в прямоугольниках со скруглёнными вертикальными сторонами?

--------------------

Some people, when confronted with a problem, think, "I known, I'll use regular expressions." Now they have two problems. -- Jamie Zawinski in comp.lang.emacs

PRo9

Дата 1.12.2008, 12:47 (ссылка)

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

Загрузка ...

Новичок

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

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

Ну не совсем понимаю. вот и попросил. Если можете

PRo9

Дата 1.12.2008, 13:42 (ссылка)

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

Загрузка ...

Новичок

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

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

destrd, примерно так. Поправь если не так

Заранее спасибо

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