Помощь - Поиск - Пользователи - Календарь
Полная версия: Экстремум ряда(с процедурой)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Наська
Помогите!!!!! До завтра! blink.gif
*Найти номер первого экстремального(т.е. минимального или максимального) из данных десяти целочисленных элементов.

Не работают номера минимума и максимума. При любом значении выдаёт 10.

Первый раз работаю с процедурами, может где в процедуре накосячила? unsure.gif

Код
program proced;
type
vector=array [-327..327] of real;
var
    a:vector;
    rmax:real;
    nmax:integer; {nomer max}
    i,j:integer;
    rmin:real;
    nmin:integer; {nomer min}
procedure extremum(a:vector; L:integer; var rmax:reak; nmax:integer; var rmin:real; var nmin:integer);
var
    j:integer;
begin
    L:=10;
    rmax:=a[1]; nmax:=1;
    for j:=2 to L do
    begin
       if a[j]>rmax then
       rmax:=a[j]; nmax:=j
     end;
end;
begin
     writeln('BBedite 10 celux chisel);
     for i:=1 to 10 do
     begin
         write('a[',j,']='); read(a[j]);
     end;
     extremum(a,10,rmax,nmax,rmin,nmin);
     if nmax<nmin then writeln('max=',rmax:4:0, '  nomer=', nmax);
     if nmax>nmin then writeln('min=',rmin:4:0, '  nomer=', nmin);
     if nmax=nmin then writeln('Rjd sostoit iz ', rmax);
end.

PLEASE, HELP ME!!!!!!!!!!!!
Atos
Вот сюда
Код

if a[j]>rmax then
rmax:=a[j]; nmax:=j

ты забыла добавить begin end
Правильно
Код

if a[j]>rmax then
   begin
   rmax:=a[j];
   nmax:=j
   end;

То же самое и для rmin
Наська
Ой, спасиб те большое!!! дура деревенская;) Окей, гуд!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.