помогите с задачами

← →
quest (2007-12-08 10:39) [0]

помогите с задачами
Очень нужна ваша помощь.
В понедельник утром уже надоо сдать их. Плиз.....

_______________________________________________________

Задание.

Упорядочить матрицу по елеметам последнего столбика по возрастанию
Матрица 3х5

Задание.

Используя логическую функцию, проверить выполняется или нет условие
сумма елементов во всех рядах равняется сумме елементов во всех столбиках.

Задание.

Состоавить подпрогамму (процедуру) вычисления площади полной поверхности треугольной
пирамиды если дано длины шести её ребер.

← →
Riply © (2007-12-08 10:56) [1]

> [0] quest (08.12.07 10:39)
> В понедельник утром уже надоо сдать их.

Чего так рано взялся ? Еще только суббота :)
А по сабжу: задания вижу, а что ты сам пытался делать - нет.
Или под "помогите" имеется ввиду "напишите за меня" ?

← →
_Denis_ © (2007-12-08 14:23) [2]

1) цикл for

например
for i:=0 to n-1 do
begin
...
end;

2) (1) + if < условие> then <действие> else <действие если не условие :) >

3)Площадь вычисляется по формуле

Sполн = S1 + S2 + S3 + S4;

Sx := SQRT(p(p-a)(p-b)(p-c)); - Формула Герона, где p = (a+b+c)/2;

Удачи.

← →
Германн © (2007-12-08 15:04) [3]

Интересно. В заданиях так и написано
> елеметам, елементов ?

← →
J_f_S (2007-12-08 16:07) [4]

> Германн © (08.12.07 15:04) [3]
>
> Интересно. В заданиях так и написано
> > елеметам, елементов ?

елемет - приспособление для елеметания
елемент - почти милиционер

← →
Putnik © (2007-12-08 16:08) [5]

const n=3;m=5;
type ar=array[1..n,1..m] of integer;
var i,j,k,l,q1,q2,t:integer;
a:ar;
begin
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
for j:=2 to n do
begin
for i:=j to 2 do
begin
if a[i,m]<a[i-1,m] then
begin
q1:=i;q2:=i-1;
for l:=1 to m do
begin
t:=a[q2,l]; a[q2,l]:=a[q1,l]; a[q1,l]:=t;
end;
end;
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end

Чего-то типа этого)))

← →
Putnik © (2007-12-08 16:11) [6]

2
Конечно выполняется! Без разницы как считать по столбцам или строкам сумму

← →
Dib@zol © (2007-12-08 16:14) [7]

> елемет - приспособление для елеметания

В лесу родилась ёлочка =)))))))))))) бгггг

← →
Putnik © (2007-12-08 16:19) [8]

var a,b,c,d,e,f:integer;
function square(a,b,c,d,e,f:integer):real;
var p,s:real;

begin
s:=0;
p:=(a+b+c)/2;
s:=s+sqrt(p*(p-a)*(p-b)*(p-c));
p:=(a+d+e)/2;
s:=s+sqrt(p*(p-a)*(p-d)*(p-e));
p:=(b+e+f)/2;
s:=s+sqrt(p*(p-b)*(p-e)*(p-f));
p:=(c+d+f)/2;
s:=s+sqrt(p*(p-c)*(p-d)*(p-f));
square:=s;
end;
begin
readln(a,b,c,d,e,f);
writeln(square(a,b,c,d,e,f));
readln;
end.

ВОТ)))))

Пиво с тебя потом)

> Putnik

Когда-то (месяцев шесть назад) я бы тоже так сделал. Меня Юрий Зотов научил не делать таких вещей. Думаешь, ты ему помог? ИМХО, нет. В следующий раз он спросит так же. Не лучше ли для него понять, КАК это делается, а не тупо списать? А пиво - вряд ли, тут ты просчитался :)

Ну знаешь... Иногда лучше просто сказать :)
http://delphimaster.net/view/2-1197110022/

← →
Правильный_Вася (2007-12-08 19:10) [12]

> елемет - приспособление для елеметания, елемент - почти милиционер

:)))

помогите с задачами Найти похожие ветки