Срочно! Найти ошибку в программе.

[cska1325]

Помогите найти ошибки в программах и исправить её.

№1

Вариант 13
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) Количество элементов массива, лежащих в диапазоне от А до В.
2) Сумму элементов массива, расположенных после максимального элемента.
3) Упорядочить элементы массива по убыванию.

Program var_13;
Uses crt;
Type mas=array [1..50] of real;
Var
 b:mas;
max,i,l,j:intejer;
v,n,a,s,x:real;
begin
clrscr;
for i:=1 to 50 do
begin
b[i]:=cos(i);
write(b[i]:5:3,’  ‘);
end;
writeln(‘Введите диапазон’);
readln(v,n);
max:=0;
i:=0;
for i:=1 to 50 do
if (b[i]>=v) and (b[i]<=n) then
i:=i+1:
writeln(‘Количество элементов=’,l);
s:=0;
j:=1;
for i:=1 to 50 do
if b[i] > b[j] then
j:=i;
for i:=i+1 to 50 do;
s:=s+b[i];
writeln(‘Сумма элементов после максимального значения:’,s:5:3);
for i:=1 to 50-1 do
for j:=i+1 to 50 do
if b[i] < b[j] then
begin
x:=b[i];
b[i]:=b[j];
b[j]:=x;
end;
writeln(‘Упорядоченный массив по убыванию’);
for i:=1 to 50 do
write(b[i]:5:3,’  ‘);
readln;
end.

№2

Вариант 13
1.Файл содержит сведения о месячной зарплате, каждая запись которого содержит поля: фамилия работника и заработная плата.
2.Выдать информацию о работниках с заработной платой выше средней.

Progam file13;
uses crt;
const
n=3;
type
mess=record
F:string;
Z:integer;
end;
var
F1:file of mess;
srZ,Z,i,w,j,k:integer;
st:array [1..n] of mess;
s:mess;
begin
clrscr
assign(F1,’mes_zar.txt’);
{$i-}
reset(F1);
{$i+}
if IOresult < >0 then
begin
writeln(‘Файла нет.Создать?’);
rewrite(F1);
for i:=1 to n do
with st[i] do
begin
writeln(‘Введите фамилию работника:’);
readln(F);
writeln(‘Введите зарплату:’);
readln(Z);
end;
seek(F1,0);
for k:=1 to n -1 do
for j:=k+1 to n do
if st[k].F>st[i].F then
begin
s:=st[k];
st[k]:=st[j];
st[j]:=s;
end;
for i:=1 to n do
writeln(st[i].F,’  ‘,st[i].Z,’  ‘);
w:=0;
for i:=1 to n do
with st[i] do
begin
w:=w+Z;
end;
writeln(w);
begin
srZ:=w div n;
writeln(‘Средняя зарпата’,srZ);
end;
begin for i:=1 to n do
if st[i].Z > srZ then
writeln(st[i].F,’  ‘,st[i].Z,’   ‘);
for i:=1 to n do
end;
for i:=1 to n do
writeln(F1,st[i]);
readln;
end;
end.

[Dvoishnik]

добавить бы проверку, что б пользователь не мог в вести интервал от 9 до 1 к примеру.

writeln(‘Введите диапазон’);
readln(v,n);

1 переменная L не объявлена
2 вы считаете количество элементов в той же переменной что и цикл считает шаг
3 вы выводите "пустую" переменную

var
F1:file of mess;
srZ,Z,i,w,j,k:integer;
..........
i:=0;
for i:=1 to 50 do
if (b[i]>=v) and (b[i]<=n) then
i:=i+1:
writeln(‘Количество элементов=’,l);

1 сумму элементов после J а не после I нужно искать
2 for i:=i+1 to 50 do; как то не понятненько по идее нужно I:=J

s:=0;
j:=1;
for i:=1 to 50 do
if b[i] > b[j] then
j:=i;
for i:=i+1 to 50 do;
s:=s+b[i];
writeln(‘Сумма элементов после максимального значения:’,s:5:3);

вроде все)

[cska1325]

А можно вас попросить разграничить ваш ответ.
К какой из программ относятся ваши замечания.
И если вас не затруднит напишите мне программу уже в исправленном виде.

[Dvoishnik]

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

[cska1325]

Во втором фрагменте кода вы взяли описание переменных из второй программы(с файлом), а вторую часть из первой(массив)

[Dvoishnik]

Дико извиняюсь.

Var
 b:mas;
max,i,l,j:intejer;
v,n,a,s,x:real;
............
l:=0;
for i:=1 to 50 do
if (b[i]>=v) and (b[i]<=n) then
l:=l+1;
writeln(‘Количество элементов=’,l);

вот вам исправленный кусок за мою оплошность

[cska1325]

в треьем фрагменте вы пишите "1)сумму элементов после J а не после I нужно искать2)for i:=i+1 to 50 do; как то не понятненько по идее нужно I:=J"
т.е. это должно выглядеть так??

s:=0;
j:=1;
for i:=1 to 50 do
if b[i] > b[j] then
j:=i;
s=s+b[i];
i:=j;
writeln(‘Сумма элементов после максимального значения:’,s:5:3);

или я чего-то не понял...

[Dvoishnik]

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

или я чего-то не понял...

не поняли

....
for i:=j+1 to 50 do; 
s=s+b[i]
....

[cska1325]

я наверное опять не понял.
ну вот как-то так...

s:=0;
j:=1;
for i:=1 to 50 do
j:=i;
for i:=j+1 to 50 do;
if b[i] > b[j] then
s:=s+b[i];
writeln(‘Сумма элементов после максимального значения:’,s:5:3);

[Dvoishnik]

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

я наверное опять не понял.
ну вот как-то так...

s:=0;
j:=1;
for i:=1 to 50 do
j:=i; 
for i:=j+1 to 50 do;
if b[i] > b[j] then // это под первый цикл перенести нужно. 
s:=s+b[i];
writeln(‘Сумма элементов после максимального значения:’,s:5:3);

попробуйте сделать построчный комментарий приводимого вами кода. ошибки простые