Просмотр полной версии : Написать алгоритм вычисления
Народ, помогите пожалуйста написать алгоритм вычесления N!
вводится N
N!=1*2*3....*N
Вот...
Спасибо
wildshaman
25.01.2010, 19:35
Язык?
wildshaman
25.01.2010, 19:37
<?
function factorial($n)
{
$fact=1;
for ($i=1; $i<=$n; $i++)
$fact=$fact*$i;
return $fact;
}
echo factorial(100);
?>
res = 1;
for(int i=1; i<=N; ++i)
res *= i;
Черт) Надо было в виде схемыыы...
что-то вроде такой вот схемы
http://cs10105.vkontakte.ru/u2605450/25670889/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
еси надо могу блок схему нарисовать
publick function asdf()
k=val(textbox1)
n=1
for i=1 to k
n=n*i
next i
msgbox(n)
end function
еси надо могу блок схему нарисовать
во! походу то, что мне надо и есть блок схема) если я прав, напиши пожалуйста :)
Очень добрый парень помог мне! спасибо ему! Тему можно деллл
Требуется опять написать алгоритм в виде схемы. А написать надо для "х" в степени "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 - покажу схему.
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 - покажу схему.
Спасибо! Скинуть торрент не могу... я с телефона((
Кто может написать блок схему, напишите пожалуйста.
Так исходники же скинули,а блок-схему нарисовать это не сложно.
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
и фсе!
и блок схема
тыц (http://s003.radikal.ru/i201/1002/42/edb884cbf147.jpg)
а зачем так сложно! ведь как я понял задание все элементарно
publick function asdf()
x=val(textbox1)
y=val(textbox2)
s=x^y
msgbox(Cstr(s))
end function
и фсе!
и блок схема
тыц (http://s003.radikal.ru/i201/1002/42/edb884cbf147.jpg)
Дело в том, что паскаль вроде не умеет вот так, как на блок схеме возводить в степень... и там по моим догадкам всю суть в цикле... вот как раз этот цикл я сделать немогу(
Черт... я мда... я все это пишу на паскале...
Так возводи в цикле, или конструкцию с экспонентой устраивай, в паскале она есть S := exp(k*ln(a)), равносильно S = a ^ k;(а в степени k (если "к" и "а" не натуральные))
http://s002.radikal.ru/i198/1002/de/9cf467acc897t.jpg (http://radikal.ru/F/s002.radikal.ru/i198/1002/de/9cf467acc897.png.html)
Так возводи в цикле, или конструкцию с экспонентой устраивай, в паскале она есть S := exp(k*ln(a)), равносильно S = a ^ k;(а в степени k (если "к" и "а" не натуральные))
http://s002.radikal.ru/i198/1002/de/9cf467acc897t.jpg (http://radikal.ru/F/s002.radikal.ru/i198/1002/de/9cf467acc897.png.html)
Спасибо!
Итак очередное задание у меня тут) Но щас все немного проще, чем раньше)
Есть задание
"Написать программу, которая будет считывать нажатую клавишу и выводить ее на экран.Все это должно повторятся циклически, до нажатия клавиши 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/
writeln('nazhmite Z');
read(z);
repeat
read(x);
writeln(x);
until x = z;
не readkey, a read(x);
keypressed тоже отказывается работать.
тут и правда ошибка... как минимум в until x = z
=============
спасибо fatalo ;*
тут и правда ошибка... как минимум в until x = z
=============
спасибо fatalo ;*
ну ты формируй точнее, код правильный
если тебе по клавише, которую нажали, то мой код правильный, если по клавише 'Z', то так и говорить надо было
[yZ']ну ты формируй точнее, код правильный
если тебе по клавише, которую нажали, то мой код правильный, если по клавише 'Z', то так и говорить надо было
Ну ладно) прости) Спасибо за помощь*) А можете объяснить, почему readkey не работает? Меня так учили...
Omen666, вроде как надо подключить модуль crt
uses crt;
[yZ']Omen666, вроде как надо подключить модуль crt
uses crt;
хм, у меня без него все работает отлично)
[yZ']...кроме readkey'а, да?
еще keypressed нереботает
Снова требуется помощь в написание программы на паскале
Должна выводиться стока оценок вида "5_3_4" Надо найти их среднее арифметическое... Кто может, напиши пожалуйста максимально просто...
в основном должны использоваться delete, copy, insert, pos и lenght...
Огромное спасибо
Снова требуется помощь в написание программы на паскале
Должна выводиться стока оценок вида "5_3_4" Надо найти их среднее арифметическое... Кто может, напиши пожалуйста максимально просто...
в основном должны использоваться delete, copy, insert, pos и lenght...
Огромное спасибо
омен откуда такая репа? О_о
зы. не стеб, просто интересно (как вариант тебе настолько противен паскаль, что ты даже не можешь писать на нем :confused: )
[']омен откуда такая репа? О_о
зы. не стеб, просто интересно (как вариант тебе настолько противен паскаль, что ты даже не можешь писать на нем :confused: )
Репы столько из-за накруток давних, обзоров каких-то, электроники и фрикинга, статей для СЕО и когда только пришел новостей и прокси) Да и раньше активность была куда больше)
Я плохо понимаю его(паскаль)... как и алгебру... мне проблематично все это представить и понять. Зато с русским и обществом куда лучше...
Репы столько из-за накруток давних, обзоров каких-то, электроники и фрикинга, статей для СЕО и когда только пришел новостей и прокси) Да и раньше активность была куда больше)
Я плохо понимаю его(паскаль)... как и алгебру... мне проблематично все это представить и понять. Зато с русским и обществом куда лучше...
Ясно, помог бы, да с паскалем не дружу (вызывает он меня некоторое отвращение, даже лезть маны читать не хочется), а так на С/asm можно написать, да видимо тебе ток паскаль нужен.
[']Ясно, помог бы, да с паскалем не дружу (вызывает он меня некоторое отвращение, даже лезть маны читать не хочется), а так на С/asm можно написать, да видимо тебе ток паскаль нужен.
Ну да, мне паскаль. Учить его приходиться, хотя он стар и вряд ли полезен. Но заставляют. Вдруг мне все таки приспичит идти учиться на технаря. А так вообще вопрос. Если идти на специалиста по сетевой безопасности... много там кодить приходиться?
Ну да, мне паскаль. Учить его приходиться, хотя он стар и вряд ли полезен. Но заставляют. Вдруг мне все таки приспичит идти учиться на технаря. А так вообще вопрос. Если идти на специалиста по сетевой безопасности... много там кодить приходиться?
хм, могу сказать что на информационной безопасности кодить надо не очень много, но все что кодится связанно с математикой (криптография в основном), а на сетевой наверно изучают протоколы, сами сети по себе и т.д., соответственно это надо все знать и понимать, а понять это не запрогав что-нибудь и не пощупав думаю сложновато.
[']хм, могу сказать что на информационной безопасности кодить надо не очень много, но все что кодится связанно с математикой (криптография в основном), а на сетевой наверно изучают протоколы, сами сети по себе и т.д., соответственно это надо все знать и понимать, а понять это не запрогав что-нибудь и не пощупав думаю сложновато.
Хм... ну да, я понимаю, что все связанно с алгеброй, в общем-то из-за этого я и сомневаюсь, стоит ли идти на информационную безопасность.
Спасибо)
EndLeSSDre@M
09.03.2010, 00:56
Должна выводиться стока оценок вида "5_3_4" Надо найти их среднее арифметическое...
хм.. объясни по подробнее как все выглядеть должно на выводе и вводе!
вроде уже помогал тебе))) давно бы в аську стукнул!
Аа... черт с ним) Забейте) Спасибо всем) Буду сам пытаться)
EndLeSSDre@M
09.03.2010, 01:13
Аа... черт с ним) Забейте) Спасибо всем) Буду сам пытаться)
ну смотри! если что обращайся
Больше всего порвал код EndLeSSDre@M
Где открытость функции у него определяеться словом:
publick
La Music.
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot