Помощь - Поиск - Пользователи - Календарь
Полная версия: МАССИВЫ (5)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Zole
22.05.2004 0:03
rolleyes.gif
Прошу всех, кто не слишком занят: помогите по возможности!
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;


Остальное писать влом. Ты сам-то пробывал? Ладно, не задачи решать - хотя бы правила форума читать?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.