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

с паскаля на с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Множители http://www.cyberforum.ru/cpp-beginners/thread395162.html
Здравствуйте! Друзья, помогите пожалуйста сделать не очень сложную ( для вас задачку) буду очень признателен ! Огромное спасибо! Дано число N. Нужно найти такое число, произведение цифр которого...
C++ Работа со строками в двумерном массиве Дана матрица 5Х5 Характеристикой строки целочисленной прямоугольной матрицы назовём сумму её отрицательных чётных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с... http://www.cyberforum.ru/cpp-beginners/thread395147.html
Цикл с параметром FOR C++
Доброго времени суток. Народ помогите мне с программой в универе. Завтра зачет по программированию а я тут не знаю как написать проги. Вот условия 3-х разных программ. 2.1. Цикл с параметром -...
[C++] Пишет что необъявленный оператор cout C++
#include "stdafx.h" #include <iostream> using namespace std; int main() {cout <<"vvedite granizy a and b" <<endl; int a,b,x; cin >>a >>a >>x; for(int i=a; i<=b; i++) if...
C++ Работа со строками http://www.cyberforum.ru/cpp-beginners/thread395137.html
Строкане более чем из 256 символов, буквосочетания не более чем из 2 букв. Найти слово максимальной минимальной длины в строке, все слова разделены пробелами, нужно удалить между маx и мин слова,...
C++ Создать отдельный стек для функции необходимо. Мне надо вызывать рекурсивную функцию; при этом происходит переполнение стека, мне бы хотелось бы это контролировать. g++ не поддерживает обработку SEH- исключений, отловить переполнение... подробнее

Показать сообщение отдельно
love.coffee
0 / 0 / 0
Регистрация: 12.10.2010
Сообщений: 18

с паскаля на с++ - C++

29.11.2011, 22:12. Просмотров 263. Ответов 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
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
Program z1; 
uses crt; 
const 
n=10; 
type 
matr = array[1..n,1..n] of integer; 
 
var 
i,j,ks1,ks2,min:integer; 
a:matr; 
summb:boolean; 
 
procedure summd(m1:matr; var m:integer); 
var i,j,k:integer; 
s:array[1..n*2] of integer; 
begin 
k:=0; 
for i:=1 to n do begin 
for j:=1 to n do begin 
s[j+k]:=s[j+k]+abs(a[i,j]); 
end; 
k:=k+1; 
end; 
m:=s[1]; 
for i:=1 to n*2-1 do 
if s<m>; 
end; 
function sum(j:integer):integer; 
var i,s:integer; 
begin 
for i:=1 to n do s:=s+a[i,j]; 
sum:=s; 
end; 
begin 
clrscr; 
randomize; 
for i:=1 to n do begin 
for j:=1 to n do begin 
a[i,j]:=random(50)-25; 
write(a[i,j]:3); 
end; 
writeln; 
end; 
writeln; 
for j:=1 to n do begin 
summb:=true; 
for i:=1 to n do begin 
if a[i,j]<0 then summb:=false; 
 
end; 
if summb then begin 
writeln('Summa ',j,' stolbca = ',sum(j)); 
ks1:=ks1+1; 
end; 
 
end; 
if ks1=0 then writeln('Net stolbcov ne soderj otric el-v!'); 
summd(a,min); 
writeln('Minimalnaya summa diagonalei paral gl diag: = ',min); 
readkey; 
end.
помогите плиз
перевести в с++
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru