Ребят,помогите подправить программу

  • Автор темы deniska92
  • Дата начала
D

deniska92

Гость
#1
Имеется вот такой вариант программы в ПАСКАЛЕ:
примерно так:
Код:
var n1,n2,d1,d2:integer;
s:string;
ind:boolean;
begin
s:='';
n1:=nil;
d1:=nil;
ind:=true;
n2:=0;
while (ind=true)and(n2-100) do
begin
readln(n2);
if n2=-100 then begin ind:=false; break; end;
if n1nil then d2:=n1-n2;
if (d1nil)and(n1nil) then 
if d1d2 then begin ind:=false; s:='net'; end else s:='da';

n1:=n2;
end;
writeln(s);
readln;
end.
При запуске в FreePascal выбивает 9 ошибок.Помогите решить проблему пожалуйста.
 
M

mss

Гость
#2
> FreePascal выбивает 9 ошибок

Спрашивается, для КОГО он их "выбивает" ?
Вникай в смысл каждого сообщения !
 
09.11.2009
665
1
#3
:welcome:
Код:
var n1,n2,d1,d2:integer;
s:string;
ind:boolean;
begin
s:='';
n1:=-32768;
d1:=-32768;
d2:=-32768;
ind:=true;
n2:=0;
while (ind=true)and(n2<>-32768) do
begin
readln(n2);
if n2=-32768 then begin ind:=false; break; end;
if n1<>-32768 then d2:=n2-n1;
if (d1<>-32768)and(n1<>-32768) then
if d1<>d2 then begin ind:=false; s:='net'; end else s:='da';

n1:=n2;
d1:=d2;
end;
writeln(s);
readln;
end.