Форум программистов, компьютерный форум, киберфорум
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
0

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

25.11.2016, 19:33. Показов 2675. Ответов 2
Метки (Все метки)

Создать список из целых чисел.Поменять в списке местами максимальный и минимальный
элементы
Проблемы c процедурами Pos и Chang: пос находит макс и мин, я проверял, но вот Chang менять не хочет, хотя по идее все правильно. И еще вопрос можно ли этот код как то оптимизировать? Со списком же работаем по элементно, т, е мы сначало должны пройти и найти макс мин, а потом еще раз пройти и заменить все максимальные и минимальные элементы?
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
uses tqueueIn;
var head,tail:tqueue;
name:string;
x,y:integer;
 
procedure CopyFileToQueue(name:string;var h,t:tqueue);
var f:text;
    a:integer;
    begin
    assign(f,name); reset(f);
    while not eof(f) do 
    begin read(f,a);
    Add(h,t,a); end;
    close(f);
    end;
 
procedure CopyQueueToFile(name:string;var h,t:tqueue);
var f:text;
    a:integer;
    begin
    assign(f,name);rewrite(f);
    while head<>nil do 
    begin a:=take(h,t);
    write(f,a,' '); end;
    close(f);
    end;
    
 procedure PosMM(var head,tail:tqueue);
    var h,t:tqueue;
    max,min,temp:integer;
      a:integer;
      begin 
      InitQueue(h,t);
      min:=maxInt;
      max:=0;
      while head<>nil do begin
      a:=Take(head,tail);
   
      if (a>max) or (a<min) 
      then begin Add(h,t,a); 
      if a>max then max:=a 
      else min:=a end
      else Add(h,t,a)
      end;
      head:=h; tail:=t;
      end;
      
      procedure ChangMM(var head,tail:tqueue);
      var h,t:tqueue;
      a:integer;
      begin 
      InitQueue(h,t);
      PosMM(head,tail);
      while head<>nil do begin
      a:=Take(head,tail);
      if (a=max) or (a=min)
      then begin if (a=max) then Add(h,t,min)
      else Add(h,t,max); end
      else Add(h,t,a);
      end;
      head:=h; tail:=t;
      end;
      
begin 
write('введите имя файла ');readln(name);
InitQueue(head,tail);
CopyFileToQueue(name,head,tail);
{PosMM(head,tail);}
ChangMM(head,tail);
CopyQueueToFile(name,head,tail);
end.


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

Нельзя преобразовать тип 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
25.11.2016, 19:33

UnicodeDecodeError: 'utf8' codec can't decode byte 0x80 - invalid start byte
Добрый день При вызове скрипта вылетает такая ошибка: &quot;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[]
Приветствую. Есть такая строка - &quot;&quot; Как её перевести в массив байт? 1. Допустим, что...

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

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