Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        PASCAL
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

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

Ищешь максимальный элемент ниже главной диагонали и сравниваешь с ним все элемены на главной и выше нее. Если больше, то прибавляем к сумме.

Всего сообщений: 3109 | Присоединился: май 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com