Marsik
Удален
|
   
ПАСКАЛЬ
Решите кто может!!!СПАСИБО
задачача 1. Задана действительная квадратная матрица
размером N*M.
Вычислить сумму тех её элементов, расположенных на главной
диоганали и выше её, которые превосходят по величине все
элементы, расположенные ниже главной диоганали. Если таких
элементов нет, то ответом должно служить сообщение об этом.
Задача 2.
Составить программу с использованием процедуры или
функции на базе задачи 1.
(Сообщение отредактировал Marsik 2 апр. 2004 20:27)
(Сообщение отредактировал Marsik 2 апр. 2004 20:30)
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 2 апр. 2004 20:26 | IP
|
|
VF 
Administrator
|
 
Ищешь максимальный элемент ниже главной диагонали и сравниваешь с ним все элемены на главной и выше нее. Если больше, то прибавляем к сумме.
|
Всего сообщений: 3110 | Присоединился: май 2002 | Отправлено: 3 апр. 2004 10:01 | IP
|
|
Guest
Новичок
|
i=j=> a[i,j] - элемент главной диагонали.
i<j - над главной,
i>j - под главной,
или наоборот, проверить надо
0**** =>j
*0***
**0**
||
I
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 26 нояб. 2004 14:47 | IP
|
|
Guest
Новичок
|
помогите пожалуйста решить задачу через функции и процедуры.
дана матрица 5х5. Если максимальный элемент больше 2 и находится на главной диагонали, то все элементы матрицы разделить на этот элемент.
Спасибо.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 29 дек. 2004 14:34 | IP
|
|
Guest
Новичок
|
type matrix = array[1..5,1..5] of integer;
procedure p(var a:matrix);
var i,j:integer; max,m,n:integer;
begin max:=a[1,1]; m:=1; n:=1;
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]>max then begin max:=a[i,j]; m:=i; n:=j; end;
if (max>2) and (m=n) then begin
for i:=1 to 5 do
for j:=1 to 5 do a[i,j]:=a[i,j]/max;
end;
end;
Из Пильщикова что-ли такая странная задачка?
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 5 янв. 2005 23:46 | IP
|
|
www
Новичок
|
Люди добрые помогите мне написать программу на Turbo Pascal
Мне надо её здать до понедельника (31.01.2005 г.)
Вычислить значение выражения:
x-(x^3/3!)+(x^5/5!)-(x^7/7!)+(x^9/9!)-(x^11/11!)+(x^13/13!)
{x^3 это Х в третей степени,x^5 это Х в пятой степени, и т.д.}
{3!,5!,7!,9!,11!,13! это факториалы}. Задачу нужно решить с помощью любого цикла
кто решит скинте мне на мыло rn3qdm@box.vsi.ru
Заранее благодарен...
|
Всего сообщений: 1 | Присоединился: май 2013 | Отправлено: 25 янв. 2005 22:01 | IP
|
|
xryundel
Удален
|
надеюсь, что не наделал ошибок (компилятора под рукой нет)
функцию x^n/n! описал рекурсивно иначе при больших n будет переполнение
program for_www(input, output);
var result:real; k:integer;
function ex(x:real;deg:integer):real;
begin if deg=1 then ex:=x
else deg:=(x/deg)*ex(x,deg-1);
end;
begin
read(x);
result:=0;
k:=1;
while k<=13 do begin
result:=result+ex(x,k);
k:=k+2;
end;
write(result:5:2);
readln;
readln;
end.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 26 янв. 2005 4:55 | IP
|
|
Sedjj
Новичок
|
Здравствуйте!!!!!
Помогите пожалуйста решить задачку))))
Имеется n населенных пунктов, перенумерованные от 1 до n(n-10). Некоторые пары пунктов присоединены к дорогам. Определить, можно ли попасть по этим дорогам из 1-го пункта в n-й. Информация о дорогах задается в виде последовательности пар чисел i и j (i<j), указывающих, что i-й и j-й пункты соединены дорогой; признак конца этой последовательности – пара нулей.
Ее надо решить при помощи РЕКУРСИИ!!!!!!!
За ранее спасибо)))
|
Всего сообщений: 7 | Присоединился: ноябрь 2009 | Отправлено: 16 нояб. 2009 20:32 | IP
|
|
|
Форум
PASCAL
