Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Nail77
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 8
#1

Вычислить значение выражения - Turbo Pascal

25.04.2011, 23:10. Просмотров 366. Ответов 3
Метки нет (Все метки)

вычислить значение выражения 2/n! для любого n<=150
 Комментарий модератора 
Читаем правила внимательно. Особенно пункт 3.3
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2011, 23:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить значение выражения (Turbo Pascal):

Вычислить значение выражения
прикрепил

Вычислить значение выражения
Приветствую. Нужна помощь по Паскалю. По теме условные операторы Помогите...

Вычислить значение выражения
http://www.kufas.ru/programming27.htm в 1 задании под буквами :а,в,д 2 задание...

Вычислить значение выражения
программа есть..нужна рекуррентная формула..пожалуйста напишите на листочке и...

Вычислить значение выражения
Написал, но что-т не фурычит Program Danilova; Var X,Y,Z,R,U:Integer;...

Вычислить значение выражения
Кому не сложно. Помогите с задачей. Заранее спасибо. Вычислить и напечатать ...

3
MegaAce
330 / 304 / 155
Регистрация: 14.02.2010
Сообщений: 662
25.04.2011, 23:21 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
var i,n:integer;
    z:real;
begin
 repeat
  readln(n)
 until n<=150;
 z:=2;
 for i:=1 to n do
  z:=z/i;
 writeln(z:0:7);
end.
0
Small Lamer
142 / 142 / 141
Регистрация: 05.04.2011
Сообщений: 270
25.04.2011, 23:26 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var a:array[0..10000] of longint;
    i,j,s,n,c,k:longint;
begin
readln(N);
a[0]:=1;
a[1]:=1;
for j := 1 to n do  begin
c:=0;
for i := 1 to a[0] do
    begin
    a[i]:=a[i]*j+c;
    c:=a[i] div 10;
    a[i]:=a[i] mod 10;
end;
while c>0 do begin
    a[0]:=a[0]+1;
    a[a[0]]:=c mod 10;
    c:=c div 10;
  end;
end;
 
for i:=a[0] downto 1 do
  begin
    c:=c*10+a[i];
  if (c<2)and(k=0)and(i>1) then continue;
  k:=1;
  write(c div 2);
  c:=c mod 2;
  end;
 
readln;
end.


Добавлено через 1 минуту
MegaAce,
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
26.04.2011, 10:00 #4
Small Lamer, Это Вы считали n!/2?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2011, 10:00
Привет! Вот еще темы с решениями:

Вычислить значение выражения ((x-2)(x-4)...(x-2n))/(x-1)(x-3)...(x-2n-1)
Помогите, пожалуйсто, никак правильно не получается, задача: x -...

Вычислить значение выражения
спасайте:))

Вычислить значение выражения
Составить блок-схему и программу вычисления функции У при заданных значениях a,...

Вычислить значение выражения
Составить программу к данному примеру и построить блок схему. Заранее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru