| |
|
|
| | Расположить три произвольных числа в возрастающем порядке, через цыкл.
Пожалуйста :) | |
| |
|
|
| |
|
|
| |
для: Бамси
(16.06.2007 в 00:54)
| | | a[1] := (* число 1*);
a[2] := (* число 2 *);
a[3] := (* число 3 *);
for i := 1 to 2 do if a[i]> a[3] then
begin t := a[i]; a[i] := a[3]; a[3] := t; end; | |
| |
|
|
| |
|
|
| |
для: Trianon
(16.06.2007 в 01:18)
| | | спасибо | |
| |
|
|
| |
|
|
| |
для: Бамси
(16.06.2007 в 15:47)
| | | а вот и утро.... | |
| |
|
|
| |
|
|
| |
для: mr Bin
(16.06.2007 в 18:38)
| | | >а вот и утро....
Когда встал - тогда и утро=) | |
| |
|
|
| |
|
|
| |
для: Trianon
(16.06.2007 в 01:18)
| | | Ага, конечно. А если
?
ИМХО
a[1] := (* число 1*);
a[2] := (* число 2 *);
a[3] := (* число 3 *);
for j:=1 to length(a)-1 do
begin
for i := 1 to length(a)-1 do
if a[i] > a[i+1] then
begin
t := a[i];
a[i] := a[i+1];
a[i+1] := t;
end;
end;
|
| |
| |
|
|
| |
|
|
| |
для: TXC
(16.06.2007 в 20:42)
| | | >Ага, конечно. А если
>a[1]:=3
>a[2]:=2
>a[3]:=4
>?
и что тогда? | |
| |
|
|
| |
|
|
| |
для: Trianon
(16.06.2007 в 21:51)
| | | Вот значит как... А мы то думали TRIANON.....
Всё, не подходите больше. | |
| |
|
|
| |
|
|
| |
для: Trianon
(16.06.2007 в 21:51)
| | | 2Trianion
И тогда получаем в итоговом массиве:
a[1]:=3
a[2]:=2
a[3]:=4
,что является неверным решением задачи. Ведь при таком исходном массиве Ваше условие в конструкции IF не выполнится никогда.
2kasmanaft
Trianon уже кому-то объяснял, что его, как впрочем и других пользователей, боготворить не надо. Право на ошибку имеет каждый. | |
| |
|
|
| |
|
|
| |
для: TXC
(16.06.2007 в 22:01)
| | | > Trianon уже кому-то объяснял
Кхм-кхм.. мну и объяснял :DD
Я же ведь шучу... | |
| |
|
|
