Итак, как и все студенты, которые пошли учиться на программиста, потому что компьютеры - это здорово, а работать с ним, как оказалось, не очень, я столкнулся с проблемой. В моем случае Delphi.
Господа, помогите написать программу> объяснить её.
А что тут сложного.. Меня еще в лицее учили паскалю.. У тебя есть массив ты задаешь параметр I=0 x=0 Begin X1=X if x>x1 then I=I+1 else x=x1 then I=I+1. Итак массив упорядочении, теперь находить нужное число if 1<Y<2 then k=I else I=I+1
Добавлено (20-01-2015, 22:28) --------------------------------------------- Чего то типо того от тебя хотят)
Ооооо, старый добрый 2ой курс. Сейчас чаек попью и приду посмотрю, что тут можно сделать. Вспомню старое
Итак, начнем! Сразу говорю, что синтаксис я точно не помню, поэтому могут быть не значительные ошибки.
Если я всё правильно понял, то как-то так:
Код
var A : array[1..10] of Integer; begin for x := 0 to Length(A) - 1 do begin TMemo.Lines.Add('x = ' + IntToStr(x + 1) + ', k = ' + IntToStr(A[x] - 1)); TEdit.Text := TEdit.Text + 'x = ' + IntToStr(x + 1) + ', k = ' + IntToStr(A[x] - 1) + #13; end; end.
P.S. никогда не обращайся на КиберФорум! Там полно людей, считающих себя "гуру" программирования. Бывают случаи, когда задаёшь им элементарный вопрос и... у них происходит ступор. Они начинают писать всякий бред, задавать тебе +100500 лишних вопросов вообще не по теме, всё что угодно, лишь бы не отвечать на твой вопрос и не выставить себя дураками.
Dronich, по условию задачи написано, что массив упорядоЧЕН. Там же не написано, что его нужно упорядоЧИТЬ. Вот я по умолчанию и задал от 1 до 10 [A : array[1..10] of Integer;].
