Зависает Паскаль

Dragoon · 08.09.2014, 14:51

Зависает Паскаль после выполнения программы когда выводит результат скажите в чем проблема? Заранее благодарен

Код:

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    n,i,j,k,mx,imx,max:byte;
begin
clrscr;
repeat
write('ђ §¬Ґа ¬ ббЁў  ¤®',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*вл ¬ ббЁў , ў в®¬ зЁб«Ґ Ї®б«Ґ¤®ў вҐ«м*лҐ гз бвЄЁ:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('¬ ббЁў:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=2;mx:=0;imx:=0;
while i<n do
if (a[i]>a[i-1])and(a[i]>a[i+1]) then
  begin
   j:=i;k:=0;
   while (a[j]>a[j-1])and(a[j]>a[j+1])and(j<n) do
    begin
     k:=k+1;
     j:=j+2;
    end;
    end;
    end.

andrew1701 · 11.09.2014, 13:34

while i<n do
if (a[i]>a[i-1])and(a[i]>a[i+1]) then
begin
j:=i;k:=0;
while (a[j]>a[j-1])and(a[j]>a[j+1])and(j<n) do
begin
k:=k+1;
j:=j+2;
end;
end;
end.

тут не i не n не меняется вот тебе и зацикливание!

08.09.2014, 14:51
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ранее на форуме создавались темы, которые по содержанию схожи с вашим топиком Компьютер зависает Зависает ноутбук

11.09.2014, 13:34	#2 (permalink)
andrew1701 Member Регистрация: 07.03.2012 Сообщений: 83 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	while i<n do if (a[i]>a[i-1])and(a[i]>a[i+1]) then begin j:=i;k:=0; while (a[j]>a[j-1])and(a[j]>a[j+1])and(j<n) do begin k:=k+1; j:=j+2; end; end; end. тут не i не n не меняется вот тебе и зацикливание!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070