Turbo Pascal

[Пух]

Ответ: Turbo Pascal

Написал же, что +-1 А про приоритет совсем забыл)
if (P[i,j]<>3) and (P[i,j]<>-3),а

Во-первых, после do не нужны точка с запятой, то есть:

я это скопировал из поста Тараса.

 

[Русечкин]

Ответ: Turbo Pascal

В Выделенной красным цветом строчке ошибка 40 Boolean expression exprected. Помогите пожалуйста завтра прогу в техникум нести

program IDZ4;
uses CRT;
var P: array [1..4,1..2] of integer;
m,i,j,k,z:integer;
begin
clrscr;
randomize;
for i:=1 to 4 do
for j:=1 to 2 do
P [i,j]:=random (35)-20;
for i:=1 to 4 do
begin
for j:=1 to 2 do
write ( P [i,j]:4);
writeln;
end;
begin
z:=0;
for i:=1 to 4 do
for j:=1 to 2 do
if P[i,j] not in [3,3]
then Ink(z)
writeln ('m=',z);
end;
begin
for i:=1 to 4 do
for j:=1 to 2 do
begin
if p[i,j]<>0 then p[i,j]:=5;
writeln(p[i,j]:5);
writeln;
end;
end;
readkey;
end.

 

[Пух]

Ответ: Turbo Pascal

напиши вместо той строки:
if (P[i,j]<>(3 and P[i,j]))<>-3
или
if (P[i,j]<>3) and (P[i,j]<>-3)

p.s. скорей всего 2-й вариант правильный

 

[Русечкин]

Ответ: Turbo Pascal

program IDZ4;
uses CRT;
var P: array [1..4,1..2] of integer;
z,i,j,k,Ink:integer;
begin
clrscr;
randomize;
for i:=1 to 4 do
for j:=1 to 2 do
P [i,j]:=random (35)-20;
for i:=1 to 4 do
begin
for j:=1 to 2 do
write ( P [i,j]:4);
writeln;
end;
begin
for i:=1 to 4 do
for j:=1 to 2 do
if (P[i,j]<>3) and (P[i,j]<>-3)
then Ink:=(z);
writeln ('z=',z);
end;
begin
for i:=1 to 4 do
for j:=1 to 2 do
begin
if p[i,j]<>0 then p[i,j]:=5;
writeln(p[i,j]:10);
writeln;
end;
end;
readkey;
end.

Z щитает те значения которые не равны числам 3 и -3. Вопрос в том почему же он их не щитает? Помогите пожалуйста

 

[Hamster]

inc(z); там написан бред сумасшедшего. Ничего там не щитаеться вообще.

 

[Русечкин]

Ответ: Re: Turbo Pascal

inc(z); там написан бред сумасшедшего. Ничего там не щитаеться вообще.

Фух, как камень с души огромное тебе спасибо!!

 

[Русечкин]

Ответ: Turbo Pascal

Есть ещё такой вопрос я немогу понять условие задачи поясните и если можите скажите как записать

Нужно: Визначити кількість елементів , які меньше за частку між першим та другим елементом масиву...

Условие вапще не понял кто может поясните или напишите эту часть задания сам масив одновимірний S 10 елементов

З.Ы сумму всех елементов написал, а тут условие в тупик завело.

 

[Пух]

Ответ: Turbo Pascal

2Русечкин, тебе написали inc(z),а ты попридумывал разной фигни
частка- это a[1]/a[2]

program massiv;
uses crt;
var myarray : array [0..10] of integer;
i,z:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
myarray:=60-random(30);
write(' ',myarray);
end;
for i:=1 to 10 do
if myarray<(myarray[1]/myarray[2])
then
inc(z);
writeln(' ');
writeln(z);
readln;
end.

 

[[Spider]]

Ответ: Turbo Pascal

В Выделенной красным цветом строчке ошибка 40 Boolean expression exprected. Помогите пожалуйста завтра прогу в техникум нести

[COLOR="Red"][B]if P[i,j] not in [3,-3][/B][/COLOR]
  then ... ;

А вот тут уже я плужу , только сам рассказывал о приоритете операций, а сам же на этом и попался .
Правильный вариант записи такой:

[B]if[/B] [B]not[/B] (P[i,j] [B]in[/B] [3,-3])

Свой первоначальный пост я исправлю.

 

[[Spider]]

Ответ: Turbo Pascal

напиши вместо той строки:
if (P[i,j]<>(3 and P[i,j]))<>-3
или
if (P[i,j]<>3) and (P[i,j]<>-3)

p.s. скорей всего 2-й вариант правильный

Только второй вариант и правильный! Я же писал уже тебе по-поводу твоего "первого варианта". Тот код даже не сможет быть скомпилирован, скорее всего будет выдано сообщение о несоответствии типов.