Имя: Пароль:
IT
 
существует ли алгоритм для вычисления максимального в паскале?
0 program345
 
31.07.14
14:30
1. да 71% (5)
2. МНЕ КАК-ТО .... 29% (2)
3. НЕТ 0% (0)
Всего мнений: 7

Всем привет!
Ветка для развития извилин.
Можно ли вычислить максимальное значение из 10 введенных цифр используя цикл? Без массивов и условий?
1 skunk
 
31.07.14
14:31
мах - использовать можно?
2 acsent
 
31.07.14
14:32
подключиться к скулю, записать данные в таблицу, взять макс.
3 дедушка Вах
 
31.07.14
14:33
без условий это пять. зачем тогда 10-ть, 2х достаточно
4 Garykom
 
гуру
31.07.14
14:34
(31) если вводить "цифры" (наверно все таки числа) в строку а потом цикл по этой строке то

да
5 skunk
 
31.07.14
14:37
(4)а что мешает вводить цифры собственно в цикле

a = 0;
for i := 1 to 10 do
  write("введите цифру?);
  read(x);
  a = max(x, a);
enddo
6 supremum
 
31.07.14
14:39
можно без условий и циклов

да
7 Garykom
 
гуру
31.07.14
14:40
(5) а вот я введу -1 и что?
8 program345
 
31.07.14
14:40
max нельзя в том и соль!
9 skunk
 
31.07.14
14:41
(8)почему?
10 NS
 
31.07.14
14:42
Ну если из двух можно, то и из десяти тоже.
11 Garykom
 
гуру
31.07.14
14:43
(8) case и процедуры/функции надеюсь можно?
тогда Max не нужен...
12 program345
 
31.07.14
14:43
3 числа сделали условиями, но если их будет 100 это уже затруднительно:



var
  a, b, c, d: integer;
  n,i: integer;

begin
  writeln('сколько раз будем вычислять?');
  read(n);
  i := 1;
  while i <= n do
  begin
    writeln('Введите 3 числа');
    readln(a, b, c);
    if a > b
          then
      a := d
    else
      b := d;
    if d > c
                then
      writeln('максимальное число = ', d)
    else
      writeln('максимальное число = ', c);
    i := i + 1;
  end;
  
  
  
end.
13 NS
 
31.07.14
14:43
(12) Сделай в цикле.
14 program345
 
31.07.14
14:44
(11) можно case, но лучще без него!
15 NS
 
31.07.14
14:44
(12) А зачем вы сделали условиями, если задание без условий?
16 skunk
 
31.07.14
14:44
(7)я здесь без типов писал ... для интежера водишь там указываешь в а максимально допустимое отрицательно число
17 Garykom
 
гуру
31.07.14
14:46
(16) надо просто цикл со 2-го числа начать, ну или с 1-го но сначала ввести 0-е ))
18 Garykom
 
гуру
31.07.14
14:46
(17)+ тогда нафик это "максимально допустимое отрицательно число"
19 Garykom
 
гуру
31.07.14
14:47
(15) потому что не "шмогла я, не шмогла"
20 VladZ
 
31.07.14
14:49
(0) э... Была же недавно задача сравнить два числа без условий. Вот эту задачу решить в цикле.
21 Jokero
 
31.07.14
14:49
как можно без условий выбрать что-то из двух объектов?
22 NS
 
31.07.14
14:50
Вообще смотри предыдущую ветку, там твою задачу переделал на цикл, тут так-же.
23 Многолетний Апельсин
 
31.07.14
14:51
Господа, я боле на всю голову?

byte * mem = malloc(sizeof(int) * 2)
memset(mem,0,sizeof(int) * 2);

print("Сколько будем вводить чисел?");
int i;
scanf("%d",&i);

while(i > 0)
{
    int max = *(int*)&mem[sizeof(int)];
    int cur;
    scanf("%d",&cur);

    *((int*)&mem[cur > max]) = cur;

    i--;
}

printf("%d",*(int*)&mem[sizeof(int)]);

зато без if-ов))))
24 Многолетний Апельсин
 
31.07.14
14:52
Я паскаль не помню, но думаю там аналогично можно сделать.
25 Garykom
 
гуру
31.07.14
14:54
(23) хитро спрятал условие ))
26 NS
 
31.07.14
14:54
var a,m,i:integer;
begin
   read(a);
   m:=a;
   for i:=2 to 10 do
   begin
        read(a);
        if a>m then m:=a;
   end;
   writeln(m);
end.
27 NikVars
 
31.07.14
14:56
(0) Жуть! Ищи максимальное... А максимальное ЧТО?!
Максимальное расстояние которое поедет комиивояжер, посещая один город ровно один раз?
Таких алгоритмов куча, это к сведению, для развитя интеллекта.
28 Garykom
 
гуру
31.07.14
14:57
(0) Не твой http://pas1.ru/ случаем сайт ))
29 NikVars
 
31.07.14
14:58
(28) Не, это слишком умный сайт для топикстартера.
30 Многолетний Апельсин
 
31.07.14
14:58
(25) ну не думаю что это можно назвать условием)

Я там кстати накосячил с адресацией
*((int*)&mem[cur > max]) = cur;
там можно и нужно вот так
((int*)mem))[cur > max] = cur;
31 Garykom
 
гуру
31.07.14
15:02
(30) кроме этого 2-го еще есть 1-е "цикл с условием" (while) это цикл "с условием"
32 Karavanych
 
31.07.14
15:07
(0) А с чего на мисте последнее время какие-то темы про паскаль ? в чем прикол, кто им еще пользуется ?
33 NikVars
 
31.07.14
15:08
(32) А ты только темы читаешь, а автора темы тупо не замечаешь?!
34 Karavanych
 
31.07.14
15:11
(33) Эта первая в которую я зашел :) в другие не заглядывал даже и кто там автор не смотрел, так понимаю один и тот же человек ? :)))
Ему уже говорили что рулит Java, Objectiv C И C#
и забыть про паскаль ?
35 Многолетний Апельсин
 
31.07.14
15:11
Мухахахахаха, без условий)

byte * mem = malloc(sizeof(int) * 2)
memset(mem,0,sizeof(int) * 2);

int * ptr = (int*)mem;

int * max = ptr+1;
int * cur = ptr;

#define DO_THINGS(d) { printf("Введите число"#d":\n>@"); scanf("%d",cur); int diff = *max - *cur; *ptr[!(diff & (1<<31))] = *cur;}

DO_THINGS(1)
DO_THINGS(2)
DO_THINGS(3)
DO_THINGS(4)
DO_THINGS(5)
DO_THINGS(6)
DO_THINGS(7)
DO_THINGS(8)
DO_THINGS(9)
DO_THINGS(10)

printf("%d",*max);
36 Garykom
 
гуру
31.07.14
15:13
Кстати у нас в лицее в классе была прикольная игра с инженерным калькулятором:

Не пользуясь вводом цифр, только функциями из начального 0 получить загаданное число на экране...

Реализовать что ли ее в онлайн... ))
37 NikVars
 
31.07.14
15:15
(34) Нифига. Тут рулит 1С.
38 Garykom
 
гуру
31.07.14
15:15
(35) молодца но "оно" не уверен что освоит работу с памятью (указатели) в паскале ))

хотя там еще asm вставки допустимы ))
39 NikVars
 
31.07.14
15:17
(35) Приведите бинарный код, пожалуйста!
40 Karavanych
 
31.07.14
15:21
(37) не, 1С тащит, а не рулит :) есть разница :)
41 acsent
 
31.07.14
15:23
Точно, можно на асме написать, там нет никаких if'ов
42 NikVars
 
31.07.14
15:27
(40) Есть разница. Перечисленное тобой нафик кому нужно. Академический интерес для коллекционирования ЯВУ, которые "знаешь"... 1С и только 1С! Более, чем на миллионе предприятий РФ.
:)
43 program345
 
31.07.14
15:27
вот вариант с условием, но лучше бы без него:




var
  a,b,max1,max2:integer;
  i:integer;
begin
  writeln('введите 10 чисел');
  readln(a,b);
  
  if a>=b then
    max1:=a
      else
        max1:=b;
        
        for i:=3 to 10 do
          readln(a);
            if a>=max1 then
              max2:=a
                else
                  max2:=max1;
                  
                 writeln ('максимальное число= ',max2);
                  end.
44 program345
 
31.07.14
15:27
var
  a,b,max1,max2:integer;
  i:integer;
begin
  writeln('введите 10 чисел');
  readln(a,b);
  
  if a>=b then
    max1:=a
      else
        max1:=b;
        
        for i:=3 to 10 do
          readln(a);
            if a>=max1 then
              max2:=a
                else
                  max2:=max1;
                  
                 writeln ('максимальное число= ',max2);
                  end.
45 skunk
 
31.07.14
15:28
(41)как это нету ... там всем джампы по условию?
46 NikVars
 
31.07.14
15:28
(43) (44)
writeln('введите 10 чисел');
readln(a,b);

Это просто шедевр!
47 Jokero
 
31.07.14
15:28
спрятать условие в for to do можно?

      for j=Число1 to Число2 do ; EndDo;
    for j=Число2 to Число3 do ; EndDo;
    ...  
    Message("самое большое число - "+ j);
48 Jokero
 
31.07.14
15:31
числа тльк должны быть целыми, приращение то единичка
49 Многолетний Апельсин
 
31.07.14
15:35
Вот совсем по честному без использование выделяемой памяти(по сути массива) - компилятор стековые переменные укладывает рядом.
int cur = 0;
int max = 0;

#define DO_THINGS(d) { \
            printf("Введите число"#d":\n>"); \
            scanf("%d",&cur); \
            int diff = max - cur; \
            *((&cur) + !(diff & (1<<31))) = cur;\
             } \

DO_THINGS(0)
...
DO_THINGS(10)

printf("%d",max);

ну ассемблере наверное будет что-то типа

push 0x0008 ; пушаем адрес строки "%d"
push 0x0000 ; пушаем адрес cur
call scanf ; вызываем сканф
mov eax,max ; запихиваем max в еax
sub eax,[0x0000]; вычитаем из него cur
and eax,2147483648 ; вычисляем бит знака
not eax ; делаем инверсию
mul 4 ; высчитываем смещение для этого числа
mov [0x0000],eax ; перемещаем cur в нужную ячейку памяти
...
push 0x0008
push 0x0004
call printf

да
50 1Сергей
 
31.07.14
15:57
(49) пиши в машинном коде, в двоичном. что ты как студентка на асме пишешь?
51 toypaul
 
гуру
31.07.14
16:01
max(max(max(max , ...

без условий и циклов
52 toypaul
 
гуру
31.07.14
16:02
ах макс нельзя ...
53 toypaul
 
гуру
31.07.14
16:05
какая-то тупая тема. и автор такой же. сначала одни условия, потом другие.

"Ветка для развития извилин" - плохое прикрытие для сделайте мне курсовую по программированию бесплатно.

МНЕ КАК-ТО ....
54 Многолетний Апельсин
 
31.07.14
16:10
(50) 0x6A, 0x08, 0x6A, 0x00, 0xE8, 0xFC, 0xFF, 0xFF, 0xFF, 0xA1, 0x00, 0x00, 0x00, 0x00, 0x2B, 0x05, 0x00, 0x00, 0x00, 0x00, 0x25, 0x00, 0x00, 0x00, 0x80, 0xF7, 0xD0, 0x8B, 0x1D, 0x04, 0x00, 0x00, 0x00, 0xF7, 0xE3, 0xA3, 0x00, 0x00, 0x00, 0x00, 0x6A, 0x08, 0x6A, 0x04, 0xE8, 0xFC, 0xFF, 0xFF, 0xFF

или

01010110000100000101011000000000000101110011111111111111111111111111111110000101000000000000000000000000000000001101010010100000000000000000000000000000000000001010010000000000000000000000000000000001111011110000101111010001101110000010000000000000000000000000000011101111110001111100010100000000000000000000000000000000010101100001000001010110001000000001011100111111111111111111111111111111
55 Крошка Ру
 
31.07.14
16:52
(44)Без циклов и условий:

readln(a,b,c,d,e,f,g,h,i,j);

Abs((Abs((Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)+h)/2)+Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)-h)/2)+i)/2)+Abs((Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)+h)/2)+Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)-h)/2)-i)/2)+j)/2)+Abs((Abs((Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)+h)/2)+Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)-h)/2)+i)/2)+Abs((Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)+h)/2)+Abs((Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)+g)/2)+Abs((Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)+f)/2)+Abs((Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)+e)/2)+Abs((Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)+d)/2)+Abs((Abs((Abs((a+b)/2)+Abs((a-b)/2)+c)/2)+Abs((Abs((a+b)/2)+Abs((a-b)/2)-c)/2)-d)/2)-e)/2)-f)/2)-g)/2)-h)/2)-i)/2)-j)/2);
56 Крошка Ру
 
31.07.14
16:52
(55) Сорри))
57 Крошка Ру
 
31.07.14
16:53
(55) Но это реально работает
58 Многолетний Апельсин
 
31.07.14
16:56
(55) лол, а как оно работает?
59 Крошка Ру
 
31.07.14
17:03
(58) Максимум из 2-х чисел это модуль полусуммы плюс модуль полуразности. Рекурсивно расширяем до десяти чисел и вуаля! )))
60 Garykom
 
гуру
31.07.14
17:04
(58), (59)+
развернул Abs((a+b)/2)+Abs((a-b)/2) на 10 чисел ))
61 NikVars
 
31.07.14
17:05
(57) Фиг ВАМ! Нет вывода!
62 Garykom
 
гуру
31.07.14
17:06
(61) пофиг на вывод сам добавит...

(59) а надо было еще это в цикл завернуть и вообще ок было бы можно и с рекурсией ))
63 NikVars
 
31.07.14
17:08
(62) Тот, что в нуле - нет, не добавит.
64 _fvadim
 
31.07.14
17:08
(55) давай уже контрольный - то же самое на асме :)
65 Lama12
 
31.07.14
17:12
(0) Дружище, я такие задачки с ходу решал на спектруме. Имея только руководство пользователя и голову. Учился тогда, в 8 классе.
Самому-то не стыдно такое спрашивать?

да
66 Garykom
 
гуру
31.07.14
17:14
program a10;
var
a, b, n :integer;
function f(integer a, b):integer;
begin
f:=Abs((a+b)/2)+Abs((a-b)/2);
end;

begin
read(a);
for n=1 to 10 do begin
  read(b);
  a = f(a, b);
end;
writeln(a);
end.
67 Garykom
 
гуру
31.07.14
17:14
(66) тока сорри на 11 чисел сделал а не на 10 )) в цикле ошибся
68 Garykom
 
гуру
31.07.14
17:16
(66)+ и в объявлении функции ошибся совсем старый стал привык уже к java и c#

function f(a, b:integer):integer;
69 NS
 
31.07.14
17:16
(55) abs() - это условие.
70 Garykom
 
гуру
31.07.14
17:20
(69) вообщем без условий (во всех видах в т.ч. скрытых) задача нерешаема так?
71 Многолетний Апельсин
 
31.07.14
17:22
(69) неа, abs можно расписать так так
int abs(int a)
{
return a & ((1<<31) - 1); // обнуляем 32-й бит - знак
}
72 NS
 
31.07.14
17:22
(70) В предыдущей ветке автора написано как решать с двумя числами. Решаема.
73 NS
 
31.07.14
17:23
(71) Тогда ой :)
74 Garykom
 
гуру
31.07.14
17:30
(71) точно если у нас integer то можно - превратить в + через sqrt(a^2)
75 Многолетний Апельсин
 
31.07.14
17:31
(74) ну это уже попахивает маразмом, битовые операции насколько я знаю это то что процессор выполняет быстрей всего.
76 Крошка Ру
 
31.07.14
17:35
(75) Ну насколько я понимаю, о скорости выполнения(и вообще, об оптимальности кода) в этой ветке задумываются в последнюю очередь))
77 Многолетний Апельсин
 
31.07.14
17:40
(76) ну в крайности тоже уходить не стоит я думаю, как по мне - вычисление модуля через квадратный корень пахнет индусским кодом.
78 Крошка Ру
 
31.07.14
17:40
(77) Просто вся ветка, начиная прямо с темы - это один сплошной маразм и индусский код))
79 Крошка Ру
 
31.07.14
17:43
А если соединить(55) и (74), то ТСу гарантирован зачет по предмету(ну или пятерка по информатике), ящитаю
80 Крошка Ру
 
31.07.14
17:47
(0) лол,  "ветка для развития извилин" !!!
81 Крошка Ру
 
31.07.14
17:55
(0) Ах,черт! Ещё и голосовалка!

Это просто праздник какой-то..
82 МойКодУныл
 
31.07.14
17:55
Ждем создания ветки для развития мышц, где ТС будет звать всех копать картошку к себе на дачу.

МНЕ КАК-ТО ....
83 Wobland
 
31.07.14
18:04
(82) это будет сделано в жанре викторины. проигравший выбывает копать очередную грядку
84 DGorgoN
 
31.07.14
18:11
sqrt(sqr(a-b))

да