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

из Паскаль в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ STL алгоритмы сортировки http://www.cyberforum.ru/cpp-beginners/thread119739.html
Здрасти. В STL есть алгоритмы sort - упорядочивает последовательность и stable_sort - упорядочивает последовательность, не меняя местами эквивалентные элементы и зачем же их сделали тогда? нельзя было 1 только? результат то один и тот же Добавлено через 3 часа 19 минут
C++ Программа компилируется в Borland 6.0 но не компилируется в Visual Studio 2008 Ета програма компилируетса в борланде 6.0 но не компилируетса в Visualstudio 2008 и в борланде 10-м почему? #include<iostream> #include<conio.h> #include<stdio.h> #include <windows.h> using namespace std; void enter(int&); void enter(int &X){ bool flag = true; http://www.cyberforum.ru/cpp-beginners/thread119732.html
C++ Ошибка при завершении программы
Добрый вечер! Помогите плиз, у меня после завершения программы она зависает... Методом тыка) определил что после завершения проги, продолжает крутиться функция cleanList (или может чтото еше). Но из-за чего понять не могу, программа или вылетает, или зависает намертво, хотя результат выводит верный! Подскажите в чем проблема!:( Задание: Односвязный список. Вставить в список элемент К, перед...
На Простом СИ!!! C++
Народ нужна помощь очень сильно надо решить вот такую задачку буду очень благодарен кто поможет... выслать задачку можно на почту Calipso-777@mail.ru или выложить тут... Очень надеюсь что кто нить поможет... А вот собственно она: Продавец продает соки двух сортов. Перед началом работы он загружает полностью емкости объемом 20 стаканов. Стакана сока каждого сорта имеет свою цену. Разработать...
C++ Найти корень http://www.cyberforum.ru/cpp-beginners/thread119695.html
Помогите пожалуйста. как найти корень разности? например D=корень из A-B.
C++ Чем отличается fopen от ifstream? сабж... подробнее

Показать сообщение отдельно
Rom@
22 / 31 / 3
Регистрация: 29.11.2009
Сообщений: 210

из Паскаль в С++ - C++

20.04.2010, 21:24. Просмотров 859. Ответов 9
Метки (Все метки)

1.
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
program zada4a11;
uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
kol, sd,i,j,k,n,m,max,s:integer;
begin
randomize;
writeln('Vveditе razmer n');
readln (n);
writeln('matryca');
for i:=1 to n do
begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
sd:=0;
for i:=1 to n do
sd:=sd+a[i,i];
for j:=1 to n do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
if s>sd then inc(kol);
end;
writeln('koli4estvo stolbcov, hde summa>summy diagonaly=',kol);
readln;
end.
2.
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
zada4a22;
uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
i,j,k,n,m,max,s:integer;
begin
randomize;
writeln('Vvedite razmer n');
readln (n);
writeln('matryca');
for i:=1 to n do
begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
max:=a[1,1];
k:=1;
m:=1;
for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
k:=i;
m:=j;
end;
end;
writeln( 'maxsimalniy element =',a[k,m], '   ','eho koordinaty=(',k,',',m,')');
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('Summa=',s);
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 13:23. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru