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

из delphi переделать в c++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Определить максимальное из чисел, встречающихся в заданной матрице более одного раза http://www.cyberforum.ru/cpp-beginners/thread175234.html
Дана целочисленная прямоугольная матрица.Определить: Максимальное из чисел, встречающихся в заданной матрице более одного раза Добавлено через 58 секунд Надо срочно решить за 10 мин.
C++ Не получается исправить код помогите исправить код пожалуйста char limit, notation; do { error = 0; int i = 0; cout << "Enter number: "; cin >> limit; do { http://www.cyberforum.ru/cpp-beginners/thread175216.html
Определить количество строк матрицы, не содержащих ни одного нулевого элемента C++
Дана целочисленная прямоугольная матрица.Определить: 1)Количество строк ,не содержащих ни одного нулевого элемента. 2) Максимальное из чисел, встречающихся в заданной матрице более одного раза
оператор присваивания C++
Привет всем ! Каким образом вызывается оператор присваивания, например, здесь: a = "I "; если в аргументе char*, а в операторе присваивания const String&. Может быть дело в operator char*(), но в...
C++ матрица http://www.cyberforum.ru/cpp-beginners/thread175171.html
Дана целочисленная прямоугольная матрица.Определить: 1)Количество строк ,не содержащих ни одного нулевого элемента. 2) Максимальное из чисел, встречающихся в заданной матрице более одного раза
C++ На сколько квадратов можно разрезать данный прямоугольник? Даны натуральные числа a и b, которые определяют стороны прямоугольника. На сколько квадратов, стороны которых выражены также натуральными числами, можно разрезать данный прямоугольник, если от него... подробнее

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

из delphi переделать в c++ - C++

11.10.2010, 22:47. Просмотров 322. Ответов 1
Метки (Все метки)

написала текст программы на delphi.Очень нужно эту же программу написать на С++ с такими же функциями и процедурами.

условие задачи:Для каждой строки матрицы А(4*5) вычислить сумму и колличество отрицательных элементов,а для каждой строки матрицы В(3*7)-сумму и колличество элементов,значения которых меньше 5.

Program zad22;
type matr=array [1..10,1..10] of real;
var a,b:matr;
sum:real;
kol:integer;

procedure vvod (n,m:integer; var x:matr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
write ('Vvedite element [',i,',',j,']: ');
readln (x[i,j]);
end;
end;

procedure schet(n,m:integer; x:matr; k:real);
var i,j:integer;
begin
for i:=1 to n do
begin
sum:=0;
kol:=0;
for j:=1 to m do
if x[i,j]<k
then
begin
sum:=sum+x[i,j];
kol:=kol+1;
end;
writeln ('Summa chisel menshe ',k,' v ',i,' stroke: ',sum:7:2,'. Kolichestvo: ',kol);
end;
end;

begin
writeln ('Vvod matricy A[4,5]:');
vvod (4,5,a);
writeln;
writeln ('Vvod matricy B[3,7]:');
vvod (3,7,b);
writeln;
writeln ('Obrabotka matricy A:');
schet (4,5,a,0);
writeln;
writeln ('Obrabotka matricy B:');
schet (3,7,b,5);
readln;
end.

заранее спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru