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

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

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

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

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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
1
2
3
4
5
6
7
8
type
  r1 = record
   i: integer;
 end;
  r2 = record
   o: r1;
  end;
begin end.

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
1
2
3
4
5
6
7
8
9
10
11
12
13
 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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

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

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

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

@vlisp 1071 / 992 / 153 Регистрация: 10.08.2015 Сообщений: 5,443
	11.03.2019, 20:43
	структуры - это в с/с++ 0

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

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