Форум программистов, компьютерный форум CyberForum.ru

Перевести код из Pascal в C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Найти сумму ряда с точностью е, используя рекурсию http://www.cyberforum.ru/cpp-beginners/thread685306.html
Найти сумму ряда с точностью е , общий член которого равен a=(-1)^(n-1)/n^n. Программу я сделала, но преподаватель просит изменить условие, то есть сделать без лог.переменной f. Как можно еще изменить?!! Спасибо. #include "stdafx.h" #include <stdio.h> #include <math.h> #include <iostream> using namespace std; int Pow(int t , int n); // метод возведения в степень. t-возведение в степень...
C++ Неполучается получить доступ к виртульным функциям после загрузки объектов из файла #include <iostream> #include <fstream> #include <typeinfo> #include <process.h> using namespace std; const int MAX = 100; enum publication_type {book_type, tape_type}; http://www.cyberforum.ru/cpp-beginners/thread685286.html
C++ форматированный вывод
Всем, здрасте! У меня вопрос, как сделать вывод линии перед цифрами? (длина линии зависит от кол-ва цифр и точки) для реального у меня ограничение введите реальное и целое число: 2.71828183 1392 реальное: ______2.718 целое: ____1392 while(true) { cout<<"enter one integer and one real number:"<<endl;
Как использовать операторы сравнения C++
Помогите с формулой. Я уверен,что в моей формуле ошибка,потому что в любом вводе chislo выводит vozrastaniu. //проверить являются ли цифры в 4 значном числе по возрастанию. int chislo; cout<<"chislo="; cin>>chislo; if((chislo/1000)<(chislo/100-chislo/1000*10)<(chislo/10-chislo/100*10)<(chislo-chislo/10*10)) cout<<"vozrastaniu\n"; else cout<<"ne vozrastaniu\n";
C++ Определить ближайшее нечетное число http://www.cyberforum.ru/cpp-beginners/thread685270.html
Определить ближайшее нечетное число меньше заданного числа N, которое делится на 15 с остатком 6. код BORLANDC
C++ Аналог рекурсивной функции, отображающей строку в обратном порядке, выводит "мусор" Добрый день, при попытке написать аналог рекурсивной функции отображающей строку в обратном порядке напоролся на грабли: #include <iostream> #include <cstdio> using namespace std; void reverse_r(char* ch); void reverse_i(char* ch); // int factorial (int i); // int max_value (int a, int b); подробнее

Показать сообщение отдельно
lexflax
10 / 10 / 1
Регистрация: 03.04.2011
Сообщений: 627
01.11.2012, 05:42     Перевести код из Pascal в C++
доброго времени суток.
Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот же самый результат.
Помогите плиз.
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
rogram kurs;
uses crt,graph;
const
xmin=0;
xmax=1;
h=0.01;
n=10;
var
   st:string;
 x0,y0,gd,gm,mk,i,a,b,px,py:integer;
k0,k1,k2,k3,mx,my,z,x,y,dx,dy,yi,xi:real;
 kx,ky:real;
 ymin,ymax:real;
 s:string;
 function f(x,y:real):real;
begin
 f:=((y/(x+1))-y*y);
end;
begin
  xi:=0;
  yi:=1;
  writeln(' k|  xk |  yk');
  for i:=0 to n do
  begin
    k0:=h*f(xi,yi);
    k1:=h*f(xi+h/2,yi+k0/2);
    k2:=h*f(xi+h/2,yi+k1/2);
    k3:=h*f(xi+h,yi+k2);
    dy:=(k0+2*k1+2*k2+k3)/6;
    yi:=yi+dy;
    xi:=xi+h;
     writeln(i:2, '|',xi:5:2, '|',yi:7:4);
     end;
   readkey;
    begin
     gd:=detect;
     initgraph(gd,gm,'egavga.bgi');
     x:=xmin;
     z:=f(x,y);
     repeat
      if y<ymin then ymin:=y;
      if y>ymax then ymax:=y;
      x:=x+h;
      until(x>=1);
     x0:=getmaxx div 10;
     y0:=getmaxy div 2;
     mx:=500/abs(1);
     my:=400/abs(1.5);
       setbkcolor(black);
     setlinestyle(0,0,1);
 
 
 
         setcolor(green);
     line(0,y0,getmaxx,y0);
     line(x0,getmaxy,x0,0);
     setcolor(red);
     for i:=1 to 10 do
      begin
       line(10,y0-round(i*my),630,y0-round(i*my));
       line(10,y0+round(i*my),630,y0+round(i*my));
       line(x0+round(i*mx),0,x0+round(i*mx),getmaxy);
       line(x0-round(i*mx),0,x0-round(i*mx),getmaxy);
       str(i,s);
       outtextxy(x0-10,y0-round(i*my),s);
       outtextxy(x0-15,y0+round(i*my),'-'+s);
      end;
      setcolor(white);
      outtextxy(x0+5,y0+10,'0');
      outtextxy(getmaxx-10,y0-10,'X');
      outtextxy(x0-10,10,'Y');
      setcolor(red);
      x:=xmin;
      dx:=0.01;
        for i:=0 to n do
       begin
         z:=f(x,y);
        px:=x0+round(xi*mx);
        py:=y0-round(yi*my);
        putpixel(px,py,red);
        xi:=xi+dx;
        yi:=yi+dy;
      end;
      setcolor(red);
      setlinestyle(0,0,1);
      outtextxy(230,30,'F=(y/x+1)-y^2');
      readln;
      closegraph;
   end;
   end.
Добавлено через 12 часов 33 минуты
хелп миииии
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:16. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru