МАССИВЫ (5), массивы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
МАССИВЫ (5), массивы |
Zole |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
Прошу всех, кто не слишком занят: помогите по возможности! 1. Многочлен степени n задан массивом своих коэффициентов. Найти производную многочлена. (Составить программу, используя конструкции циклов ДЛЯ, ПОКА, ДО по усмотрению с привлечением массива). 2. Точки М1, М2, ….., Мn заданы на плоскости своими координатами. Вычислить расстояния между всевозможными парами МiMk (i<k) этих точек (использовать вложенные циклы и массивы). 3. Определение числа ненулевых элементов в одномерном числовом массиве (процедура). 4. Найти первую норму квадратной матрицы порядка n. Указание: в программе использовать процедуру вычисления суммы абсолютных величин элементов i - й строки матрицы. Сообщение отредактировано: volvo - |
BlackShadow |
Сообщение
#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; Остальное писать влом. Ты сам-то пробывал? Ладно, не задачи решать - хотя бы правила форума читать? |
Текстовая версия | 26.04.2024 0:34 |