|
существует ли алгоритм для вычисления максимального в паскале? | ☑ | |||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
0
program345
31.07.14
✎
14:30
|
Всем привет!
Ветка для развития извилин. Можно ли вычислить максимальное значение из 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))
да |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |