Решите пожалуйста несколько задачек!!! Очень надо!!!

[Ленусик1990]

Задача №1. Составить алгоритм и программу на Pascale для решения следующей задачи: найти сумму натуральных чисел, предшествующих заданному числу а.

Задача №2. Составить программу на любом языке программировании для вычисления значений функции F(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой - значения аргумента, второй - соответствующие значения функции. F(x) = tgx.

Задача №3. Дана прямоугольная матрица A (n x n). Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки.

Задача №4. Составить программу на любом языке программировании для вычисления значений функции F(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой - значения аргумента, второй - соответствующие значения функции. F(x) = sinx - cosx.

[ОДИНОЧЕСТВО В СЕТИ]

1

s:=0;
 for i := 1 to a-1 do
 s:=s+i;

2

x:=a;
 repeat
 y:=sin(x)/cos(x);
 writeln(x:6:3;y:6:3);
 x:=x+h;
 until x>b;

4

x:=a;
 repeat
 y:=sin(x)-cos(x);
 writeln(x:6:3;y:6:3);
 x:=x+h;
 until x>b;

3

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,max,min,jmax,jmin:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
  end;
for i:=n downto 2 do {снизу матрицы смотрим по 2 строки}
  begin
    min:=a[i,1];jmin:=1;
    for j:=2 to n do{нижняя из двух}
    if a[i,j]<min then
      begin
       min:=a[i,j];{находим мин}
       jmin:=j;{его номер в строке}
      end;
    max:=a[i-1,1];jmax:=1;
    for j:=2 to n do {верхняя}
    if a[i-1,j]>max then
      begin
       max:=a[i-1,j];{находим макс}
       jmax:=j;{его номер}
      end;
    a[i,jmin]:=a[i-1,jmax];{меняем мин на макс}
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
 end;
readln
end.

<---код от Puporev!!!

[Sasha_Smirnov]

Насчёт 1: предшествующих! Т. е. верхний предел для i равен a–1.