31.01.2010, 20:47
|
|
Участник форума
Регистрация: 13.01.2007
Сообщений: 160
С нами:
10170610
Репутация:
181
|
|
В каком смысле отрицательных элементов?)
Все элементы подсчитываются тут:
Код:
sum = 0;
for ( i = 0; i < SIZE_N; i++ )
for ( j = 0; j < SIZE_M; j++ )
sum += matrix[ i ][ j ]; //Суммирует все элементы и отриц-ые и неотриц-ые)
|
|
|
31.01.2010, 21:00
|
|
Новичок
Регистрация: 22.01.2010
Сообщений: 25
С нами:
8580623
Репутация:
0
|
|
спс
а #define SIZE_N 2
ето функцыя SIZE_?
|
|
|
|
31.01.2010, 21:03
|
|
Участник форума
Регистрация: 27.04.2009
Сообщений: 189
С нами:
8968720
Репутация:
69
|
|
Сообщение от KrabKN
спс
а #define SIZE_N 2
ето функцыя SIZE_?
Нет, Size_N - кол-во строк, Size_M - кол-во столбцов.
В программе они определены, матрица 2x2
|
|
|
|
31.01.2010, 21:05
|
|
Участник форума
Регистрация: 13.01.2007
Сообщений: 160
С нами:
10170610
Репутация:
181
|
|
Сообщение от KrabKN
спс
а #define SIZE_N 2
ето функцыя SIZE_?
#define SIZE_N 2 - означает то, что далее компилятор будет SIZE_N заменять на 2.
SIZE_N и SIZE_M - это не функции.
Последний раз редактировалось Colkru; 31.01.2010 в 21:17..
|
|
|
|
31.01.2010, 21:05
|
|
Новичок
Регистрация: 22.01.2010
Сообщений: 25
С нами:
8580623
Репутация:
0
|
|
ана используетца только в матрица или в других компонентах?
|
|
|
|
31.01.2010, 21:34
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
С нами:
8633638
Репутация:
0
|
|
Нужно сделать задачу, даю 100 WMR.
На делфи, консольная.
В массиве V(n,n) элементы строки, содержащей наибольший элемент, заменить на s:
Вот немного набросал:
PHP код:
program MAX_ZAMEN;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n2=10;
type
ar=array[1..n2] of real;
i2:integer;
Begin
Writeln('vvedite ',n2,' veschestvenyu elementov');
for i2:=1 to 5 do begin
readln(A2[i2]);
readln(B2[i2]);
end;
for i2:=1 to 10 do
if (i2 mod 2=0) then
c2[i2]:=B2[i2];
for i2:=1 to 10 do
writeln(C2[i2]:0:4);
READLN;
readln;
end.
|
|
|
|
31.01.2010, 22:18
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
С нами:
9273261
Репутация:
8
|
|
Сообщение от a1ertso
Нужно сделать задачу, даю 100 WMR.
На делфи, консольная.
В массиве V(n,n) элементы строки, содержащей наибольший элемент, заменить на s:
Вот немного набросал:
PHP код:
program MAX_ZAMEN;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n2=10;
type
ar=array[1..n2] of real;
i2:integer;
Begin
Writeln('vvedite ',n2,' veschestvenyu elementov');
for i2:=1 to 5 do begin
readln(A2[i2]);
readln(B2[i2]);
end;
for i2:=1 to 10 do
if (i2 mod 2=0) then
c2[i2]:=B2[i2];
for i2:=1 to 10 do
writeln(C2[i2]:0:4);
READLN;
readln;
end.
omg - наибольший элемент проблемма найти?
x:=a[1];
for i:=2 to n do
begin
if x<a[2] then x:=a[i];
end;
for i:=1 to n do
begin
if x=a[i] then a[i]:=s;
end;
собственно и всё
|
|
|
|
01.02.2010, 00:34
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
С нами:
8633638
Репутация:
0
|
|
А можно полный код пожалуйста?
|
|
|
|
01.02.2010, 01:34
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 27
С нами:
9201836
Репутация:
6
|
|
Сообщение от a1ertso
А можно полный код пожалуйста?
извиняй,может как то и попроще можно было,но башка болит,поэтому сделал так:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const s=1;
var i,j,l1,l2,t:byte;
a:array[1..3,1..3] of real;
k:real;
begin
t:=0;
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln('a',i,j);
readln(a[i,j]);
end;
for i:=1 to 3 do
begin
k:=a[i,1];
t:=0;
for j:=1 to 3 do
if k<a[i,j] then
begin
k:=a[i,j];
l1:=i;
l2:=j;
end
else
begin
inc(t);
end;
if t=3 then a[i,1]:=s else a[l1,l2]:=s;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(a[i,j]:2:2,' ');
writeln;
end;
readln;
end. PS. не лезь в делфи пока основ программирования не выучишь!ИМХО
Последний раз редактировалось DimkO; 01.02.2010 в 01:38..
|
|
|
|
02.02.2010, 00:03
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
С нами:
8641138
Репутация:
0
|
|
Ребята, вот меня озадачили...помогите, пожалуйста...
Сложить схему алгоритма и проект программы алгоритмическим языком Паскаль в среде Delphi вычисления функции y = f (x) в соответствии с вариантами, отмеченными в таблице. Первое из значений, приведенных в таблице, задать как константу, второе - ввести с помощью компонента Edit.
Вариант 7, вот сама функция
http://upload.com.ua/get/901356404/
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
