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

Получить вектор - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Описать объект Krug с методом, вычисляющим площадь круга http://www.cyberforum.ru/cpp-beginners/thread176599.html
описать класс и объявить объект Krug, целочисленное поле R - радиус круга, конструктор с параметром, и методом вычислить площадь круга S=p*R^2, р=3.14
C++ Написать блоки перевода числа из десятичного в двоичный и обратно пАмАгите: Написать блоки перевода числа из десятичного в двоичный и обратно http://www.cyberforum.ru/cpp-beginners/thread176594.html
Удаление элементов из списка C++
помогите пожалуйста)))написать процедуру , которая удаляет: а)из списка L за каждым вхождением элемента Е один элемент, если такой есть и он отличен от Е в)из непустого списка L последний элемент
Найти сумму ряда с заданной точностью C++
Мне нужно найти сумму ряда с точностью =10-4= 10-4, общий член которого А в степени n равен 3 в степени n умножить на факториал n и разделить факториал 3n Добавлено через 1 час 5 минут \large {a}_{n}=({3}^{n}*n!)/3n!
C++ 0x8000? http://www.cyberforum.ru/cpp-beginners/thread176580.html
а что это??? Oxffff 0x8000
C++ Выяснить, пересекаются ли параболы Доброй ночи всем! Дано задание : Выяснить, пересекаются ли параболы у=аx^2+bx+с и у= dx^2+ex+f.Если пересекаются то найти точки пересечения. Вот мой код программы: #include "stdafx.h" #include <iostream> #include <math.h> using namespace std; подробнее

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

Получить вектор - C++

14.10.2010, 23:39. Просмотров 421. Ответов 1
Метки (Все метки)

Получить вектор С по правилу : Ск=1,если в к-ом столбце матрицы есть хотя бы один элемент,превышающийй заданное значение D,иначе Ск=0.Найти также общее число элементов,больших D


Delphi
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
program tri;
var i,k,n,m:integer;
    d:real;
    c: array [1..20] of real;
    a: array [1..20,1..20] of real;
begin
m:=0;
write ('Vvedite razmer massiva: ');
readln (n);
writeln ('Vvod matricy A:');
for i:=1 to n do
    for k:=1 to n do
        begin
        write ('Vvedite element [',i,',',k,']: ');
        readln (a[i,k]);
        end;
writeln;
write ('Vvedite chislo D: ');
readln (d);
for k:=1 to n do
    begin
    c[k]:=0;
    for i:=1 to n do
        if a[i,k]>d then
           begin
           m:=m+1;
           c[k]:=1;
           end;
    end;
writeln;
writeln ('Obshee chislo elementov, prevyshayushih D: ',m);
writeln ('Vektor C:');
for k:=1 to n do
    write (c[k],' ');
readln;
end.
 Комментарий модератора 
Дублирование тем запрещено правилами форума (п. 3.4).
Не плодите одинаковых тем.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru