Question

Язык: паскаль почему при f=true не выводится то,что записано в условии? const n=3; var c: array[1..n] of real; a: array[1..n,1..n] of real; x: array[1..n] of real; f: boolean; p,t: real; i,j: integer; begin writeln('vvedite matricu a: '); for i: =1 to n do for j: =1 to n do read(a[i,j]); writeln('vvedite massiv c: '); for i: =1 to n do read(c[i]); writeln('vvedite znacheniya p,t: '); write('p='); readln(p); write('t='); read(t); x[i]: =0; f: =false; repeat if (p else f: =false; until (i> n) or (f=false); if f then begin for i: =1 to n do for j: =1 to n do x[i]: =x[i]+a[i,j]; writeln('x[',i,']=',x[i]); end else writeln('elementy massiva c ne lezhat v intervale p,t'); end.

Answer 1

Во-первых хотелось бы узнать, почему у тебя в 24 строчке странная запись:

if (P else F:=false;

Здесь непонятно, к чему написана скобка, а также непонятно, куда затерялся синтаксический then.

Во-вторых - почему в той же строчке сравниваешь тип real с типом boolean? На это ругается даже компилятор.

В-третьих - если мы опустим эти недочёты и вникнем в алгоритм, то поймём, что ты зациклил условие проверки P на истинность до тех пор, пока i не будет больше n или пока F не станет ложью. Но тут подвох в чём? В этом цикле ты не производишь никаких действий над операторами в условии, кроме как присваивание булевой переменной F значение false, чему оно и равно изначально. То есть можно сказать, что у тебя здесь происходит бесконечное зацикливание. Скорее всего именно поэтому у тебя не выводится массив, потому что компилятор не в состоянии дойти до строчки вывода. Чтобы хотя бы часть условия выполнилась, тебе нужно в условии if..then..else присваивать F не false, а true. Но это только в том случае, если ты исправишь конструкцию условия.