Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/35: Рейтинг темы: голосов - 35, средняя оценка - 4.77
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
1

Тип set of byte

14.04.2011, 16:13. Показов 6606. Ответов 4
Метки нет (Все метки)

Здравствуйте.

Написал программу, и при выполнении выдает ошибку:

Попытка присвоить значение типа integer выражение типа set of byte.

От чего это может быть?

П.С.Сама программа:

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
var
a:array [1..12] of integer;
s,q,w,e:integer;
begin
for s:=1 to 12 do
begin
a[s]:=random(25)-12;
write(a[s],' ');
end;
writeln;
for s:=1 to 2 do
begin
q:=a[s];
a[s]:=[5-s];{вот здесь программа выдает эту ошибку}
a[5-s]:=q;
end;
for s:=1 to 4 do
begin
write(a[s],' ');
end;
for s:=5 to 6 do
begin
q:=a[s];
a[s]:=a[13-s];
a[13-s]:=q;
end;
for s:=5 to 8 do
begin
write(a[s],' ');
end;
for s:=9 to 10 do
begin
q:=a[s];
a[s]:=a[21-s];
a[21-s]:=q;
end;
for s:=9 to 12 do
begin
write(a[s],' ');
end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.04.2011, 16:13
Ответы с готовыми решениями:

Тип данных Set of
Всем доброго вечера. Мне надо вывести знаки арифметических операций и знаки препинания на экран с...

Напишите программу , которая выводит на экран все подмножества множества :{'A','B','C','D'}. Через тип множеств SET
Напишите программу , которая выводит на экран все подмножества множества :{'A','B','C','D'}. Через...

Какой функцией можно преобразовать тип byte в тип string и наоборот?
Вот моя проблема, у меня конченое действие будет выводить число в 10 С.С и в типе byte, а мне надо...

Получить значения каждого из четырех байт (тип Byte), составляющих эти четыре поля записи
Задана запись с вариантами, имеющая четыре поля символьного типа (тип Char) каждое. Получить...

4
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
14.04.2011, 16:37 2
Не знаю что вы делаете но:
a[s]:=[5-s];
a[5-s];
1
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
14.04.2011, 16:43  [ТС] 3
SuPeR XaKer

Задача:

Задача на 5.Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива.
Решал похожую задачу:

Задача на 4.Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить инверсию отдельно для 1-ой и 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
26
27
28
29
30
31
var a:array [1..10] of integer;
s,d,e:integer;
begin
for s:=1 to 10 do
begin
a[s]:=random(21)-10;
write(a[s],' ');
end;
writeln;
for s:=1 to 2 do
begin
d:=a[s];
a[s]:=a[6-s];
a[6-s]:=d;
end;
for s:=1 to 5 do
begin
write(a[s],' ');
end;
e:=2;
for s:=6 to 8 do
begin
d:=a[s];
a[s]:=a[16-s];
a[16-s]:=d;
end;
for s:=6 to 10 do
begin
write(a[s],' ');
end;
end.

А вот задачу на 5 не могу решить, точнее ошибку не могу найти.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
14.04.2011, 16:47 4
я тебе показал уже ошибку.Буква пропущена.
1
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
14.04.2011, 16:54  [ТС] 5
Да,понял.Спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2011, 16:54

Нельзя преобразовать тип function(a: byte;b: byte): byte к integer (Списки)
Создать список из целых чисел.Поменять в списке местами максимальный и минимальный элементы...

Отредактировать программу, убрав set of byte
Здравствуйте, может кто нибудь помочь убрать тип set of byte? program lab10; uses crt; ...

Объясните ошибку "Нельзя преобразовать тип set of string к set of char"
Помогите пожалуйста найти ошибку в решении этой задачи: Дана непустая последовательность...

Нельзя преобразовать тип byte к System.Drawing.Color
uses graphABC, crt; var color:byte; begin randomize; repeat color:=random(15);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru