Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
02.04.2010, 12:18
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Ничего не понял.... Оо нормально напиши!
|
|
|
02.04.2010, 12:28
|
|
Познающий
Регистрация: 27.05.2009
Сообщений: 44
Провел на форуме:
105684
Репутация:
-1
|
|
Сообщение от fenixelite
Ничего не понял.... Оо нормально напиши!
int AlphaBeta (pos, depth, alpha, beta)
{
 if (depth == 0) return Evaluate(pos);
 best = -INFINITY;
 succ = Successors(pos);
 while (not Empty(succ) && best < beta)
{
 pos = RemoveOne(succ);
 if (best > alpha) alpha = best;
 value = -AlphaBeta(pos, depth-1, -beta, -alpha);
 if (value > best) best = value;
}
 return best;
}
 while (not Empty(succ) && best < beta)
тут если алфа болше то проишодит отсичение вот и вапрос чем бета становится хуже чем алфа если алфа равна или болше бета ну болше ясно а вот ровна  непонятно
|
|
|
|
помогите решить 2 задачи по турбо поскалю |
02.04.2010, 13:52
|
|
Новичок
Регистрация: 23.01.2010
Сообщений: 3
Провел на форуме:
8601
Репутация:
-1
|
|
помогите решить 2 задачи по турбо поскалю
1 ЗАДАЧА)
Написатьь программу котороя вычисляет сумму певых n целых положительных чётных чисел.
Количество суммируемых чисел должно вводится во время работы программы.
2 ЗАДАЧА)
Написать программу вычесления площади кольца. программа должна проверять правельность исходных данных.
Рекомендуемый вид программы :
вычесление площади кольца. Введите исходные данные: Радиус кольца (см)->3.5
Радиус отверстия(см)->7
Ошибка! РАдиус отверстия не может быть больше раддиуса кольца.
|
|
|
|
02.04.2010, 14:07
|
|
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
Провел на форуме:
1777031
Репутация:
256
|
|
Вот первая, но не знаю будет ли она работать, т.к. нет возможности проверить.
Код:
Program suma;
var
n, c, i, suma:integer;
begin
Writeln("Vvedi kolichestvo");
Readln(n)
Writeln("Vvedi n chisel");
Readln(c);
for i:=1 to n do
begin suma:= suma+c;
end;
writeln(suma);
end.
|
|
|
|
02.04.2010, 14:12
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
Вот первая, думаю так легче))))
PHP код:
var
n: integer;
begin
readln(n);
writeln((1 + n)*n);
readln;
end.
|
|
|
|
02.04.2010, 14:20
|
|
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
Провел на форуме:
1777031
Репутация:
256
|
|
Вот так вторая:
Код:
Program kolco;
const p=3.14;
var radius_kolca, radius_otverstia, S_kolca:integer;
begin
Writeln("Vvedite radius kolca");
Readln(radius_kolca);
Writeln("Vvedite radius otverstia");
Readln(radius_otverstia);
if radius_otverstia>radius_kolca then
writeln("radius_otverstia ne mozhet bit bolshe radius_kolca")
else S_kolca:=p*(sqr(radius_kolca)-sqr(radius_otverstia));
writeln(S_kolca);
end.
Знающие проверьте правильно ли написал . |
|
|
|
02.04.2010, 14:26
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
вторая))) кто обосрет мой код получит плюс)))
PHP код:
var
so,sk,s,rk,ro: float;
begin
while rk<=ro do
begin
writeln('vvedide radius colca');
readln(rk);
writeln('vvedide radius otverstia');
readln(ro);
if rk<=ro then writeln('ne vernij vvod');
end;
sk:=pi*sqr(rk);
so:=pi*sqr(ro);
s:=sk-so;
writeln('Ploshad=',s);
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 02.04.2010 в 14:46..
|
|
|
|
02.04.2010, 14:28
|
|
Новичок
Регистрация: 21.10.2009
Сообщений: 27
Провел на форуме:
815635
Репутация:
16
|
|
Вот мой вариант 2 задачи)
PHP код:
Program kryg;
var
n,k,s,s1,s2:integer;
begin
writeln('Vvedite radiys koltsa');
readln(n);
writeln('vvedite radiys otverstvuja');
readln(k);
if k>n tnen writeln ('Oshibka! RAdius otverstiya ne mozhet byt bo'she radiusa kolca') else
s1:=3.14*sqr(n);
s2:=3.14*sqr(k);
s:=s1-s2;
writeln ('plowad kolca- ',s)
end.
Последний раз редактировалось moodoone; 02.04.2010 в 14:33..
|
|
|
|
02.04.2010, 14:28
|
|
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
Провел на форуме:
1777031
Репутация:
256
|
|
EndLeSSDre@M у меня как бы тоже самое. Или я ошибаюсь?
|
|
|
|
02.04.2010, 14:29
|
|
Новичок
Регистрация: 21.10.2009
Сообщений: 27
Провел на форуме:
815635
Репутация:
16
|
|
wagen, уже имеешь 3 варианта и все похожи))
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
