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

Перевести с паскаля код преобразования массива - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Передать функции System код цвета переменной http://www.cyberforum.ru/cpp-beginners/thread1193335.html
Есть своя процедура void Ccolor(int a, char c1, char c2) { switch (a) { case 0:/*Цвет всего фона - белый. Цвет всего текста - черный*/ system("color F0"); break; } } Как в System передать код цвета 2мя переменными char
C++ Найти координаты центра окружности Всем привет. По условию дано множество точек на плоскости. Нужна программа, которая бы находила такие 3 точки, радиус описанной окружности вокруг которой был бы минимален. Т.е. на выходе должно быть значение радиуса, а также центра этой окружности. Для нахождения радиуса использовалась формула: Приблизительные координаты центра находятся по формуле: Xс = (Х1+Х2+Х3) / 3 Yс = (Y1+Y2+Y3) /... http://www.cyberforum.ru/cpp-beginners/thread1193316.html
C++ Как использовать функцию НОРМСТРАСП
как эту функцию записать в с++ ??
C++ Как избежать округления дробных чисел
как сделать что бы не округляло ??? float t; float z,m; using namespace std; void main(void) { m=-pow(5,2)/2;
C++ Составить функцию, определяющую тождественность двух данных строк http://www.cyberforum.ru/cpp-beginners/thread1193296.html
составить функцию, определяющую тождественность двух данных строк помогите пожалуйста!!!
C++ Выбрать машину с наибольшим пробегом Приветствую вас, уважаемые форумчане. Запускаю одну и ту же программу в CodeBlocks(mingw) и в VS2010, результат разный.. Привожу код программы: #include <iostream> #include <string> #include <stdlib.h> using namespace std; подробнее

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

Перевести с паскаля код преобразования массива - C++

30.05.2014, 06:58. Просмотров 158. Ответов 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
var
a:array[1..100]of integer;
i,j,t,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('ishodnyj massiv');
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
for j:=1 to n-1 do
if (a[j]>=0)and(a[j+1]<0)then 
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru