Технический форум - Задачи на массивы и функции

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задачи на массивы и функции (http://www.tehnari.ru/f41/t92463/)

Задачи на массивы и функции

Всем, всем, всем доброго времени суток! Ребята, очень прошу, выручайте, помогите составить код программы для данных трёх задач, могу даже материально отблагодарить, пополнив баланс телефона если программа будет не замысловатой и хорошо работать! :tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::t ehnari_ru_837::tehnari_ru_837::tehnari_ru_837::teh nari_ru_837::tehnari_ru_837::tehnari_ru_837:

Забыл сказать, что код на языке Turbo Pascal...Очень надеюсь на вас!

Цитата:

Сообщение от Евгениус1 (Сообщение 971649)

Очень надеюсь на вас!

Ну что, сударь, всё ждёте, когда Вам на блюдечке преподнесут решение этих глупых школьных задачек? Так сами за прошедшее время ничего и не родили?

Вычисление числа элементов в виде функции

с программой беда, на экран не выходит в таком виде, в котором нужно, то есть в FUNCTIONtehno015

Цитата:

Сообщение от Евгениус1 (Сообщение 973883)

с программой беда, на экран не выходит в таком виде, в котором нужно, то есть в FUNCTIONtehno015

Прежде всего, не надо плодить вокруг одних и тех же задачек кучу тем. Темы объединены. А что до самой задачи, то, например, так:

Код:

Const

 X:Array[1..3,1..3] of Real=((0.2,3,4),(0.1,0.2,3.4),(7,8,9));

 Y:Array[1..4,1..4] of Real=((1,3,4,7),(8,9,-4,0),(2,3,7,8),(1,3,4,-3));

 RX=0.5;

 RY=2.5;



Type

 Arr=Array[1..4,1..4] of Real;



Var

 i,j,NumX,NumY:Byte;

 X1:Arr;

 A:Boolean;



Function Num(Z:Arr;N:byte;R:Real):Byte;

var

 p,q,M:Byte;

begin

 M:=0;

 for p:=1 to N do

  for q:=1 to N do

   if Z[p,q]<R then Inc(M);

 Num:=M;

end;



Begin

 for i:=1 to 3 do

  for j:=1 to 3 do

   X1[i,j]:=X[i,j];

 NumX:=Num(X1,3,RX);

 NumY:=Num(Y,4,RY);

 A:=(NumX>=NumY);

 Writeln(A);

 Readln

End.