IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> МАССИВЫ (5), массивы
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3

Репутация: -  0  +


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

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

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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;


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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.01.2021 10:04
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name