Задачка по турбопаскаль

[ElRonin]

Ув. товарищи програмисты, решите пожалуйста еще одну задачку:

Задание на подпрограммы – процедуры.

Составить подпрограмму – процедуру FORM(A,P,N,M,R), которая на основе матриц А и Р, содержащих М строк и N столбцов, формулирует матрицу R(M, N) по правилу
R(I, J)=A(I, J), если P(I, J)>=0
ИЛИ 0, если P(I, J)<0
Использовать процедуру для формирования матрицы R1(10, 10), если заданны матрицы А1(10, 10) и Р1(10, 10), и для формирования матрицы R2(5, 6) если заданны матрицы A2(5, 6) и P2(5, 6). Исходные данные и результаты вывести.


заранее спасибо, если что то непонятное в условии стукните в асю 313994559

[Vedrus]

Сделаю за 20 мин и 100р. Интересно? Пиши: VedaCoder(at)mail(dt)ru

[ElRonin]

ну блин помоготите кто нибудь(

[tm2007]

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

program formm;
type
 Matr=array[1..10, 1..10] of Integer;

procedure FORM(A, P: Matr; N, M: Integer; var R: Matr);
var
 I, J: Integer;
begin
 for I:=1 to M do
  for J:=1 to N do
   if P[I, J]>=0 then
    R[I, J]:=A[I, J]
   else
    R[I, J]:=0;
end;
{процедура выводит на экран значения эл-тов матрицы}
procedure PR_MATR(Mas: Matr; N, M: Integer);
var
 I, J: Integer;
begin
 for I:=1 to M do
  begin
   for J:=1 to N do
    write(Mas[I, J]:5);
   writeln;
  end;
end;
{процедура присваивает эл-там матрицы случайные значения в диапазоне -99..100}
procedure INP_MATR(var Mas: Matr; N, M: Integer);
var
 I, J: Integer;
begin
 Randomize;
 for I:=1 to M do
  for J:=1 to N do
   Mas[I, J]:=Random(200)-99;
end;


var
 A1, P1, R1, A2, P2, R2: Matr;
begin
  INP_MATR(A1, 10, 10); {формируем матрицу A1}
  INP_MATR(P1, 10, 10);  {формируем матрицу P1}
  FORM(A1, P1, 10, 10, R1); {формируем матрицу R1}
  {выводим на экран сформированные матрицы}
  writeln('     Matritsa A1:');
  PR_MATR(A1, 10, 10);
  writeln('     Matritsa P1:');
  PR_MATR(P1, 10, 10);
  writeln('     Matritsa R1:');
  PR_MATR(R1, 10, 10);
  write('     Najmite ENTER dlya prodoljenia ');
  readln;
  INP_MATR(A2, 6, 5); {формируем матрицу A2}
  INP_MATR(P2, 6, 5);  {формируем матрицу P2}
  FORM(A2, P2, 6, 5, R2); {формируем матрицу R2}
  {выводим на экран сформированные матрицы}
  writeln('     Matritsa A2:');
  PR_MATR(A2, 6, 5);
  writeln('     Matritsa P2:');
  PR_MATR(P2, 6, 5);
  writeln('     Matritsa R2:');
  PR_MATR(R2, 6, 5);
  readln;
end.

Ну, надо все-таки такие задачи делать самому.
Иначе не будешь развиваться как программист

[Vedrus]

Ну, надо все-таки такие задачи делать самому.
Иначе не будешь развиваться как программист

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

Кстати, почему не по-русски сообщения в программе пишешь? Наверно под XP работаешь? Я рецепт знаю, чтобы русский был: запускаешь FAR - переключаешься на русский язык – запускаешь Pascal. Всё! Теперь по Ctrl-shift языки будут переключаться.

[ElRonin]

Эх парни спор тут неуместен, это же просто взаимоотношения, я ничего не шарю в информатике, зато помогаю другим так же как tm2007 в чем могу)а деньги это слишком низко)

PS: tm2007 спасибо второй раз выручил)оч благодарен

[ElRonin]

и кстати посомотрев решение я сделал сам аналогичную другу)а это для меня как человека далекого от программирования большое достижение

[Impulsive]

Добрые Дяденьки програмисты! Помогите!

Во вторник уде сдовать! неделю мозг ламаю! В паскале слабовато! Помогите плиз!!!
=(((

#1

Программа. Напечатать график функции y=x*x-1 на отрезке [-1;2] с шагом 0,1.
Ось ОХ направить по вертикали вниз, а ось OY - по горизонтали вправо. В каждой строчке печатать "кусочек" оси ОХ (например, литеру I) и звездочку - в позиции, соответствующей очередному значению функции; ОY не печатать.

(примерный график)
*
*I
* I
*I
*
I *
I *


#2
Const n=100;
VAR x:array [1..n] of real;
Преобразовать массив x по следующему правилу (Xk - значение k-го элемента массива после преобразования):
* элементы массива расположить в обратном порядке



Помогите пожалуйста! Я знаю мир не без добрых людей!

[Impulsive]

Народ! Помогит :'-(