Задачи Опции

[aleksandr]

Помогите прогиры??
Я в вобщем еще учусь в школе а тут на тебе начали вести програмировани паскаль посути он мне в будущей професии не нужен так что забивать голову не хочу помогите решеть задачу!!!!
Записать на место отрицательных элементов матрицы нули и вывести на печать в обще принятом виде и учесть если не будет отрицательных чисел не надо нечего делать Матрица квадратная КК порядок К где К<10.
и еще одна:
Модифицировать програму таким образом чтобы вычислять многократно значание функции при изминении аргумента в указаном диапозоне и с задоном шагом X=[0,8..2] шаг X=0,1 Пожалуста помогите!!!

[klem4]

На примере функции f(x)=(х в квадрате).

Код

{$n+}
uses crt;
var a,b,h,x:extended;

function f(x:extended):extended;
begin
  f:=sqr(x);
end;

Begin

  clrscr;
  readln(a);
  readln(b);
  readln(h);

  writeln('x':3,'y':6);

  x:=a;
  while x<=b+h/2 do
   begin
      writeln(x:4:1,f(x):6:1);
      x:=x+h;
   end;

  readln;
end.