Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Филтрацыя

40K
25 ноября 2008 года
WitaliyDsgn
4 / / 29.10.2008
У меня есть алгоритм обчисления:

Код:
program my;
var n1,n2,n3,res,i,j,k,s,sa : integer;
begin
readln(n1,n2,n3);
for i := -1 to 1 do begin
for j := -1 to 1 do begin
for k := -1 to 1 do
begin
s := (n1*i) + (n2*j) +(n3*k);
if (s + abs(s) <> 0) then begin
Writeln(s);
inc(res);
end;
end;
end;
end;
readln;
end.


Но при вводе значений, например 0 3 4 те же самые значения повторяются. Как мне сделать, что-бы были только уникальные значения? спасибо.
2.1K
28 ноября 2008 года
smoki
115 / / 05.11.2006
Можно записывать данные в массив и каждый раз его проверять, если есть такое число, то не писать в массив
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог