pascal:Не хочу писать программу - ты напиши

[DDD]

Народ помогите плиз написать программку, сижу ломаю голову, но нииииичего не понимаю.
<span style='color:red'>
from Scalder
Захотел-бы понял - 100%</span>

Прочесть из файла матрицу целых чисел 10*10. Найти сумму факториалов элементов, лежащих в заданной области. Результат записать в другой файл. Вычисление факториалов производить при помощи функции.
И еще прилагается рисунок к задаче ввиде "ёлочки" в квадратике два, друг на друге заштрихованных треугольничка.


ЗАРАНЕЕ ОГРОМНОЙ СПАСИБО!!!

<span style='color:red'>
from Scalder
Спасибо в карман не нальешь</span>

P.S. Кто понимает помогите плиз очень надо.....

<span style='color:red'>
from Scalder
Не сомневаемся...
</span>

[Scalder]

И что конекретно не понимаешь?
Или ты хочешь чтоб за тебя её написали?
тогда тебе нужно искать не здесь.. .имхо...
Разве, что какой-то благодетель сделает...

[Night Angel]

Если б спать не хотел, написал бы, а так до утра ждать придётся.

[DDD]

Я если бы хоть что-то понимал, то было бы от чего оттолкнуться, и думал бы сам..., но я знаю только program var и array mass,а что дальше вообще не понимаю, помогите плиз.... если не сложно...

[DruG]

<!--QuoteBegin-DDD+Apr 8 2005, 21:46--><div class='quotetop'>QUOTE(DDD @ Apr 8 2005, 21:46)</div><div class='quotemain'><!--QuoteEBegin-->‡ЂђЂЌ…… ЋѓђЋЊЌЋ‰ ‘ЏЂ‘?ЃЋ!!!
P.S. Љв® Ї®Ё¬ Ґв Ї®¬®ЈЁвҐ Ї«Ё§ ®зҐм  ¤®...

Сообщение отредактировал Scalder - Сегодня, 11:10 AM<!--QuoteEnd--></div><!--QuoteEEnd-->

2Scalderзачем так жестоко отредактровал??? цеж какая-то ДОС кодировка получилась...

[Night Angel]

А в этой заданной области надо из верхнего ряда считать факториалы двух чисел или ни оддного?
Или надо считать за пределами треугольников?

[Night Angel]

Код: выделить все

var s,i,j:integer;
   f:text;
   a:array[1..10,1..10] of integer;


function fac(c:integer):integer;
var t,n:integer;
begin
n:=1;
for t:=2 to c do n:=n*t;
fac := n;
end;

begin
assign(f,'ddd_in.txt');
reset(f);
for i:=1 to 10 do
for j:=1 to 10 do
read(f, a[i,j]);
close(f);

for i:=5 downto 1 do
begin
for j:=6-i to 5+i do
begin
   s:=s+fac(a[i,j]);
   s:=s+fac(a[i+5,j]);
end;
end;
assign(f,'ddd_out.txt');
rewrite(f);
write(f,s);
close(f);
end.

[Scalder]

2DruG
Упс, попробуем это дело исправить

added:
Ну вот и ладушки

[Night Angel]

Я вот только не понял, чего тут непонятного

[Scalder]

2Night Angel
аналогично...
Поэтому и не удержался от комметарием прямо в посте...

[Terrogen]

2Scalder

жжошь! <!--emo&:lol:-->[img]style_emoticons/<#EMO_DIR#>/laugh.gif[/img]<!--endemo-->

[maxovt]

[offtop]
2Terrogen
А я уж подумал ты в программеры заделался. <!--emo&:D-->[img]style_emoticons/<#EMO_DIR#>/biggrin.gif[/img]<!--endemo-->
[/offtop]

[DDD]

Спасибо большое, только одного не понимаю зачем так грубо? Ну не понимаю я, оттого и спрашиваю и не заставляю же писать, а прошу если кто понимает помочь, ему же это 5 минут, а критиковать каждый может, и изменять название темы зачем? Ясное дело, что я бы мог написать как ты исправил, но это было бы просто не вежливо!!!

[SiMM]

2DDD, ты путаешь две вещи. Человек, который что-то не понимает - просит ему это что-то объяснить. Как правило у него уже есть какие-то свои потуги разобраться. Ты же просишь написать готовую программу, а не объяснить то, что тебе непонятно. Потому твой начальный вопрос иначе как желание халявы трактовать ну никак не получается.