Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
02.02.2010, 12:30
|
|
Постоянный
Регистрация: 03.08.2006
Сообщений: 398
Провел на форуме:
6061692
Репутация:
1653
|
|
Сообщение от 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 - покажу схему. Спасибо! Скинуть торрент не могу... я с телефона((
Кто может написать блок схему, напишите пожалуйста.
|
|
|
02.02.2010, 15:53
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
Так исходники же скинули,а блок-схему нарисовать это не сложно.
|
|
|
|
02.02.2010, 17:20
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Требуется опять написать алгоритм в виде схемы. А написать надо для "х" в степени "y". Спасибо. Надеюсь на вас.
а зачем так сложно! ведь как я понял задание все элементарно
Код:
publick function asdf()
x=val(textbox1)
y=val(textbox2)
s=x^y
msgbox(Cstr(s))
end function
и фсе!
и блок схема
тыц
Последний раз редактировалось EndLeSSDre@M; 02.02.2010 в 17:35..
|
|
|
|
02.02.2010, 18:46
|
|
Постоянный
Регистрация: 03.08.2006
Сообщений: 398
Провел на форуме:
6061692
Репутация:
1653
|
|
Сообщение от EndLeSSDre@M
а зачем так сложно! ведь как я понял задание все элементарно
Код:
publick function asdf()
x=val(textbox1)
y=val(textbox2)
s=x^y
msgbox(Cstr(s))
end function
и фсе!
и блок схема
тыцДело в том, что паскаль вроде не умеет вот так, как на блок схеме возводить в степень... и там по моим догадкам всю суть в цикле... вот как раз этот цикл я сделать немогу(
Черт... я мда... я все это пишу на паскале...
|
|
|
|
02.02.2010, 19:38
|
|
Новичок
Регистрация: 04.06.2009
Сообщений: 3
Провел на форуме:
73724
Репутация:
6
|
|
Так возводи в цикле, или конструкцию с экспонентой устраивай, в паскале она есть S := exp(k*ln(a)), равносильно S = a ^ k;(а в степени k (если "к" и "а" не натуральные))
 |
|
|
|
02.02.2010, 20:07
|
|
Постоянный
Регистрация: 03.08.2006
Сообщений: 398
Провел на форуме:
6061692
Репутация:
1653
|
|
Сообщение от Retro
Так возводи в цикле, или конструкцию с экспонентой устраивай, в паскале она есть S := exp(k*ln(a)), равносильно S = a ^ k;(а в степени k (если "к" и "а" не натуральные))
Спасибо!
|
|
|
|
08.02.2010, 23:20
|
|
Постоянный
Регистрация: 03.08.2006
Сообщений: 398
Провел на форуме:
6061692
Репутация:
1653
|
|
Итак очередное задание у меня тут) Но щас все немного проще, чем раньше)
Есть задание
"Написать программу, которая будет считывать нажатую клавишу и выводить ее на экран.Все это должно повторятся циклически, до нажатия клавиши 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/
|
|
|
|
08.02.2010, 23:29
|
|
Участник форума
Регистрация: 15.05.2008
Сообщений: 166
Провел на форуме:
2591223
Репутация:
128
|
|
не readkey, a read(x);
|
|
|
|
08.02.2010, 23:30
|
|
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253
Репутация:
106
|
|
writeln('nazhmite Z');
read(z);
repeat
read(x);
writeln(x);
until x = z;
|
|
|
|
08.02.2010, 23:34
|
|
Постоянный
Регистрация: 03.08.2006
Сообщений: 398
Провел на форуме:
6061692
Репутация:
1653
|
|
Сообщение от fatalo
не readkey, a read(x);
keypressed тоже отказывается работать.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для ][yZ](/avatars/avatar78498.gif){kind=avatar}
Похожие темы
Линейный вид
