Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ отрицательные числа

Автор: oljka 30.05.2006 2:30

я всё понимаю,но это была не Кристина,просто с одного компа входили.....очень прошу, помогите исправить программу.... give_rose.gif


Прикрепленные файлы
Прикрепленный файл  UZD8.PAS ( 670 байт ) Кол-во скачиваний: 183

Автор: Bokul 30.05.2006 2:54

Какая разница, всеравно задача почти такая же blink.gif
http://forum.pascal.net.ru/index.php?showtopic=11027

Автор: oljka 30.05.2006 3:39

Я по этому типу и делала программу, но у меня показывает ошибку mega_chok.gif

Автор: Bokul 30.05.2006 3:41

Цитата
но у меня показывает ошибку

Какую?
Покажи свой код.

Автор: oljka 30.05.2006 3:50

Какой код? wacko.gif

Автор: volvo 30.05.2006 3:50

Ну, положим, ты НЕ по той программе делала свою... Иначе ЗАЧЕМ поменяла кусок, где производится обмен переменных местами? Там будет ошибка... Сама догадаешься, почему, или объяснить?

Нельзя брать кусок - отсюда, кусок - оттуда, объединять, и чтоб это ЕЩЕ и работало..

Автор: oljka 30.05.2006 3:54

Цитата(volvo @ 29.05.2006 23:50) *

Ну, положим, ты НЕ по той программе делала свою... Иначе ЗАЧЕМ поменяла кусок, где производится обмен переменных местами? Там будет ошибка... Сама догадаешься, почему, или объяснить?

Нельзя брать кусок - отсюда, кусок - оттуда, объединять, и чтоб это ЕЩЕ и работало..

В том-то и дело, что я не понимаю ...

Автор: oljka 30.05.2006 4:05

помогите!!!!!!!!!!!!!!!!помогите!!!!!!

Автор: oljka 30.05.2006 4:20

Ну, пожалуйста, исправьте мне программу... unsure.gif unsure.gif unsure.gif

Автор: Bokul 30.05.2006 4:44

Volvo как всегда прав smile.gif

Цитата
Решение делается заменой ТРЕХ СИМВОЛОВ

uses crt;
const n=6;
TYPE mas=array[1..n] of integer;

procedure bubble(var x:mas);
var i,j,T:integer;
begin
for i:=1 to n do
for j:=n downto i+1 do
if (x[i]<0{первый} ) and (x[j]<0{второй}) and (x[i]<x[j]{третий}) then
begin
T:=x[i];
x[i]:=x[j];
x[j]:=T;
end;

end;

var i:byte; x:mas;
begin
clrscr;
writeln('Enter array ',n);
for i:=1 to n do
readln(x[i]);
clrscr;
for i:=1 to n do
write(x[i],' ');
bubble(x);
writeln;
for i:=1 to n do
write(x[i],' ');
readln;
end.

Автор: -oljka- 30.05.2006 21:10

Ты проверил программу перед тем, как её впустить.... У меня показываются только нули: 000000

Автор: volvo 30.05.2006 22:05

А телепаты на других форумах. Исходные данные свои приведи...

У меня, например, на массиве
1 -8 3 -5 4 -7
все прекрасно отработало