|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
07.01.2009, 14:01 | #1 |
Пользователь
Регистрация: 24.12.2008
Сообщений: 11
|
нужна помощь
2)составить программу проверки справедливости соотношения:
1/2+2/2^2+3/2^3+....n/2^n=2-(n+2/2^n) 3)задано натуральное число представить в виде римских цифр учесть что x=10,v=5,m=1000,D=500,c=100,L=50,I= 1. там ещё прикреплённый файл.. заранее спасибо. Последний раз редактировалось DIzza; 07.01.2009 в 16:15. |
07.01.2009, 16:44 | #2 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Код 1 программы полностью:
Код:
|
07.01.2009, 17:00 | #3 |
Пользователь
Регистрация: 24.12.2008
Сообщений: 11
|
а без функция никак не сделать?
|
07.01.2009, 17:10 | #4 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
можно, просто так нагляднее и проще для понимания - можешь переделать, только за работу отзыв попросил бы )
|
07.01.2009, 17:11 | #5 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
с функцией факториал намного удобнее сделать через функцию, чем через циклы перемножения, но можешь сделать и циклы
|
07.01.2009, 17:26 | #6 |
Пользователь
Регистрация: 24.12.2008
Сообщений: 11
|
уже оставил))
|
07.01.2009, 17:27 | #7 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
у меня скоро экзамен по вышмату, поэтому нет времени на следующие задачи
|
07.01.2009, 18:57 | #8 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
задание №2
program vyr; uses crt; var s,s1: real; l,n : integer; function power (x : real; k : integer) : real; begin power:=exp(ln(x)*k) end; begin clrscr; writeln ('Vvedite n: '); readln (n); y:=0; for l=1 to n do s:=s+(n/power(2,n)); s1:= 2-((n+2)/power(2,n)); if s=s1 then writeln ('sootnoshenie verno '); end.
вступлю в команду разработчиков ПО на Delphi
|
07.01.2009, 19:12 | #9 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
хорошая программа, только знаешь в чем прикол - была похожая программа где надо было вычислить сумму 1+2+3+..+n - если делать через циклы - это такой ппц )))) сделал на n=100000000 и цикл пошел for i:=1 to n do sum:=sum+n )))) у меня эта прога выполнялась 2 часа и так и не выполнилась - поэтому не всегда циклами хорошо такие суммы делать - вот в этой программе естественно я узрел арифметическую прогрессию и заюзал по формуле S=(a1+an)*n/2 - прогрмама выполнялась влет - моэет и здесь формулу найти?? а то циклами для больших чисел долго будешь ждать результата
|
07.01.2009, 19:15 | #10 | |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Цитата:
вступлю в команду разработчиков ПО на Delphi
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь | zinger | Помощь студентам | 2 | 16.05.2008 10:55 |
Нужна помощь | londoner | Общие вопросы Delphi | 2 | 05.02.2007 14:23 |