МАССИВЫ (5), массивы Опции

[Zole]

Прошу всех, кто не слишком занят: помогите по возможности!
1. Многочлен степени n задан массивом своих коэффициентов. Найти производную многочлена. (Составить программу, используя конструкции циклов ДЛЯ, ПОКА, ДО по усмотрению с привлечением массива).
2. Точки М1, М2, ….., Мn заданы на плоскости своими координатами. Вычислить расстояния между всевозможными парами МiMk (i<k) этих точек (использовать вложенные циклы и массивы).
3. Определение числа ненулевых элементов в одномерном числовом массиве (процедура).
4. Найти первую норму квадратной матрицы порядка n.

Указание: в программе использовать процедуру вычисления суммы абсолютных величин элементов i - й строки матрицы.

Сообщение отредактировано: volvo - 22.01.2005 11:49

[BlackShadow]

1).

Код

Var
 Coofs:Array[0..10] Of Double;
 i,Deg:Integer;

Procedure Proizv;
Var
 i:Integer;
Begin
 For i:=0 To Deg-1 Do
   Coofs[i]:=Coofs[i-1];
 Dec(Deg)
End;

Begin
 Write('Enter Degree Of Polinom: ');
 ReadLn(Deg);
 For i:=0 To Deg Do
 Begin
   Write('Enter Coof Before x^',i,': ');
   ReadLn(Cofs[i])
 End;
 Proizv;
 If Deg = -1 Then
   WriteLn('0')
 Else
   If Deg=0 Then
     WriteLn(Coofs[0])
   Else
   Begin
     Write(Coofs[Deg],'x^',Deg);
     For i:=Deg-1 DownTo 1 Do
       Write('+',Coofs[i],x^,i);
     WriteLn('+',Coofs[0])
   End
End.

Или что-то похожее.

3).

Код

Function Count(Const Data:Array Of Double):Integer;
Var
 i,n:Integer;
Begin
 n:=0;
 For i:=0 To Hight(Data) Do
   If Data[i]<>0 Then
     Inc(n);
 Count:=n
End;

Остальное писать влом. Ты сам-то пробывал? Ладно, не задачи решать - хотя бы правила форума читать?