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

переведите в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ вопрос по синтаксису/типам http://www.cyberforum.ru/cpp-beginners/thread375959.html
фрагмент файла unique_ptr.h: template <typename _Tp, typename _Tp_Deleter = default_delete<_Tp> > class unique_ptr { typedef std::tuple<_Tp*, _Tp_Deleter> __tuple_type; typedef __tuple_type unique_ptr::* __unspecified_bool_type; typedef _Tp* unique_ptr::* __unspecified_pointer_type; ....
C++ Навыки программирования!!! Помогите пожалуйста! Я хочу заняться вплотную системным администрированием! Какую лучше читать литературу? http://www.cyberforum.ru/cpp-beginners/thread375958.html
как реализовать на с++ C++
procedure KOMMI(i); begin for y Є ЗАПИСЬ] do if cost + A, y] < OptCost then if (i = n+1) AND (y = k) then begin OptX:=X; OptCost:= cost + A,y] end else if DOP then begin X:=y; DOP:= ложь; cost:=cost + A, y];
C++ Дана целочисленна прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента.
Выполнить задание, используя динамическое выделение памяти. Дана целочисленна прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента. Зарание большое спасибо)))) 2.3 Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят. 3.3 Запрещено создавать темы с бессмысленными названиями вроде "Помогите!",...
C++ пример из книги страуструпа http://www.cyberforum.ru/cpp-beginners/thread375949.html
struct pair { char* name; // ñòðîêà int val; // öåëîå }; const int large = 1024; static pair vec; pair* find(const char* p) {
C++ Даны три положительных числа а, b, с. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника. Помогите, пожалуйста, исправить здесь ошибку времени... #include<iostream> #include<cmath> using namespace std; void main() { double a, b, c, s, p; cout<<"Vvedite a, b, c: "; cin>>a>>b>>c; if(a+b<=c||a+c<=b||b+c<=a) cout<<"treygilnik nevozmozhen"<<endl; else{cout<<"treygolnik vozmozhen"<<endl; подробнее

Показать сообщение отдельно
*krIsTiNa*
0 / 0 / 0
Регистрация: 19.01.2011
Сообщений: 46

переведите в с++ - C++

01.11.2011, 11:10. Просмотров 207. Ответов 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
const
n0=100; {вершины}
inf=32000;{бесконечность}
var
m:integer; {рёбра}
n:byte; {вершины}
A:array[1..n0,1..n0] of real; {матрица весов}
DOP:array[1..n0] of boolean; {допустимость вершины}
X,OptX:array[1..n0] of byte; {маршруты}
Cost,OptCost:real; {стоимости}
r:real;
i,j,k:byte;
 
procedure path(i:byte);
var u,j,v:byte;
begin
for u:=1 to n do
if (A[X[i-1],u]<inf) AND (Cost+A[X[i-1],u] < OptCost) then
begin
if (i=n+1) AND (u=1) then {новый минимум}
begin
for j:=1 to n do OptX[j]:=X[j];
OptCost:=Cost+A[X[i-1],u];
end
else if DOP[u] then {продолжаем текущий маршрут}
begin
X[i]:=u; DOP[u]:=false;
Cost:=Cost+A[X[i-1],u];
path(i+1);
{возврат, удаляем u из текущего маршрута}
DOP[u]:=true;
Cost:=Cost-A[X[i-1],u];
end;
end;
end;
 
BEGIN {main}
for i:=1 to n0 do
for j:=1 to n0 do
A[i,j]:=inf;
 
for i:=1 to n0 do
begin
DOP[i]:=true;
X[i]:=0;
OptX[i]:=0;
end;
Cost:=0; OptCost:=inf;
 
Write('Vvedite kolvo vershin n= '); readln(n);
Write('Vvedite kolvo reber m= '); readln(m);
for i:=1 to m do
begin
Write('Vvedit cherez probil vershini i ves ',i,' rebra: '); Readln(j,k,r);
A[j,k]:=r;
A[k,j]:=r;
end;
X[1]:=1; DOP[1]:=false;
path(2);
if OptCost< inf then
begin
Writeln('OptCost', OptCost:5:2);
for i:=1 to n do
write(OptX[i],' ');
writeln;
end
else
writeln('No solution');
readln;
END.
 Комментарий модератора 
Используйте теги форматирования кода
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru