VPF::[Pascal]Mассивы и строки - Форум программистов

Dwane

Дата 5.4.2009, 21:00 (ссылка)

(голосов:2)

Загрузка ...

Новичок

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

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

Вопрос по массивам и строкам

Код


for i:=1 to 3 do
read(kx[i]);
Readkey;
for i:=1 to 3 do

if kx[i]<kp[i] then kxn[i]:=kx[i] else kxn[i]:=0;

for i:=1 to 3 do
str(kxn[i],z);
outtextxy(150,50+(i+50),z);
readkey;
End.

Вот код.Мне нужно чтобы введенные элементы массива kx сравнивались с элементами масива kp и когда элемент kx меньше элемента kp записывались в 3 масств Kxn,если же равен или больше то записывался бы 0.
А затем чтобы они выводились на экран.Вертикально,ну тоесть по оси y вниз.
Но у меня он записывает в kxn только последнее число которое меньше kp[i] ,а не все которые меньше kp[i].Или выводит только последние число я не понимаю.
Как это исправить?

Это сообщение отредактировал(а) Dwane - 5.4.2009, 22:03

mopsa

Дата 5.4.2009, 23:11 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 59
Регистрация: 11.1.2009
Где: Екатеринбург/Асбе ст

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

выводит только последнее

Код


for i:=1 to 3 do
  begin                                      //<-пропустил
    str(kxn[i],z);
    outtextxy(150,50+(i+50),z);
  end;                                        //  ну и здесь
readkey;

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