Встречено 'i', а ожидалось ';'

@ololo111 · Регистрация: 13.04.2012

Author24 — интернет-сервис помощи студентам

во всех строках типа

Pascal

1	writeln('введите координаты X Y Z 'i'й точки:');

не хочет добавлять цифру "i", выдавая ошибку (Встречено 'i', а ожидалось ';')....

вот например 2 примера одной программы:

Pascal

program structure;
 type point=record
  x,y,z: integer;
  r,g,b: integer;
 end;
var
  n: array[1..10] of point;
  i,t:integer;
begin
  writeln ('введите кол-во точек от 1 до 10:' );
  readln(t);
  for i:=1 to t do with n[i] do
 begin
    writeln('введите координаты X Y Z 'i'й точки:');
    read(x,y,z);
 end;
   for i:=1 to t do with n[i] do
    begin
      writeln('введите цвета R G B 'i'й точки:');
      read(r,g,b); 
    end;
writeln('|точка| координаты |   цвет    |');
for i:=1 to t do
Writeln('|  i  |x='x[i]' y='y[i]' z='z[i]' |r='r[i]' g='g[i]' b='b[i]'|');
end.

Кликните здесь для просмотра всего текста

и пример чуть изменённой с эмулятором массива

Pascal

program structure;
Const
  R=10;
 type point=record
  x,y,z: integer;
  r,g,b: integer;
    end;
  TInd=1..R;
  TElem=Integer;
  TMas=Array [TInd] Of TElem;
var
  n: array[1..10] of point;
  t:integer;
  i:TInd;
begin
  writeln ('введите кол-во точек от 1 до 10:' );
  readln(t);
  for i:=1 to t do with n[i] do
 begin
    writeln('введите координаты X Y Z 'i'й точки:');
    read(x[i],y[i],z[i]);
 end;
   for i:=1 to t do with n[i] do
    begin
      writeln('введите цвета R G B 'i'й точки:');
      read(r,g,b); 
    end;
writeln('|точка| координаты |   цвет    |');
for i:=1 to t do
Writeln('|  i  |x='x[i]' y='y[i]' z='z[i]' |r='[i]' g='g[i]' b='b[i]'|');
end.

@ololo111 · 11.03.2019, 16:28 **[ТС]**

а каким образом из этой программы сделать 3 структуры? главное нигде об этом не написано, и примеров программы нет никаких, был бы хотябы какойнибудь учебник где такое объясняется, не всеж гении, которые с закрытыми глазами программы пишут, для меня это как постройка космического корабля, где без детальных объяснений и наглядно-действенных примеров не разобраться....

@vlisp · 11.03.2019, 20:43

структуры - это в с/с++

@ololo111 · 11.03.2019, 21:22 **[ТС]**

Сообщение от Sun Serega

Pascal

type
  r1 = record
   i: integer;
 end;
  r2 = record
   o: r1;
  end;
begin end.

это получается как двумерная текстура?

получается из этой программы, с одномерной структурой

Pascal

program structure;
Const
  R=10;
 type point=record
  x,y,z: byte;
  color: string;
    end;
  TInd=1..R;
  TElem=char;
  TMas=Array [TInd] Of TElem;
var
  n: array[1..10] of point;
  t:byte;
  i:TInd;
begin
  writeln ('введите кол-во точек от 1 до 10:' );
  readln(t);
  for i:=1 to t do
 begin
    writeln($'введите координаты X Y Z {i}й точки:');
    readln(n[i].x,n[i].y,n[i].z);
 end;
   for i:=1 to t do 
    begin
      writeln($'введите цвет {i}й точки:');
      readln(n[i].color); 
    end;
writeln('|точка| координаты | цвет |');
for i:=1 to t do
Writeln($'|  {i}  |x={n[i].x} y={n[i].y} z={n[i].z} |',n[i].color:6,'|');
end.

надо разделить точку, координаты и цвет на 3 структуры,
я понятия не имею как это делать, но всё что пришло в голову, это что-то такого типа:

Pascal

 type color=record
   r,g,b: byte;
    end;
 type coord=recorg
   x,y,z:byte
    end;
 type point=record
   c:color;
   k:coord;
    end;
 type list=record
   p:point;
    end;

получается как список точек, в котором содержатся координаты и цвет, но из этого создать программу что-то вообще.... никак....

есть у кого-нибудь примеры с похожими программами? скиньте ссылки ребят

@Sun Serega · 11.03.2019, 22:05

Ну, point вы наконце собрали. А зачем list? И это не список, вы в нём храните только 1 экземпляр point. Просто сделайте снова array of point. Теперь, к примеру, координату x первой точки можно будет получить как n[1].coord.x.

@ololo111 · 12.03.2019, 21:52 **[ТС]**

Сообщение от Sun Serega

Ну, point вы наконце собрали. А зачем list? И это не список, вы в нём храните только 1 экземпляр point. Просто сделайте снова array of point. Теперь, к примеру, координату x первой точки можно будет получить как n[1].coord.x.

то что получилось,

Pascal

program structure;
Const
   R=10;
  type color=record
     r,g,b: byte;
    end;
  type coord=record
     x,y,z:byte;
    end;
  type point=record
     c:color;
     k:coord;
  end;
 TInd=1..R;
 TElem=byte;
 TMas=Array [TInd] Of TElem;
var
  n: array[1..R] of point;
  t:byte;
  i:TInd;
begin
  writeln ('введите кол-во точек от 1 до 10:' );
  readln(t);
  for i:=1 to t do
 begin
    writeln($'введите координаты X Y Z {i}й точки:');
    read(n[i].k.x,n[i].k.y,n[i].k.z);
 end;
   for i:=1 to t do 
    begin
      writeln($'введите цвета R G B {i}й точки:');
      read(n[i].c.r,n[i].c.g,n[i].c.b); 
    end;
writeln('|точка| координаты |   цвет    |');
for i:=1 to t do
Writeln($'|  {i}  |x={n[i].k.x} y={n[i].k.y} z={n[i].k.z} |r={n[i].c.r} g={n[i].c.g} b={n[i].c.b}|');
end.

это считается как трёхмерная структура??? если да то ура!

@Sun Serega · 12.03.2019, 22:00

Ну, если не считать что понятия "трёхмерная структура" не существуюет - то да))

@ololo111 165 / 51 / 36 Регистрация: 13.04.2012 Сообщений: 598
	11.03.2019, 16:28 [ТС]	41
	а каким образом из этой программы сделать 3 структуры? главное нигде об этом не написано, и примеров программы нет никаких, был бы хотябы какойнибудь учебник где такое объясняется, не всеж гении, которые с закрытыми глазами программы пишут, для меня это как постройка космического корабля, где без детальных объяснений и наглядно-действенных примеров не разобраться.... 0

@vlisp 621 / 941 / 150 Регистрация: 10.08.2015 Сообщений: 5,018
	11.03.2019, 20:43	42
	структуры - это в с/с++ 0

@Sun Serega 2308 / 1419 / 516 Регистрация: 07.04.2017 Сообщений: 4,721
	11.03.2019, 22:05	44
	Ну, point вы наконце собрали. А зачем list? И это не список, вы в нём храните только 1 экземпляр point. Просто сделайте снова `array of point`. Теперь, к примеру, координату x первой точки можно будет получить как `n[1].coord.x`. 1

@Sun Serega 2308 / 1419 / 516 Регистрация: 07.04.2017 Сообщений: 4,721
	12.03.2019, 22:00	46
	Ну, если не считать что понятия "трёхмерная структура" не существуюет - то да)) 0