Необходимо написать 3 программы на паскале

[d.e.w]

1. Не используя станадртные функции, за исключением abs вычислить сумму ряда с заданной точностью Е>0 : (-1)^i/5^i; i от 1 до бесконечности.
2.В одномерном массиве заменить все нулевые элементы, предшествующие первому отрицательному на 1 .
3. В квадратной матрице размерностью NxN среди элементов расположенных ниже главной диагонали найти минимальный, а среди элементов, расположенных выше побочной диагонали максимальный, поменять их местами.

Заранее благодарен всем, кто поможет. Пытался сам написать , но так и не смог, а время поджимает.

[Niro]

Пытался сам написать

А где примеры, покажите, только не выкладывайте какую-нибудь другие левые задачи, а действительно пример где вы пытались решать
А так могу подсказать воспользоваться поиском - задачи легкие и подобных на форуме сотни, или могу подсказать алгоритм

[d.e.w]

вот код 1 например

program lab31;
uses crt;
var a,i,x:integer;
g,e,f,sum:real;

begin
clrscr;
writeln('Ведите Е');
readln(e);
sum:=0;
i:=1;
a:=5;
while (abs(g/f))>=e Do begin
if (i)mod 2<>0 then g:=1 else g:=-1;
sum:=sum+abs(g/exp(i*ln(a));
i:=i+1;
end;
writeln(sum:6:6);
readkey;
end.

[Z1000000]

program lab2;
const MaxLen=100;
var
 a : array [1..MaxLen] of Integer;
 i,N,firstindex,lastindex,sum,count : Integer;
begin
read(N);
for i:=1 to N do read(a[i]);
for i:=1 to N do write(a[i],' ');writeln;

for i:=1 to N do
 begin
 if a[i] < 0 then break;
 if a[i] = 0 then a[i] := 1;
 end;

for i:=1 to N do write(a[i],' ');writeln;
end.

[d.e.w]

Сообщение от Z1000000

program lab2;
const MaxLen=100;
var
 a : array [1..MaxLen] of Integer;
 i,N,firstindex,lastindex,sum,count : Integer;
begin
read(N);
for i:=1 to N do read(a[i]);
for i:=1 to N do write(a[i],' ');writeln;

for i:=1 to N do
 begin
 if a[i] < 0 then break;
 if a[i] = 0 then a[i] := 1;
 end;

for i:=1 to N do write(a[i],' ');writeln;
end.

спасибо. объясни , что за оператор Break(я с таким еще не сталкивался)

[Niro]

Хорошо

if (i)mod 2<>0 then g:=1 else g:=-1;

может быть наоборот? ведь, если выполняется условие if (i)mod 2<>0 значит число нечетное, а т.к. отриц. число в степени нечетного числа будет отрицательным то

if (i)mod 2<>0 then g:=-1 else g:=1;

while (abs(g/f))

- оно у вас не выдает ошибку деления на ноль?
у вас в программе я не заметил, что бы вы что то делали с переменной f, наверное у вас f это exp(i*ln(a)? так дополните немного программу, например

f:=exp(i*ln(a));
sum:=sum+f;

По третьей задаче
Определяете лежит ли элемент выше(ниже) главной диагонали, если да - то ищите минимальный (максимальный), запоминия их индексы, а в конце меняете местами,
P.S. на форуме есть подобные задачи, только в большинстве надо просто поменять min и max элементы местами, а у вас с учетем их положения относительно диагонали

Break - оператор досрочного выхода из цикла
в программе от z1000000 он нужен что бы выйти из цикла, при нахождении первого отриц. числа

[d.e.w]

Сообщение от Niro

Хорошо

if (i)mod 2<>0 then g:=-1 else g:=1;

- оно у вас не выдает ошибку деления на ноль?
у вас в программе я не заметил, что бы вы что то делали с переменной f, наверное у вас f это exp(i*ln(a)? так дополните немного программу, например

Сорри. Просто я случайно не то скинул. Сначало я писал программу где 5^i вычислялось при помощи функции, а потом переделал через exp.

Сообщение от d.e.w

Сорри. Просто я случайно не то скинул. Сначало я писал программу где 5^i вычислялось при помощи функции, а потом переделал через exp.

Первая работает. Вторая тоже , но незнаю что означает оператор break и что такое count.
3. Я знаю как найти минимальный и максимальный элемент массива. Я не знаю как ограничить поиск по диагоналям.
P.S Еще заметил , что вторая заменяет каждый нулевой элемент на единицу , еслив массиве нет отрицательных элементов

[Niro]

не знаю как ограничить поиск по диагоналям.

вверху раздела помощи студентов есть тема работа с матрицами

[Z1000000]

program lab3;
const MaxLen=100;
var
 a : array [1..MaxLen,1..MaxLen] of Integer;
 i,j,N,mini,minj,maxi,maxj,tmp : Integer;
begin
read(N);
for i:=1 to N do
 for j:=1 to N do a[i,j] := random(100);
 
for i:=1 to N do
 begin
 for j:=1 to N do
  write(a[i,j],' ');
 writeln;
 end;

mini := 2 ; minj := 1;
for i:=2 to N do
 for j:= 1 to i-1 do
  if a[i,j] < a[mini,minj] then begin mini:=i;minj:=j;end;
writeln ( mini,' ',minj);

maxi := 1 ; maxj := 1;
for i:=1 to N do
 for j:= 1 to N-i do
  if a[i,j] > a[maxi,maxj] then begin maxi:=i;maxj:=j;end;
writeln(maxi,' ',maxj);

tmp := a[maxi,maxj];
a[maxi,maxj] := a[mini,minj];
a[mini,minj] := tmp;

writeln;
for i:=1 to N do
 begin
 for j:=1 to N do
  write(a[i,j],' ');
 writeln;
 end;
end.

[Niro]

вторая заменяет каждый нулевой элемент на единицу , еслив массиве нет отрицательных элементов

Правильно, давайте посмотрим на строки

if a[i] < 0 then break;
if a[i] = 0 then a[i] := 1;

Тут есть условие прохода по массиву до 1-го отр. числа
и второе если элемент ноль, то заменяем на 1, Но нужно как то объединить эти условия, что бы программа работала верно, например сделайте два цикла в первом ищите первый отрицательный элемент, запомнив его номер, а во втором от 1 до запомненого номера заменяет нули на единицы