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

Переписать программу на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Молниеносное нахождение подстрок http://www.cyberforum.ru/cpp-beginners/thread345366.html
Воодится число тестов. Далее каждый тест содержит 2 строки. Подстроку и текст. Надо найти количество подстрок в тексте. Количество тестов неизвестно, но много. Длина подстроки 10000, а текста...
C++ Как скрыть кнопку программы с панели задач Windows Здравствуйте. Вот такая проблемка. При нажатии на буттон программа должна помещаться в трей, а с панели задач исчезать. Для скрытия программы с панели задач использую код: SetWindowLong(... http://www.cyberforum.ru/cpp-beginners/thread345361.html
Куда текёть память или чудеса в решете C++
Всем привет. Я начинаю верить в чудеса. Кто нибудь сможет доказать, что их не бывает?))) Программка занимается периодическим (через каждые 10 секунд) опросом маршрутизатора по протоколу SNMP с...
Не запускается программа C++
Нашла в интернете программку: pragma comment (lib, "glaux.lib") #include <windows.h> #include <GL/gl.h> #include <GL/glu.h> #include <GL/glaux.h> #include <stdlib.h> #include <time.h>
C++ проблема с шаблоннами http://www.cyberforum.ru/cpp-beginners/thread345317.html
Доброго времени суток! Пишу структуру граф. Есть дескриптор вершины и ребра (класс Vertex и класс Edge). При создании объекта граф void main() { Graph<Vertex, Edge> g1(); }; возникаеют...
C++ Массив объектов Доброго времени суток... Подскажите пожалуйста у меня есть следующий код: class vertex{ public: float x; float y; float z; float nx; float ny; подробнее

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

Переписать программу на С++ - C++

25.08.2011, 18:36. Просмотров 417. Ответов 3
Метки (Все метки)

перепишите пожалуйста на с++. очень надо

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
Program massiv;
Uses crt;
Const n=5; m=5;
Var a: array[1..n, 1..m] of integer;
i, j, k,min,max, l, s: integer;
Begin
Clrscr; randomize;
Writeln('исходный:'); begin
For i:=1 to n do
Begin
for j:=1 to m do begin
a[i,j]:=random(21)-5; write(a[i,j]:4); end;
writeln; End; Writeln;end;
for i:=1 to n do begin
if i mod 2=0 then for k:=1 to m do begin
min:=a[i,k];
for j:=k to m do
if a[i,j]<min then
begin min:=A[i,j]; l:=j;
S:=A[i,k];
A[i,k]:=min;
A[i,l]:=S end; end
else for k:=1 to m do begin
max:=a[i,k];
for j:=k to m do
if a[i,j]>max then
begin max:=A[i,j]; l:=j;
S:=A[i,k];
A[i,k]:=max;
A[i,l]:=S end; end;
end;
begin
writeln(результат:'); For i:=1 to n do Begin
for j:=1 to n do write(a[i,j]:4);
Writeln;
end; end;
readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru