Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 07.01.2009, 14:01   #1
DIzza
Пользователь
 
Регистрация: 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.

там ещё прикреплённый файл..




заранее спасибо.
Вложения
Тип файла: doc 1.doc (16.5 Кб, 22 просмотров)

Последний раз редактировалось DIzza; 07.01.2009 в 16:15.
DIzza вне форума
Старый 07.01.2009, 16:44   #2
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

Код 1 программы полностью:
Код:
{$N+}
program ex1;
const
 n = 10;
var
 k,m : byte;
 x,Y : real;
 l : integer;


 function power (x : real; k : integer) : real;
 begin
   power:=exp(ln(x)*k)
 end;
 function fact( l : integer) : extended;
begin
  if l=0 then fact:=1
  else
  fact:=fact(l-1)*l;
end;
begin
  writeln ('Viberete nomer primera iz faila 1.doc: 1, 2, 3?');
  readln (m);
  case m of

    1 :
    begin
      writeln ('Vvedite x: ');
      readln (x);
      writeln ('----------------------');
      writeln ('    x      |     y    ');
      writeln ('----------------------');
      Y:=0;
      for k:=1 to n do
       Y:=Y+power(x,k)/exp(k-1);
      writeln ('    ',x:0:1,'    |','     ',y:0:1,'     ')
    end;
    2 :
    begin
      writeln ('Vvedite x: ');
      readln (x);
      writeln ('----------------------');
      writeln ('    x      |     y    ');
      writeln ('----------------------');
      Y:=1;
      for k:=1 to n do
       Y:=Y*k*power(x,k-1);
      writeln ('    ',x:0:2,'   |','     ',y:0:2,'     ')
    end;
    3 :
    begin
      writeln ('Vvedite n: ');
      readln (l);
      writeln ('----------------------');
      writeln ('    n      |     y    ');
      writeln ('----------------------');
      writeln ('    ',l,'      |','     ',fact(sqr(l)+1):0:0,'     ')
    end
    else writeln ('Takogo nomera net!');

  end;
  readln;
end.
{$N-}
capta1n вне форума
Старый 07.01.2009, 17:00   #3
DIzza
Пользователь
 
Регистрация: 24.12.2008
Сообщений: 11
По умолчанию

а без функция никак не сделать?
DIzza вне форума
Старый 07.01.2009, 17:10   #4
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

можно, просто так нагляднее и проще для понимания - можешь переделать, только за работу отзыв попросил бы )
capta1n вне форума
Старый 07.01.2009, 17:11   #5
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

с функцией факториал намного удобнее сделать через функцию, чем через циклы перемножения, но можешь сделать и циклы
capta1n вне форума
Старый 07.01.2009, 17:26   #6
DIzza
Пользователь
 
Регистрация: 24.12.2008
Сообщений: 11
По умолчанию

уже оставил))
DIzza вне форума
Старый 07.01.2009, 17:27   #7
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

у меня скоро экзамен по вышмату, поэтому нет времени на следующие задачи
capta1n вне форума
Старый 07.01.2009, 18:57   #8
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 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
maladoy вне форума
Старый 07.01.2009, 19:12   #9
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 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 - прогрмама выполнялась влет - моэет и здесь формулу найти?? а то циклами для больших чисел долго будешь ждать результата
capta1n вне форума
Старый 07.01.2009, 19:15   #10
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

Цитата:
Сообщение от capta1n Посмотреть сообщение
хорошая программа, только знаешь в чем прикол - была похожая программа где надо было вычислить сумму 1+2+3+..+n - если делать через циклы - это такой ппц )))) сделал на n=100000000 и цикл пошел for i:=1 to n do sum:=sum+n )))) у меня эта прога выполнялась 2 часа и так и не выполнилась - поэтому не всегда циклами хорошо такие суммы делать - вот в этой программе естественно я узрел арифметическую прогрессию и заюзал по формуле S=(a1+an)*n/2 - прогрмама выполнялась влет - моэет и здесь формулу найти?? а то циклами для больших чисел долго будешь ждать результата
эта формула как раз для проверки и служит
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь zinger Помощь студентам 2 16.05.2008 10:55
Нужна помощь londoner Общие вопросы Delphi 2 05.02.2007 14:23