Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Написать алгоритм вычисления (https://forum.antichat.xyz/showthread.php?t=173682)

Omen666 25.01.2010 19:34
Написать алгоритм вычисления
 
Народ, помогите пожалуйста написать алгоритм вычесления N!
вводится N
N!=1*2*3....*N
Вот...
Спасибо

wildshaman 25.01.2010 19:35
Язык?

wildshaman 25.01.2010 19:37
PHP код:
<?
function factorial($n)
{
$fact=1;
for ($i=1; $i<=$n; $i++)
    $fact=$fact*$i;
return $fact;
}

echo factorial(100);

?>

Qwazar 25.01.2010 19:38
res = 1;
for(int i=1; i<=N; ++i)
res *= i;

Omen666 25.01.2010 19:45
Черт) Надо было в виде схемыыы...
что-то вроде такой вот схемы
http://cs10105.vkontakte.ru/u2605450...x_6e3bbb22.jpg

EndLeSSDre@M 25.01.2010 19:52
publick function asdf()
k=val(textbox1)

n=1

for i=1 to k
n=n*i
next i

msgbox(n)

end function

еси надо могу блок схему нарисовать

Omen666 25.01.2010 19:56
Цитата:
Сообщение от EndLeSSDre@M
publick function asdf()
k=val(textbox1)

n=1

for i=1 to k
n=n*i
next i

msgbox(n)

end function

еси надо могу блок схему нарисовать
во! походу то, что мне надо и есть блок схема) если я прав, напиши пожалуйста :)

Omen666 25.01.2010 20:20
Очень добрый парень помог мне! спасибо ему! Тему можно деллл

Omen666 02.02.2010 11:46
Требуется опять написать алгоритм в виде схемы. А написать надо для "х" в степени "y". Спасибо. Надеюсь на вас.

Cthulchu 02.02.2010 12:03
Код:
for i,x,y,s: integer;
begin
writeln ("enter plz x & y");
readln (x,y);
s:=1
for i=0 to y do
 s:=s*x;
writeln ("x^y = ", s);
readln();
end.
-
но этот код кривой - у мну нету под ругой конпелятора. Вот питоний:
Код:
i=0
x=2
y=10
s=1
for i in range(0, y):
    s=s*x
else:
    print(s)
на счет предыдущего - для факториала надо всегда делать проверку, что N>0, N=0 и else. при N=0, N!=1.
---
я бы и блок-схему набросал, но у мну нету софтины с собой и нету фотоаппарата цифрового. Так что если скниешь торрент-файл на мелкомягкий визио 2007 - покажу схему.

Omen666 02.02.2010 12:30
Цитата:
Сообщение от Cthulchu
Код:
for i,x,y,s: integer;
begin
writeln ("enter plz x & y");
readln (x,y);
s:=1
for i=0 to y do
 s:=s*x;
writeln ("x^y = ", s);
readln();
end.
-
но этот код кривой - у мну нету под ругой конпелятора. Вот питоний:
Код:
i=0
x=2
y=10
s=1
for i in range(0, y):
    s=s*x
else:
    print(s)
на счет предыдущего - для факториала надо всегда делать проверку, что N>0, N=0 и else. при N=0, N!=1.
---
я бы и блок-схему набросал, но у мну нету софтины с собой и нету фотоаппарата цифрового. Так что если скниешь торрент-файл на мелкомягкий визио 2007 - покажу схему.
Спасибо! Скинуть торрент не могу... я с телефона((
Кто может написать блок схему, напишите пожалуйста.

m0Hze 02.02.2010 15:53
Так исходники же скинули,а блок-схему нарисовать это не сложно.

EndLeSSDre@M 02.02.2010 17:20
Цитата:
Требуется опять написать алгоритм в виде схемы. А написать надо для "х" в степени "y". Спасибо. Надеюсь на вас.
а зачем так сложно! ведь как я понял задание все элементарно

Код:
publick function asdf()
x=val(textbox1)
y=val(textbox2)
s=x^y
msgbox(Cstr(s))
end function
и фсе!

и блок схема
тыц

Omen666 02.02.2010 18:46
Цитата:
Сообщение от EndLeSSDre@M
а зачем так сложно! ведь как я понял задание все элементарно

Код:
publick function asdf()
x=val(textbox1)
y=val(textbox2)
s=x^y
msgbox(Cstr(s))
end function
и фсе!

и блок схема
тыц
Дело в том, что паскаль вроде не умеет вот так, как на блок схеме возводить в степень... и там по моим догадкам всю суть в цикле... вот как раз этот цикл я сделать немогу(
Черт... я мда... я все это пишу на паскале...

Retro 02.02.2010 19:38
Так возводи в цикле, или конструкцию с экспонентой устраивай, в паскале она есть S := exp(k*ln(a)), равносильно S = a ^ k;(а в степени k (если "к" и "а" не натуральные))

http://s002.radikal.ru/i198/1002/de/9cf467acc897t.jpg

Omen666 02.02.2010 20:07
Цитата:
Сообщение от Retro
Так возводи в цикле, или конструкцию с экспонентой устраивай, в паскале она есть S := exp(k*ln(a)), равносильно S = a ^ k;(а в степени k (если "к" и "а" не натуральные))

http://s002.radikal.ru/i198/1002/de/9cf467acc897t.jpg
Спасибо!

Omen666 08.02.2010 23:20
Итак очередное задание у меня тут) Но щас все немного проще, чем раньше)
Есть задание
"Написать программу, которая будет считывать нажатую клавишу и выводить ее на экран.Все это должно повторятся циклически, до нажатия клавиши Z"
вот я тут что-то накидал) Но я идиот) и накидал как-то крайне глупо.
вот.

Var x: char;
begin
writeln('najmite z');
repeat
x:=readkey;
writeln(ord(x));
x:=char(10);
until keypressed(z);
readln;
end.

А главное, что чертов паскаль 7.1 пишет, Uknown Indefecator на readkey/

fatalo 08.02.2010 23:29
не readkey, a read(x);

][yZ 08.02.2010 23:30
writeln('nazhmite Z');
read(z);
repeat
read(x);
writeln(x);
until x = z;

Omen666 08.02.2010 23:34
Цитата:
Сообщение от fatalo
не readkey, a read(x);
keypressed тоже отказывается работать.

fatalo 08.02.2010 23:36
скинул в пм

Omen666 08.02.2010 23:37
тут и правда ошибка... как минимум в until x = z
=============
спасибо fatalo ;*

][yZ 08.02.2010 23:40
Цитата:
Сообщение от Omen666
тут и правда ошибка... как минимум в until x = z
=============
спасибо fatalo ;*
ну ты формируй точнее, код правильный
если тебе по клавише, которую нажали, то мой код правильный, если по клавише 'Z', то так и говорить надо было

Omen666 08.02.2010 23:45
Цитата:
Сообщение от ][yZ
ну ты формируй точнее, код правильный
если тебе по клавише, которую нажали, то мой код правильный, если по клавише 'Z', то так и говорить надо было
Ну ладно) прости) Спасибо за помощь*) А можете объяснить, почему readkey не работает? Меня так учили...

][yZ 09.02.2010 00:15
Omen666, вроде как надо подключить модуль crt
Код:
uses crt;

Omen666 09.02.2010 01:02
Цитата:
Сообщение от ][yZ
Omen666, вроде как надо подключить модуль crt
Код:
uses crt;
хм, у меня без него все работает отлично)

][yZ 09.02.2010 01:06
...кроме readkey'а, да?

Omen666 09.02.2010 02:38
Цитата:
Сообщение от ][yZ
...кроме readkey'а, да?
еще keypressed нереботает

Omen666 09.03.2010 00:27
Снова требуется помощь в написание программы на паскале
Должна выводиться стока оценок вида "5_3_4" Надо найти их среднее арифметическое... Кто может, напиши пожалуйста максимально просто...
в основном должны использоваться delete, copy, insert, pos и lenght...
Огромное спасибо

VERte][ 09.03.2010 00:31
Цитата:
Сообщение от Omen666
Снова требуется помощь в написание программы на паскале
Должна выводиться стока оценок вида "5_3_4" Надо найти их среднее арифметическое... Кто может, напиши пожалуйста максимально просто...
в основном должны использоваться delete, copy, insert, pos и lenght...
Огромное спасибо
омен откуда такая репа? О_о
зы. не стеб, просто интересно (как вариант тебе настолько противен паскаль, что ты даже не можешь писать на нем :confused: )

Omen666 09.03.2010 00:34
Цитата:
Сообщение от VERte][
омен откуда такая репа? О_о
зы. не стеб, просто интересно (как вариант тебе настолько противен паскаль, что ты даже не можешь писать на нем :confused: )
Репы столько из-за накруток давних, обзоров каких-то, электроники и фрикинга, статей для СЕО и когда только пришел новостей и прокси) Да и раньше активность была куда больше)
Я плохо понимаю его(паскаль)... как и алгебру... мне проблематично все это представить и понять. Зато с русским и обществом куда лучше...

VERte][ 09.03.2010 00:40
Цитата:
Сообщение от Omen666
Репы столько из-за накруток давних, обзоров каких-то, электроники и фрикинга, статей для СЕО и когда только пришел новостей и прокси) Да и раньше активность была куда больше)
Я плохо понимаю его(паскаль)... как и алгебру... мне проблематично все это представить и понять. Зато с русским и обществом куда лучше...
Ясно, помог бы, да с паскалем не дружу (вызывает он меня некоторое отвращение, даже лезть маны читать не хочется), а так на С/asm можно написать, да видимо тебе ток паскаль нужен.

Omen666 09.03.2010 00:43
Цитата:
Сообщение от VERte][
Ясно, помог бы, да с паскалем не дружу (вызывает он меня некоторое отвращение, даже лезть маны читать не хочется), а так на С/asm можно написать, да видимо тебе ток паскаль нужен.
Ну да, мне паскаль. Учить его приходиться, хотя он стар и вряд ли полезен. Но заставляют. Вдруг мне все таки приспичит идти учиться на технаря. А так вообще вопрос. Если идти на специалиста по сетевой безопасности... много там кодить приходиться?

VERte][ 09.03.2010 00:48
Цитата:
Сообщение от Omen666
Ну да, мне паскаль. Учить его приходиться, хотя он стар и вряд ли полезен. Но заставляют. Вдруг мне все таки приспичит идти учиться на технаря. А так вообще вопрос. Если идти на специалиста по сетевой безопасности... много там кодить приходиться?
хм, могу сказать что на информационной безопасности кодить надо не очень много, но все что кодится связанно с математикой (криптография в основном), а на сетевой наверно изучают протоколы, сами сети по себе и т.д., соответственно это надо все знать и понимать, а понять это не запрогав что-нибудь и не пощупав думаю сложновато.

Omen666 09.03.2010 00:53
Цитата:
Сообщение от VERte][
хм, могу сказать что на информационной безопасности кодить надо не очень много, но все что кодится связанно с математикой (криптография в основном), а на сетевой наверно изучают протоколы, сами сети по себе и т.д., соответственно это надо все знать и понимать, а понять это не запрогав что-нибудь и не пощупав думаю сложновато.
Хм... ну да, я понимаю, что все связанно с алгеброй, в общем-то из-за этого я и сомневаюсь, стоит ли идти на информационную безопасность.
Спасибо)

EndLeSSDre@M 09.03.2010 00:56
Цитата:
Должна выводиться стока оценок вида "5_3_4" Надо найти их среднее арифметическое...
хм.. объясни по подробнее как все выглядеть должно на выводе и вводе!

вроде уже помогал тебе))) давно бы в аську стукнул!

Omen666 09.03.2010 01:05
Аа... черт с ним) Забейте) Спасибо всем) Буду сам пытаться)

EndLeSSDre@M 09.03.2010 01:13
Цитата:
Аа... черт с ним) Забейте) Спасибо всем) Буду сам пытаться)
ну смотри! если что обращайся

m0Hze 09.03.2010 01:38
Больше всего порвал код EndLeSSDre@M
Где открытость функции у него определяеться словом:
Цитата:
publick
La Music.


Время: 15:42