как это будет выглядеть на С++?

@zoternik · Регистрация: 10.11.2011

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x,p:real;
    i:byte;
begin
  writeln('Vvedite x');
  readln(x);
  p:=1;;
  i:=2;
  while i<=64 do
  begin
     p:=p*(x-i)/(x-i-1);
     i:=i*2;
  end;
  writeln('BbIpa}|{eHue= ',p:6:2);
end.

@Boshop · 09.12.2012, 15:21

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <iostream>
using namespace std;
int main()
{
int x,p,i;
cout << "Vvedite x\n";
cin >> x;
p=1;
i=2;
while(i<=64)
{
p*=(x-i)/(x-i-1)
i*=2;
}
cout << "\n"<< p;
}

Последний whiteln не очень понял.

@zoternik · 09.12.2012, 15:25 **[ТС]**

ну я таким образом написал слово выражение,

Добавлено через 41 секунду
и просьба, что у меня здесь неверно сделано?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include "stdafx.h"
#include <iostream>
using namespace std;
 
int _tmain(int argc, _TCHAR* argv[])
{int i = 0; 
float rez = 1; 
for( i = 2; i <= 64; rez = rez*(x - i), i = i * 2); 
float rez2 = 1; 
for( i = 1; i <= 63; rez2 = rez2*(x - i), i = i + 2); 
rez = rez / rez2;
system("pause");
    return 0;
}

Добавлено через 21 секунду
пишет, что неопределен x

@taras atavin · 09.12.2012, 15:27

Сообщение от zoternik

ну я таким образом написал слово выражение,

А зачем? Паскаль понимает русские стринги.

@zoternik · 09.12.2012, 15:41 **[ТС]**

всем спасибо

@Boshop · 09.12.2012, 15:51

Ну правильно у тебя же там x не объявлен как она работать то будет?

@zoternik · 09.12.2012, 16:05 **[ТС]**

все исправил уже

Добавлено через 1 минуту
назрел еще один вопрос:
как решить вот это на с:???
Дано действительное число а, натуральное число n.Вычислить:
1/a+1/a^2+1/a^4+...+1/a^2n.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n,step,i:integer;
*a,s,s1:real;
begin
*Write('Введите a и n: ');
*ReadLn(a,n);
*s:=1/a;
*step:=0;
*while step<>n+1 do
* begin
* *step:=step+1;
* *s1:=1;
* *for i:=1 to 2*step do
* * *s1:=s1/a; 
* *s:=s+s1;
* end;
*WriteLn('Ответ: ', s:6:3);
*Readkey;
End.

Добавлено через 5 минут
немного дополнил:

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
uses crt;
 
function degree(a: real; n:byte):real;
begin
  if n=0 then degree:=1
  else degree:=a*degree(a,n-1)
end;
 
var a,p,s: real; n,i:byte;
begin
  clrscr;
  write(\'Введите a, n: \');
  readln(a,n);
 
  p:=a;
  for i:=1 to n do
    p:=p*(a-i*n);
 
  s:=1/a;
  for i:=1 to n-1 do
    s:=s+1/degree(a,2*i);
  writeln(\'P=\',p:0:3,\' S=\',s:0:3);
  readkey
end.

@Boshop · 09.12.2012, 17:21

что значит эта конструкция step<>?
И до какого момента будет вычисляться i?

@zoternik · 09.12.2012, 17:23 **[ТС]**

step-это шаг в моей программе

Добавлено через 51 секунду
<>-это не равно, как записать эти программы в с++

@Boshop · 09.12.2012, 17:29

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include<iostream>
using namespace std;
int main()
{
    int n,step,i;
    double a,s,s1;
    cout << "Введите a и n: ";
    cin >> a>> n;
    s=(double)(1/a);
    step=0;
    while(step!=n+1)//Вот так
    {
    step+=1;
    s1=1;
    for (i=1;i<s;i++)//Сюда вписать до какого момента будет работать цикл и что будет происходит с переменной "i=1;i<s;i++" это пример
    s1=s1/a; 
    s=s+s1;
    cout << "Ответ:" << s;
    cin.get();
    }
}

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@zoternik НАРУШИТЕЛЬ 641 / 356 / 2 Регистрация: 10.11.2011 Сообщений: 1,749 Записей в блоге: 5
	09.12.2012, 15:41 [ТС]
	всем спасибо 0

@Boshop 14 / 14 / 5 Регистрация: 25.09.2012 Сообщений: 122
	09.12.2012, 15:51
	Ну правильно у тебя же там x не объявлен как она работать то будет? 1

@Boshop 14 / 14 / 5 Регистрация: 25.09.2012 Сообщений: 122
	09.12.2012, 17:21
	что значит эта конструкция step<>? И до какого момента будет вычисляться i? 0

@zoternik НАРУШИТЕЛЬ 641 / 356 / 2 Регистрация: 10.11.2011 Сообщений: 1,749 Записей в блоге: 5
	09.12.2012, 17:23 [ТС]
	step-это шаг в моей программе Добавлено через 51 секунду <>-это не равно, как записать эти программы в с++ 0