Ошибка 88(ПАСКАЛЬ)

[Kami-sama3]

Здравствуйте всем!
есть запись! нужно определить фирму у которой долг 0!
Плиз помогите вечно выдаёт ошибки со скобачками хотя сними всё норм!

Program kr1;
uses CRT;
        Type
	    klient = record
		kredit:real;
		Vkb:real;
		dolg:real;
	        End;
            stroen = record
		stoimost:real;
                Tip: string[20];
                klient:klient;
                Firma:string[30]; end;

Var
	a: stroen;
        f1:file of stroen;
        i:integer;
        kod_tovara:integer;
begin
      assign(f1,'d:\stroenie.txt');
     { rewrite(f1);
      writeln('Vvedite danie stroeni9I');
      for i:=1 to 3 do begin
          with a do begin
                        writeln('klient');
                        write('kredit'); readln (klient.kredit);
                        write('Cymma vklada v bank'); readln(klient.vkb);
                        write('Nevuplachena9I Cymma'); readln(klient.dolg);
                        write('stoimost'); readln(stoimost);
                        write('Tip stroeni9I'); readln(tip);
                        write('Firma-podporiadchik'); readln(Firma);
                        end;
                        end;
           write(f1,a);
           close(f1);}
           clrscr;
           reset(f1);
           writeln('POlnostu oplatil');
           readln(klient.dolg);
           while not(eof(f1)) do begin
           read(f1,a);

                      if (klient.dolg)=0 then write(a.firma);end;
                      close(f1);
                      end.

[_Engine_]

Как Вас понимать?

stroen = record
		stoimost:real;
                Tip: string[20];
                klient:klient; <----???
                Firma:string[30]; end;

[stck]

Соглашусь с Engine + зачем комментировать код в центре? м?

[Kami-sama3]

Сообщение от _Engine_

Как Вас понимать?

stroen = record
		stoimost:real;
                Tip: string[20];
                klient:klient; <----???
                Firma:string[30]; end;

у меня 2 записи.
И Одну мне надо вызвать вдругой записи, что было как одна.

[Kami-sama3]

АА проблема решилась

Program kr1;
uses CRT;
        Type
	    

    stroen = record
		stoimost:real;
                Tip: string[20];
                klient:record
	   	          kredit:real;
		            Vkb:real;
		            dolg:real;
	        End;
               Firma:string[30]; end;

Var
	a: stroen;
        f1:file of stroen;
        i:integer;
        kod_tovara:integer;
begin
      assign(f1,'d:\stroenie.txt');
     { rewrite(f1);
      writeln('Vvedite danie stroeni9I');
      for i:=1 to 3 do begin
          with a do begin
                        writeln('klient');
                        write('kredit'); readln (klient.kredit);
                        write('Cymma vklada v bank'); readln(klient.vkb);
                        write('Nevuplachena9I Cymma'); readln(klient.dolg);
                        write('stoimost'); readln(stoimost);
                        write('Tip stroeni9I'); readln(tip);
                        write('Firma-podporiadchik'); readln(Firma);
                        end;
                        end;
           write(f1,a);
           close(f1);}
          clrscr;
           reset(f1);
           writeln('POlnostu oplatil');
           read(f1,a);

                      if a.klient.dolg=0 then write(a.firma);
                      close(f1);
                      end.

Сделал 2 изменения и программа заработала , но скорей всего это от a.klient.dolg

[Магамед]

Найдите два отличия))) А прога все равно не работает, даже если убрать ошибку со скобками)))

Program kr1;
uses CRT;
        Type
	    klient = record
		kredit:real;
		Vkb:real;
		dolg:real;
	        End;
            stroen = record
		stoimost:real;
                Tip: string[20];
                klient:klient;
                Firma:string[30]; end;

Var
	a: stroen;
        f1:file of stroen;
        i:integer;
        kod_tovara:integer;
begin
      assign(f1,'d:\stroenie.txt');
      rewrite(f1);
      writeln('Vvedite danie stroeni9I');
      for i:=1 to 3 do begin
          with a do begin
                        writeln('klient');
                        write('kredit'); readln (klient.kredit);
                        write('Cymma vklada v bank'); readln(klient.vkb);
                        write('Nevuplachena9I Cymma'); readln(klient.dolg);
                        write('stoimost'); readln(stoimost);
                        write('Tip stroeni9I'); readln(tip);
                        write('Firma-podporiadchik'); readln(Firma);
                        end;
                        end;
           write(f1,a);
           close(f1);
           clrscr;
           reset(f1);
           writeln('POlnostu oplatil');
           readln(a.klient.dolg);
           while not(eof(f1)) do begin
           read(f1,a);

                      if (a.klient.dolg)=0 then write(a.firma);end;
                      close(f1);
                      end.

[Kami-sama3]

у меня заработала

[QWE_1]

доброе время суток
будте любезны глянте вот этот код:
type
a=ARRAY[1..2] of real;
VAR
m:^a; {декларация массива}
i: integer; {параметр цикла FOR}
n:integer; {счётчик отрицательных эл-ов}
buf, min, max: real; {значение максимального элемента}
t: integer; {индекс (номер) макс. элемента}
k:integer;
BEGIN
readln(n);
{$R-}
getmem(a,n*6);
FOR i:=1 TO 4 DO {заполнение массива}
Begin
Write('Введите элемент последовательности N ',i);
Readln(m[i]);
End;
n:=0; {обнуление счётчика отр. эл-ов}
FOR i:=1 TO n DO
if m[i]<0 then n:=n+1; {вычисление количества отр. эл-ов}
Write('Последовательность содержит ',n,' отрицательных эл-ов');
max:=m[1]; {допустим, что 1-й элемент - максимален}
t:=1;
FOR i:=1 TO n DO
if m[i]>max then {проверка нашего утверждения}
begin
max:=m[i];
t:=i;
end;
Writeln('Максимальный элемент последовательности равен ',max);
Writeln('Номер максимального элемента ',t);
min:=m[1]; {допустим, что 1-й элемент - максимален}
k:=1;
FOR i:=1 TO n DO
if m[i]<min then {проверка нашего утверждения}
begin
min:=m[i];
k:=i;
end;
Writeln('Минимальный элемент последовательности равен ',min);
Writeln('Номер min элемента ',k);
begin
buf:=m[4];
m[4]:=min;
m[k]:=buf;
for i:=1 to n do
begin
writeln(m[i],'');
end;
end;
freemem(a,n*6);
{$R+}
END.
на этом месте выдаёт ошибку 88
подскажите что длелать

[astecenko]

Procedure GetMem(Var P : Pointer; Size : Word);

У Вас первый параметр совсем не pointer