Автор: Zole 22.05.2004 0:03
Прошу всех, кто не слишком занят: помогите по возможности!
1. Многочлен степени n задан массивом своих коэффициентов. Найти производную многочлена. (Составить программу, используя конструкции циклов ДЛЯ, ПОКА, ДО по усмотрению с привлечением массива).
2. Точки М1, М2, ….., Мn заданы на плоскости своими координатами. Вычислить расстояния между всевозможными парами МiMk (i<k) этих точек (использовать вложенные циклы и массивы).
3. Определение числа ненулевых элементов в одномерном числовом массиве (процедура).
4. Найти первую норму квадратной матрицы порядка n.
Указание: в программе использовать процедуру вычисления суммы абсолютных величин элементов i - й строки матрицы.
Автор: BlackShadow 24.05.2004 15:41
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;
Остальное писать влом. Ты сам-то пробывал? Ладно, не задачи решать - хотя бы правила форума читать?