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

перевести с паскаля на с++, пожалуйста - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ вывести на экран все слова предложения (которое предлагается ввести пользователю), которые состоят из тех же букв, что и первое слово предложения. http://www.cyberforum.ru/cpp-beginners/thread907225.html
Всем доброго времени суток. нужно написать обычную консольную программу которая делает вот что: вывести на экран все слова предложения (которое предлагается ввести пользователю), которые состоят из тех же букв, что и первое слово предложения. Срочно нужно. Добавлено через 22 минуты Уже не требуется, удалите топик пожалуйста, или закройте.
C++ неоднозначный вызов перегруженной функции pow Ошибка 1 error C2668: pow: неоднозначный вызов перегруженной функции 2 IntelliSense: существует более одного экземпляра перегруженная функция "pow", соответствующего списку аргументов: #include <stdio.h> #include <conio.h> #include <locale.h> #include <math.h> double sum(int n, int x, int a, int e) http://www.cyberforum.ru/cpp-beginners/thread907168.html
Подскажите пожалуйста как ускорить работу программы! C++
Есть задача :"Во входном файле (вы можете читать данные из файла input.txt) записан текст. Словом считается последовательность непробельных символов идущих подряд, слова разделены одним или большим числом пробелов или символами конца строки. Определите, сколько различных слов содержится в этом тексте." Моя программа не укладывается чуть-чуть по времени отведенное на ее выполнение, т.е....
C++ Ошибка при подключении библиотеки
Подключила библиотеку audiere, попробовала запустить следующий код: #include <audiere.h> #include <iostream> int main() { cout « "bla-bla-bla"; return 0; }
C++ Класс «Дек» (двусторонняя очередь) http://www.cyberforum.ru/cpp-beginners/thread907147.html
Помогите, задание : Класс «Дек» (двусторонняя очередь). Методы: добавление и удаление элементов. Примечание: реализовать на базе связного списка. Реализовали без связного... вот не понятно как сделать чтоб было связный.. #include <IOSTREAM.H> #include <CONIO.H> template <class Type> class CSets { int i,nSize; public: CSets(int iSize);
C++ в проге нужно выполнить вывод о самой молодой, рослой и легкой команде #include "stdafx.h" #include "stdio.h" #include "string.h" #include "conio.h" #include "stdlib.h" #include "locale.h" struct inf { char fio_igroka; подробнее

Показать сообщение отдельно
Людка
0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 25
19.06.2013, 23:38     перевести с паскаля на с++, пожалуйста
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
uses  crt,graphABC;
var v,x1,x2,y1,y2:integer;
x,dx,y,mx,my,a,b:real;
w,h,x0,y0,i:integer;
st:string;
begin
clrscr;
SetWindowSize(700,560);
writeln('введите скорость от 1 до 10');
readln(v);
i:=0;
dx:=0.008;
h:=560; w:=700;
y1:=-4; y2:=4;            // max и
x1:=-2; x2:=2;           //  min
my:=h/abs(y2-y1);  mx:=w/abs(x2-x1);
{oси координат}
x0:=350;  y0:=230;
line(x0,y0+h,x0,y0-h);
line(x0-w,y0,x0+w,y0);
{Отмечаем деления на Ох}
for i:=-2 to 2 do begin
line(x0+i*175,y0,x0+i*175,y0+12);
textout(x0+i*175,y0+5,IntToStr(i));
end;
{Отмечаем деления на Оy}
for i:=-4 to 4 do begin
if i<>0 then begin
line(x0,y0-i*31,x0+12,y0-i*31);
textout(x0+20,y0-i*31,IntToStr(i));
end;
end;
{надписи}
 SetFontSize(20);
 SetFontColor(clPurple);
 textout(105,55,'y = |x|');
 textout(130,90,'Выполнила ...');
 SetFontSize(14);
 SetFontColor(clgreen);
 textout(685,y0,'х');
 textout(x0+35,5,'y');
{график}
x:=x1;
while x<=x2 do begin
y:=Abs(x);
putpixel(x0+round(x*mx),y0-round(y*my),clred);
x:=x+dx;end;
{движение шарика}
x:=x1;
repeat
y:=Abs(x);
SetPenColor(clblack);
SetBrushColor(clLime);
circle(x0+round(x*mx),y0-round(y*my),20);
delay(50);
   {восстановление стертых}
   line(x0,y0+h,x0,y0-h);
   line(x0-w,y0,x0+w,y0);
     SetBrushColor(clWhite);
     SetFontSize(10);
     SetFontColor(clblack);
     for i:=0 to 1 do begin
     line(x0+i*175,y0,x0+i*175,y0+12);
     textout(x0+i*175,y0+5,IntToStr(i));
     end;
     i:=-1;
     line(x0,y0-i*31,x0+12,y0-i*31);
     textout(x0+20,y0-i*31,IntToStr(i));
     a:=x1;
  while a<=x2 do begin
  b:=Abs(a);
  putpixel(x0+round(a*mx),y0-round(b*my),clred);
  a:=a+dx;end;
{затирание}
SetPenColor(clwhite);
circle(x0+round(x*mx),y0-round(y*my),22);
x:=x+dx*v;
until (x>x2);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 14:33. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru