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

[cska1325]

Я конечно извиняюсь, но не проще ли вам исправить мои ошибки и не мучатся со мной))

[Dvoishnik]

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

[cska1325]

Я скажу всё как есть, мне остались последние сутки чтобы исправить эти программы.
Иначе у меня не будет допуска на экзамен(((

[Dvoishnik]

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

Я скажу всё как есть, мне остались последние сутки чтобы исправить эти программы.
Иначе у меня не будет допуска на экзамен(((

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

[cska1325]

ну ладно помучаемся чутка.

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

может так??

[Dvoishnik]

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

может так??

да, а теперь целиком программу. по идее все готово кроме проверки.
проверку можно сделать помощью if и break;

[cska1325]

Насчёт проверки. Я думаю она не нужна так как диапазон мы будем брать из полученного массива.

[Dvoishnik]

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

Насчёт проверки. Я думаю она не нужна так как диапазон мы будем брать из полученного массива.

Дело барское. Код во едино собрать получилось?

[cska1325]

вроде да))

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;
l:=0;
for i:=1 to 50 do
if (b[i]>=v) and (b[i]<=n) then
l:=l+1:
writeln(‘Количество элементов=’,l);
s:=0;
j:=1;
for i:=1 to 50 do
if b[i] > b[j] then 
j:=i; 
for i:=j+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.

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

[Dvoishnik]

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

вроде да))

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;
l:=0;
for i:=1 to 50 do
if (b[i]>=v) and (b[i]<=n) then
l:=l+1:
writeln(‘Количество элементов=’,l);
s:=0;
j:=1;
for i:=1 to 50 do
if b[i] > b[j] then 
j:=i; 
for i:=j+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.

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

Компилировать пробовали ?

с файлами я к сожалению в ТП помочь не смогу без компилятора а на работе такого не имеется.