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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.02.2013, 09:07   #1
sleepking89
Новичок
Джуниор
 
Регистрация: 13.02.2013
Сообщений: 1
Печаль из паскаля в С++

Народ трабл с переводом...
Код:
Program LAB3_7;
Var
     x,f,eps,a,n:real;
Begin
  Write('Введите значение аргумента: x = ');
  Readln(x);
  Write('Введите значение точности: eps = ');
  Readln(eps);
   f:=x; A:=1; n:=1;
   repeat
    a:=(a*x*x)/(n*(n+1));
    f:=f+a;
    n:=n+2;
   until abs(a)<eps;
   Writeln('Ответ: ch(x) = ',f);
End.
sleepking89 вне форума Ответить с цитированием
Старый 15.02.2013, 00:53   #2
oxJass
Пользователь
 
Регистрация: 03.12.2010
Сообщений: 17
По умолчанию

Код:
#include <iostream>
 using namespace std;
int main() {
real x,f,eps,a,n;
cout<<"Vvedite zna4... x="; 
 cin>>x;
cout<<"vvedite... eps = ";
 cin>>eps;
f = x; a=1; n=1;
 do {
a=(a*x*x)/(n*(n+1));
f=f+a;
n=n+2;}
 while(fabs(a)<eps);
cout<<"Otvet ch(x) ="<<f<<endl;
return 0;}
не проверял
oxJass вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
из Паскаля в c++ Ioane Помощь студентам 0 26.05.2012 12:14
Из паскаля в C++ Miles Общие вопросы C/C++ 1 22.05.2012 09:50
С Паскаля на Си++ Svetlanka_ya Помощь студентам 0 16.05.2010 12:17
С паскаля на c++ Sparky Помощь студентам 1 09.03.2010 16:56
от паскаля к с++ WOLFak Обсуждение статей 11 27.01.2010 00:18