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

Кто нибудь может перевести эту прогу из Pascala на Борланд С - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Для начинающих http://www.cyberforum.ru/cpp/thread79242.html
1)Перевести в веденойстроке все буквы из нижнего регистра в верхний. 2)написать функцию, которая удаляет из строки заданные символы. Добавлено через 18 секунд заранее спасибо Добавлено через 12 минут 1) перевести в веденой строке все буквы из нижнего регистра в верхний.
C++ Перегрузка operator+ при сложени myVector2 = myVector0 + myVector1; выодит сообщения "конструктоор 0" ...1,...2,....2(копирования) а потом деструктор 2,2,1,2 по идеи последний должен быть 0 вектор грешу на строчку MyClass MyClass::operator + (const MyClass &c) { col=2;.... как нужно сделать чтобы параметры не изменялись. Я так понял чтобы можно было сделать operator + (const MyClass &c) const... http://www.cyberforum.ru/cpp/thread79206.html
C++ Статические массивы
Перевести в веденой строке все буквы из нижнего регистра в верхний?? Пожалуйста помогите!!! Добавлено через 56 секунд Пожалуйста!!!
C++ Составить программу, проверяющую истинность условий и выводящую на экран соответствующие сообщения
Лабораторная работа № 5. ОПЕРАЦИИ ЯЗЫКА С++ Задание: Составить программу, проверяющую истинность условий и выводящую на экран соответствующие сообщения. Отчет должен содержать задание, текст программы и результат вычислений для тестового примера. 1. • точка x лежит вне отрезка и правее него; • в натуральном трехзначном числе есть только одна цифра больше 2
C++ Не могу понять ошибку функции TextOut http://www.cyberforum.ru/cpp/thread78974.html
мне нужно вывести строку в окно формы. и пишу такой код TextOut(pDC, x, i, S, strlen(S)); где S - char S; ошибку выдает след: error C2664: 'TextOut': cannot convert parameter 4 from 'char ' to 'LPCWSTR' как от него избавиться????
C++ Программа с векторами Прошу вас проверить, что в данной программе неправильно, т. к. я не нахожу никаких ошибок. Однако, компилятор работает с ней совсем не так, как хотелось бы... class Employee { public: Employee(int a) {} int GetAge() { return << Age; } string GetName() { return << string; } private: string name; подробнее

Показать сообщение отдельно
kotofey
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 89

Кто нибудь может перевести эту прогу из Pascala на Борланд С - C++

24.12.2009, 18:57. Просмотров 400. Ответов 0
Метки (Все метки)

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
Uses crt,graph;
 Var drdr,mode,d,x,y,s:integer;
  ch:string;
  vector:char;
  color:byte;
Procedure ugol(x,y:integer);
 begin
  moveto(x,y);
  Lineto(x+s,y);
  Lineto(x+s+(s div 2),y+(s div 2));
  Lineto (x+s,y+s);
  Lineto(x,y+s);
  Lineto(x-(s div 2),y+(s div 2));
  Lineto(x,y);
 end;
 
Procedure Move(var x,y:integer; d:integer; vector:char; color:byte);
begin
       d:=5; {Кол-во точек для перемещения} 
       case vector of
       'u': begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       y:=y-d;
       ugol(x,y);
       end;
       'r': begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       x:=x+d;
       ugol(x,y);
       end;
       'l':begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       x:=x-d;
       ugol(x,y);
       end;
       'd':begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       y:=y+d;
       ugol(x,y);
       end;
       end;
end;
 
Begin
randomize;
       drdr:=detect;
       initgraph(drdr,mode,'d:\bp\bgi');
       color:=random(16);
       setcolor(color);
       setbkcolor(black); x:=getmaxX div 3;  y:=getmaxY div 3;
       s:=100;
       ugol(x,y);
       repeat
       ch:=readkey;
       if ch=#0 then
       case readkey of
       #72:begin
       vector:='u';
       move(x,y,d,vector,color);
       end;
       #77:begin
       vector:='r';
       move(x,y,d,vector,color);
       end;
       #75:begin
       vector:='l';
       move(x,y,d,vector,color);
       end;
       #80:begin
       vector:='d';
       move(x,y,d,vector,color);
       end; end;
       until ch=#27;
       Closegraph;
End.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 12:00. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru