Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Напишите программу вычисления значения функции Напишите программу вычисления значения функции с использованием оператора IF… THEN … ELSE блочной формы. На экран, кроме результата необходимо вывести сообщение по какой ветке шло ... https://www.cyberforum.ru/ pascalabc/ thread1860030.html Pascal ABC Составить программу на языке Паскаль для перевода символа в соответствующий код
Составить программу на языке Паскаль для перевода символа в соответствующий код, используя приведенный на блок-схеме алгоритм. Для преобразования символа в соответствующий код воспользоваться...
Pascal ABC Даны три одномерных массива из целых чисел. Найти элементы, которых нет одновременно и в том и в другом массив Даны три одномерных массива из целых чисел. Найти элементы, которых нет одновременно и в том и в другом массив https://www.cyberforum.ru/ pascalabc/ thread1859932.html Pascal ABC Вывод сообщения если строка пустая после выполнения алгоритма https://www.cyberforum.ru/ pascalabc/ thread1859693.html
Добрый день, уважаемые форумчане. Просьба помочь с вопросом: как можно вывести 1 раз сообщение при условии что не будут найдены слова в строке, в которых буквы упорядочены по алфавиту. Поиск есть,...
Pascal ABC Перечислить все K элементные подмножества n элементарного множества
Перечислить все K элементные подмножества n элементарного множества пример с вводом выводом
Pascal ABC Вывести значение Вывести значение функции на промежутке c шагом 0.5, вывод результата оформить в виде таблицы, организовать повтор программы, используя цикл с постусловием. https://www.cyberforum.ru/ pascalabc/ thread1859458.html
Pascal ABC Библиотечный модуль и матрицы Разработать алгоритм и программу решения задачи с использованием библиотечного модуля пользователя, найти среднее арифметическое из всех отрицательных элементов матрицы размером 4х4, состоящей из... https://www.cyberforum.ru/ pascalabc/ thread1859450.html В двумерном массиве найти произведение элементов матрицы, находящихся ниже главной диагонали Pascal ABC
Найти произведение элементов матрицы, находящихся ниже главной диагонали. Имя массива-R. Размер массива: 4,4. Тип данных - действительный. Заполнена матрица должна быть рандомно (randomize) числами...
Pascal ABC Найти количество элементов массива, меньших заданного числа https://www.cyberforum.ru/ pascalabc/ thread1859217.html
Составить программу и заполнить таблицу значений переменных. Цикл организовать вручную. Найти количество элементов массива, меньших заданного с клавиатуры числа. Массив К: 1,5,11,15,4. Число Х=10
Pascal ABC найти значение переменной var y:real; begin y := round(y*(7 div 4) mod 7/3)/3 - Trunc(0.724); writeln(y); end. Выдаёт ошибку в 3-ей строке: "нельзя преобразовать тип real к integer". Помогите исправить, пожалуйста. https://www.cyberforum.ru/ pascalabc/ thread1859216.html
Помогите кто чем сможет? Pascal ABC
Нужно решить, пожалуйста помогите. Мог бы сделать сам но ситуация такая что училака преподает все на "отвалите" и требует после этого чтото решать. Кому не сложно помогите!
Pascal ABC Метод резолюций в исчислении предикатов Требуется написать программу Метод резолюций в исчислении предикатов.Помогите!!! https://www.cyberforum.ru/ pascalabc/ thread1859170.html
0 / 0 / 1
Регистрация: 24.04.2016
Сообщений: 16
26.11.2016, 16:35  [ТС] 0

Нельзя преобразовать тип function(a: byte;b: byte): byte к integer (Списки) - Pascal ABC - Ответ 9817871

26.11.2016, 16:35. Показов 2684. Ответов 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
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
94
95
{Модуль для очереди}
Unit tqueueIn;
Interface 
type 
tqueue=^que;
que = record
inf:integer;
next:tqueue;
end;
 
procedure Add(var head, tail:tqueue;item:integer);
function Take (var head, tail: tqueue):integer;
function Empty(head:tqueue):boolean;
function peek (head: tqueue): integer;
function Pop(var head: tqueue): integer;
procedure initqueue(var head,tail:tqueue);
{Procedure CopyFileToQueue(name:string;var h,t:tqueue);
procedure CopyQueueToFile(name:string;var h,t:tqueue);}
procedure CopyFileToFile(name1,name2:string);
 
 
implementation 
 
 
var head,tail:tqueue;
 
{Добавление элемента в очередь}
procedure Add(var head, tail:tqueue;item:integer);
var r:tqueue;
begin 
new(r);
r^.inf:=item;r^.next:=nil;
if head=nil
then begin head:=r; tail:=r; end
else begin tail^.next:=r; tail:=r; end;
end;
 
{Выборка верхнего элемента из очереди}
function Take (var head, tail: tqueue):integer;
var i: integer;
r: tqueue;
begin
r:= head; 
i:=r^.inf;
head:=head^.next;
if head=nil then
tail:=nil;
dispose(r);
take:=i;
end;
 
{}
function Empty(head:tqueue):boolean;
begin 
if head=nil then 
Empty:= true else
Empty :=false;
end;
 
 
{Функция просмотра верхнего элемента:}
function peek (head: tqueue): integer;
begin Peek := head^.inf; end;
 
{Функция выбора верхнего элемента из стэка:}
function Pop(var head: tqueue): integer;
var i:integer;
r:tqueue;
begin
r:=head;
i:=r^.inf;
head:= r^.next;
dispose(r);
pop:=i;
end;
 
{Инициализация очереди}
procedure initqueue(var head,tail:tqueue);
begin head:=nil;tail:=nil; end;
 
{Процедура копирует один фаил в другой}
procedure CopyFileToFile(name1,name2:string);
var f,d:text;
a:integer;
begin 
assign(f,name1); reset(f);
assign(d,name2);rewrite(d);
while not eof(f) do begin 
read(f,a); write(d,a,' '); end;
close(f); close(d);
end;
 
 
 
end.


Вернуться к обсуждению:
Нельзя преобразовать тип function(a: byte;b: byte): byte к integer (Списки) Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2016, 16:35
Готовые ответы и решения:

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

Нельзя преобразовать тип function(a: integer;b: integer):integer к real
unit matr1; interface type matr2=array of real; matr3=array of real; procedure sum...

Нельзя преобразовать тип function:integer к integer
Есть такой кусок кода, не могу сделать вот эту операцию... work:=work+a; function work...

Тип set of byte
Здравствуйте. Написал программу, и при выполнении выдает ошибку: Попытка присвоить значение...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2016, 16:35

UnicodeDecodeError: 'utf8' codec can't decode byte 0x80 - invalid start byte
Добрый день При вызове скрипта вылетает такая ошибка: "UnicodeDecodeError: 'utf8' codec can't...

'utf-8' codec can't decode byte 0xff in position 0: invalid start byte
Работаю с библиотеками PIL и telebot В чем может быть проблема ? Ошибка - 'utf-8' codec can't...

Перевести строку, содержащую данные массива байт (byte[]) в byte[]
Приветствую. Есть такая строка - "" Как её перевести в массив байт? 1. Допустим, что...

Invalid byte 1 of 1-byte UTF-8 sequence - ошибка (Intellij idea)
Есть небольшой проект, точнее, только зачаток, запускается нормально, но при сборке в jar ругается,...

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