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

Портирование Pascal на Borland C++ 3.1 - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Блок-схема программы http://www.cyberforum.ru/cpp-beginners/thread887863.html
#include "stdafx.h" #include "stdio.h" #include <string.h> void udal ( char *s);//функция удаления void dobl (char *s, char *s2);//функция добавления void main (void) {char s; gets (s); udal (s);//вызов функции char s2;
C++ С++ максимальный элемент в классе #include<conio.h> #include<dos.h> #include<graphics.h> #include<iostream.h> #include<stdlib.h> class ind { ind *next; int g,t,f,c,x,y;//t-vremya ost,i-vremya sozd,f-vremya rabotu int tx,fx; http://www.cyberforum.ru/cpp-beginners/thread887858.html
Почти счастливый билет C++
В гугле полно задач про "Счастливые билеты", а у меня возникла проблема с "Почти счастливыми билетами. Вот задача - Назовем “почти счастливым” билетом билет, который можно сделать “счастливым” с помощью некоторой перестановки цифр билета. Например, билет с номером 125783 является “почти счастливым” билетом, так как можно переставить цифры 2 и 7, чтобы получился “счастливый” билет 175283....
Что происходит в этой строке? C++
fstream IN(ordersName); int kit,nKit ; for (int i = 1;IN >> kit >> nKit; ++i) { Вот это меня интересует что такое IN >> kit >> nKit Добавлено через 33 минуты up.
C++ Запуск приложения с параметрами. Работа с аргументами http://www.cyberforum.ru/cpp-beginners/thread887832.html
Приветствую всех, у меня вопрос по созданию консольного приложения на вход которому передаются след. аргументы в argv год YYYY. В argv текст, например: text0. В argv текст, например: text1. По заданию есть примеры входных данных: "1991"text0 "1991"text0 text1
C++ полное бинарное дерево в консоль Помогите нарисовать полное бинарное дерево в консоле по заданному количеству уровней. чтобы выглядело норм , например через функцию gotoxy() class node { public: int data; node* left; node* right; node() { left=NULL; подробнее

Показать сообщение отдельно
gre4ka43
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 4
02.06.2013, 11:07     Портирование Pascal на Borland C++ 3.1
Помогите ,пожалуйста, вот код на паскале
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
uses graph,crt;
const
x1=-2*pi;
x2=pi;
var
mx,my,a,x,dx,y1,y2,y3,y4:real;
x0,y0,grD,px,py,grM,i,k:integer;
s,s1:string;
begin
grD:=detect;
initgraph(grD,grM,'');
X0:=getmaxX div 2;
Y0:=getmaxy div 2;
 
mx:=600/(x2-x1);
my:=420/18;
SetBkColor(7); 
setlinestyle(0,0,1);
SetColor(1);
line(0,y0,getmaxX,y0); 
line(x0,getmaxy,x0,0); 
setlinestyle(1,0,0);  
Setcolor(8);  
 
for i:=1 to 10 do   
   begin
    line(20,y0-round(i*my),630,y0-round(i*my));
    line(20,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-20,y0+round(i*my),'-'+s);
    
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
 
outtextXY(x0+5,y0+10,'0');
 
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,10, 'Y');
dx:=0.01;
 
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx);
      if x<=0 then   
     y1:=-sqr(x);  
     py:=y0-round(y1*my);    putpixel(px,py,9);
    if x>0 then  y2:=sin(x)/cos(x);  
 
     py:=y0-round(y2*my);
     putpixel(px,py,5);
     x:=x+dx; 
     end;
setlinestyle(0,0,1);
setcolor(9);
outtextXY(30,30,'Grafik functii Y1=-sqr(x)');
setcolor(5);
outtextXY(30,60,'Grafik functii Y2=tg(x)');
readln
end.



Вот то, что я пробовал
C++
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
#include <graphics.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <math.h>
void main()
{
int gd,gr,mx,my,a,x,dx,y1,y2,y3,y4,X0,Y0,grD,px,py,grM,i,k, x1=-6.28, x2=3,14;
char s,s1;
detectgraph(&gd,&gr);
initgraph(&gd,&gr,"");
 
 
{
grD=detect;
 
X0=340//getmaxx/2;
Y0=240//getmaxy/2;
 
mx=600/(x2-x1);
my=420/18;
setbkcolor(7);
setlinestyle(0,0,1);
setcolor(1);
line(0,Y0,getmaxx,Y0);
line(X0,getmaxy,X0,1);
setlinestyle(1,0,0);
setcolor(8);
 
for (i=1;i<=10;i++);
   {
    line(20,Y0-round(i*my),630,Y0-round(i*my));
    line(20,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-20,Y0+round(i*my),'-'+s);
 
    str(i,s);
    outtextxy(X0+round(i*mx),Y0+10,s);
    outtextxy(X0-round(i*mx),Y0+10,'-'+s);
  }
 
outtextxy(X0+5,Y0+10,0);
 
outtextxy(320-10,Y0-10,"X");
outtextxy(X0+10,10, "Y");
//dx:=0.01;
 
x=x1;
while (x<=x2)
   {
     px:=X0+round(x*mx);
      if( x<=0) //then
     y1:=-pow(x,2);
     py:=Y0-round(y1*my);    putpixel(px,py,9);
    if (x>0)   y2:=tan(x);
 
     py:=y0-round(y2*my);
     putpixel(px,py,5);
     x:=x+dx;
     }
setlinestyle(0,0,1);
setcolor(9);
outtextxy(30,30,"x^2");
setcolor(5);
outtextxy(30,60,"tg(x)");
getch();
}}
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:38. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru