Ошибка 22

@Valeriya1602 · Регистрация: 10.03.2011

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

Пожалуйста, подскажите, как можно избавиться от ошибки 22? В 17 строке компилятор ругается на использование большой структуры

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Program Lab_4;
Uses CRT;
type Numberplate=record
           series:string;
           number:integer;
end;
 
type Currency=record
        country_name:string;
        currency_name:string;
        dignity:integer;
        numznak:numberplate;
end;
 
Procedure Input(var n,dost,num:integer;var co_name,cu_name,series:string);
var
      mas:array [1..100] of Currency;
      i,err:integer;
      fl:boolean;
      str:string;
begin
   write('Введите количество наименований валют: ');
   readln(n);
   writeln;
 
   for i:=1 to n do
   with mas[i] do
      begin
         writeln('Страна ',i,' :');
         write('Введите название страны: ');
         readln(co_name);
         write('Введите название валюты: ');
         readln(cu_name);
 
         repeat
            write('Введите достоинство купюры: ');
            fl:=TRUE;
            readln(str);
            val(str,dost,err);
            if not (err=0) then
            begin
               writeln('Введено неверное значение элемента.Повторите ввод.');
               fl:=FALSE;
               writeln;
            end;
         until(fl);
 
         write('Введите серию: ');
         readln(series);
 
         repeat
            write('Введите номер: ');
            fl:=TRUE;
            readln(str);
            val(str,num,err);
            if not (err=0) then
            begin
               writeln('Введено неверное значение элемента.Повторите ввод.');
               fl:=FALSE;
               writeln;
            end;
         until(fl);
         writeln;
      end;
      writeln;
end;
 
Procedure Output(n,dost,num:integer;var co_name,cu_name,series:string);
var i:integer;
begin
   writeln('Введены следующие данные: ');
   write('|  N  |    Страна     |  Валюта  |');
   writeln(' Достоинство купюры |   Номерной  знак   |');
   for i:=1 to n do
   begin
      write('|',n:5,'|',co_name:15,'|',cu_name:10,'|',dost:20,'|');
      writeln(num:10,series:10,'|');
   end;
end;
 
var
    n:integer;
    dost,num,co_name,cu_name,series:Currency;
 
begin
   clrscr;
   write('Данная программа предназначена для вывода на экран ');
   writeln('таблицы валют, введенных пользователем');
   writeln;
   input(n,dost.dignity,num.numznak.number,co_name.country_name,cu_name.currency_name,series.numznak.series);
   output(n,dost.dignity,num.numznak.number,co_name.country_name,cu_name.currency_name,series.numznak.series);
   readkey;
end.

@nuHrBuH · 12.03.2011, 23:37

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

series:string[20];

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

country_name:string[20];
currency_name:string[20];

Вот так попробуй.

@Valeriya1602 · 12.03.2011, 23:44 **[ТС]**

А так компилятор указывает на несовместимость типов при вызове процедуры... как это можно исправить?

@iama · 12.03.2011, 23:51

Valeriya1602, обьявите

Pascal
1
type my_type = string [20];

и дальше используйте её

@Valeriya1602 · 13.03.2011, 00:04 **[ТС]**

спасибо большое, помогло.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Valeriya1602 0 / 0 / 0 Регистрация: 10.03.2011 Сообщений: 13
	12.03.2011, 23:44 [ТС]
	А так компилятор указывает на несовместимость типов при вызове процедуры... как это можно исправить? 0

@Valeriya1602 0 / 0 / 0 Регистрация: 10.03.2011 Сообщений: 13
	13.03.2011, 00:04 [ТС]
	спасибо большое, помогло. 0