King175, кстати, ЛОКАТЕ 10,30- это чё вообще такое и к чему в этой задаче? Это ж вроде графическая команда... Или я туплю?...

Нда... Здесь бес пол-литра не разберешься. вообщем-если будет блок-схема,то задача почти решена.отстается её только набрать на компе.

HEG, да блок-схему я за пять минут нарисую. Надо ж ещё передать её- отсканировать,... А в ворде меня ломает её рисовать.

King175, когда тебе сдавать это?

SerW, локате 10,30 это перевод курсора на 30ю позицию 10-ой строки экрана результата. В общем к решению должна быть написана программа начиная с
"программа к задаче 1
<b>KOLOR 15,1
CLS
LOCATE 10,30
INPUT</b> "введите х"; х" ввод числового значения х
PRINT USING
...
и так далее.

Вместо KOLOR - COLOR.

King175, понятно. А сначала- это типа "вспышка" другого цвета на экране появляется перед выгодом результата программы, да? И принт юзинг- это что такое?

Ха, всё эти команды что я написал в пред-предидущем посте(где команд много) даже на форум влияют. Я пытался тот пост исправить, а мне на экран такую билеберду выдавало... и в том числе полосу другого цвета на общем фоне. Ладно, я уже в Т9 начинаю путать буквы, значит пора на боковую. Я обычно очень быстро набираю текст на Т9, но как только вижу что начинаю ошибаться в буквах, значит сигнал что пора спать. Завтра, точнее сегодня на дорешаем. Всем пока и спасибо за помощь!!

King175, сейчас напишу решение. Предупреждаю сразу, оно будет нестандартным. Так что втыкай! Не воткнёшь- пропалишься!

CLS
INPUT x
a=x"2-2*x+1 : Y=1
FOR k=1 TO 5
Y=Y*(k+1)
NEXT k
IF a>5 THEN Y=LOG(x"2-1)/SIN(x)
PRINT Y
END

Помогите плиз решите задачку в турбо паскале: В квадратной матрице размерности N*N поменять местами минимальные элементы, расположенные над и под главной диагональю. Пожалуйста с блок схемой

senka2, зачем в течение семи минут дублировать пост. Кто знает - поможет...