Нужна помощь в программировании на Паскале..

[rogat1y]

Граждане программисты... решите плиз...
1 часть.
№4 для матрицы из 2 столбцов и 10 строк
отпечатать номер каждой строки, оба
элемента которой имеют нулевые
значения, и число таких строк.

№20 дана матрица из 3 столбцов и 6 строк.
Содержание каждой строки трактуется как
длины сторон одного из 6 треугольников.
Последовательно анализируя строки, печатать
периметр Р треугольника или сообщение
о том, что треугольник не может
быть построен при заданном соотношении длин сторон. Отпечатать тажке число
треугольников. Указание: если произведение ((P/2)-a)*((P/2)-b)*((p/2)-c),
где a,b,c - длины сторон, положительно, то треугольник может быть построен.

2 часть.
№15 найти по отдельности число положительных
и равных нулю элементов в совокупности тех строк матрицы,
1-й элемент которых больше 1, а также найти общую сумму элементов этих строк.

№19 заменить в матрице на 1 каждый положжительный элемент,
на 0 - каждый отрицательный. Для каждого столбца
найти среднее арифметическое исходных значений элементов.

3 часть.
№24 если среднее арифметическое каждого
столбца матрицы А меньше заданной величины Т,
заменить значение каждого элемента
матрицы А квадратом этого значения.

№14 если ниже главной диагонали матрицы А нет ни
одного отрицательного элемента, изменить матрицу А,
умножив каждый ее элемент на находящийся с ним
в одной строке элемент главной диагонали.

[Razor offline]

через годика пол может смогу помоч :)

[KykQx offline]

Razor,
помочь могу, но нет времени.
время будет- попробую.

Добавлено 16 Окт 2004 19:19:

малость порешал
лови решения зад. 1-1
и зад 2-19

Код: Выделить всё

program Project1;
var
matrix: array [1..2, 1..10] of integer;
i, j, count: integer;
begin
{заполняем матрицу случайными числами}
randomize;
for i:=1 to 2 do
 for j:=1 to 10 do begin matrix[i,j]:=random(10); end;
{поехали}
 count:=0;
 for i:=1 to 10 do begin
  if (matrix[1,i]=0) and (matrix[2,i]=0) then begin  inc(count);  writeln(i); end; end;
  write('vsego strok:'); writeln(count);
  readln;
end.


Код: Выделить всё

program Project19;
const
m=8;
n=3;
var
matrix: array [1..m, 1..n] of integer;
i, j, sred: integer;

begin
{заполняем матрицу случайными числами}
randomize;
for i:=1 to m do
 for j:=1 to n do begin sred:=random(2); if sred=1 then matrix[i,j]:=-1*random(10) else matrix[i,j]:=random(10); end;
{выводим матрицу на экран}
 for i:=1 to m do  begin
 writeln;
 for j:=1 to n do begin write(matrix[i,j]:3); end;
 end;
 writeln;
 writeln('--------');
{собссно, сама программа}
for i:=1 to m do begin
sred:=0;
 for j:=1 to n do begin
  sred:=sred + matrix[i,j];
  if matrix[i,j]>=0 then matrix[i,j]:=1;
  if matrix[i,j]<0 then matrix[i,j]:=0;
 end;
 writeln((sred / n):4:2);
end;
readln;
{снова выводим на экран уже новую матицу}
 for i:=1 to m do  begin
 writeln;
 for j:=1 to n do begin write(matrix[i,j]:3); end;
 end;
readln;
end.


теперь вопросы.
1-20.
Как найти периметр треугольника? харош ржать, не помню просто. скажешь как - решу.
3-24
в смысле, если ср. арифм. ВСЕХ строк < T, то все числа заменить их квадратами, или как?
3-14 вообще что-то не врубаюсь...
что такое "главная диагональ"? [1,1]; [2,2;] [3,3]; ...; чтоли?

[Razor offline]

дак мне то не нуно.. это не мне :)

[KykQx offline]

Razor,
перепутал, это Рогатому :)))

[inferno offline]

KykQx, периметр - сумма всех сторон. Главная диагональ - [i,i] ([1,1],[2,2]...).

в смысле, если ср. арифм. ВСЕХ строк < T, то все числа заменить их квадратами, или как?

не всех строк а каждого столбца.

rogat1y, это тебе к какому времени надо?

[KykQx offline]

KykQx, периметр - сумма всех сторон. Главная диагональ - [i,i] ([1,1],[2,2]...).

тьфу, епты, я площадь с периметром перепутал :wink:

[rogat1y]

inferno, ну до 24-го октября...

[KykQx offline]

1-20

Код: Выделить всё

program Project3;
const
m=8;
n=3;
var
matrix: array [1..m, 1..n] of integer;
P, i, j, count: integer;
begin
{запоняем матрицу случ. числами}
randomize;
for i:=1 to m do
 for j:=1 to n do begin matrix[i,j]:=random(10); end;
{выводим ее}
 for i:=1 to m do  begin
 writeln;
 for j:=1 to n do begin write(matrix[i,j]:3); end;
 end;
 writeln;
 writeln('--------');
{поехали}
for i:=1 to m do begin
  P:=matrix[i,1] + matrix[i,2] + matrix[i,3];
 if (((P/2)-matrix[i,1])*((P/2)-matrix[i,2])*((p/2)-matrix[i,3]))>0 then begin writeln(P); inc(count); end else writeln('no');
end;
write('vsego: ');
writeln(count);
readln;
end.


[inferno offline]

1-20

Код: Выделить всё

program Project3;
const
m=8;
n=3;
var
matrix: array [1..m, 1..n] of integer;
P, i, j, count: integer;
begin
{запоняем матрицу случ. числами}
randomize;
for i:=1 to m do
 for j:=1 to n do begin matrix[i,j]:=random(10); end;
{выводим ее}
 for i:=1 to m do  begin
 writeln;
 for j:=1 to n do begin write(matrix[i,j]:3); end;
 end;
 writeln;
 writeln('--------');
{поехали}
for i:=1 to m do begin
  P:=matrix[i,1] + matrix[i,2] + matrix[i,3];
 if (((P/2)-matrix[i,1])*((P/2)-matrix[i,2])*((p/2)-matrix[i,3]))>0 then begin writeln(P); inc(count); end else writeln('no');
end;
write('vsego: ');
writeln(count);
readln;
end.


только m равно 6 а не 8,т.к. 6 строк

[Ekselence offline]

Может мне тогда кто-нибудь реализацию быстрого преобразования фурье на ассемблере процессоров TMS с максимальной оптимизацией для многопроцессорной системы сделает? А то некогда со всякими лабами возиться...
::-D:

[KykQx offline]

inferno, ага, правильно, ошибся...
Ekselence, не наш размах...