Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/64: Рейтинг темы: голосов - 64, средняя оценка - 4.56
11 / 4 / 1
Регистрация: 22.09.2012
Сообщений: 102
1

Нельзя преобразовать тип byte к System.Drawing.Color

12.12.2012, 15:43. Показов 12504. Ответов 6
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses
graphABC, crt;
var
color:byte;
begin
randomize;
repeat
color:=random(15);
PutPixel(Random(100),random(100),[B]color[/B]);
delay(10);
until keypressed;
end.
Нельзя преобразовать тип byte к System.Drawing.Color.
В чем ошибка? вчера начал проходить тему про графический модуль и все не могу разобраться с одним и тем же кодом.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 15:43
Ответы с готовыми решениями:

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

Нельзя преобразовать тип
Привет всем! при написании программы столкулся с проблемой при компиляции kr:=...

Нельзя преобразовать тип real к integer
Выдаёт ошибку при завершении "Program1.pas(15,20): Нельзя преобразовать тип real к integer" в чём...

Нельзя преобразовать тип string к ^char
Составить программу на языке ПАСКАЛЬ, содержащую регулярные типы данных (строки - ASCII, ASCIIZ,...

6
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
12.12.2012, 16:09 2
Я так понял, ты в АВС.net маешься. Не списывай программы для Турбо Паскаля.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
graphABC;
var f:boolean;
procedure keydown(key:integer);
begin
if key=VK_Return then f:=false
end;
var c:color;
begin
randomize;
f:=true;
repeat
c:=clRandom;
setPixel(Random(100),random(100),c);
sleep(10);
OnKeyDown:=keydown;
until not f
end.
1
11 / 4 / 1
Регистрация: 22.09.2012
Сообщений: 102
12.12.2012, 16:31  [ТС] 3
Спасибо, но есть несколько вопросов (в книге это не написано).
1. Почему переменная f - логическая переменная?
2. Не понятны строки № 6, 11, 13, 14, 16. И что означает запись
Pascal
1
c:color;
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
12.12.2012, 16:49 4
Так открой справку и почитай. А переменная f для остановки программы.
0
Веб-Разработчик
82 / 82 / 9
Регистрация: 23.01.2012
Сообщений: 701
31.05.2013, 18:30 5
Puporev, ваш пример у меня в коде почему то не работает. пишет Program1.pas(39) : Неверное число параметров процедуры на строке
Pascal
1
OnKeyDown:=keydown;
вот весь код
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
uses GraphABC;
var i:integer;
{procedure Ready(k:integer);
        Var
    Р: связь;
    i : integer;
  Begin
    P:=начало;
    i:=1;
    While i<>K do
      begin
        P:=P^.следующий;
        i:=i+1;
      end;
    P^.состояние:=true;
  end;}
    procedure sinus(number:integer);
        var x, y, x0,y0,k:integer; col:color;
        procedure Keydown(Key: integer);
            begin
            if key=VK_Return then exit;
            end;
        begin
        randomize;
        
        y0:=random(90,390);
        k:=random(10,50);
        col:=clRandom;
            line(20,240,620,240);
            line(320,20,320,400);
            X0:=320;
            for X:=-320 to 320 do
                begin
                    y:=trunc(k*sin(x/k));
                    setPixel(x0+x,y0-y,col);
                    sleep(1);
                end;
            onkeydown:=keydown;
        end;
BEGIN
for i:=0 to 9 do
begin
sinus(i);
end;
readkey;
END.
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
31.05.2013, 19:11 6
Так вообще не описана процедура keydown(key:integer);
я для чего вообще писал код?

Добавлено через 3 минуты
Эта процедура заменяет readkey, а у Вас и то и другое, короче вообще без понятия.
0
Веб-Разработчик
82 / 82 / 9
Регистрация: 23.01.2012
Сообщений: 701
01.06.2013, 01:26 7
Puporev, та процедура должна была завершать выход из цикла по нажатию на конкретную клавишу. а ридкей для завершения всей программы (по привычке поставил)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2013, 01:26

Нельзя преобразовать тип boolean к real
program pogr; var m,n,Ax,x,G,c:real; begin m:=1;n:=3;x:=0.0666;Ax:=0.001; G:=Ax+x; c:=...

Нельзя преобразовать тип real к integer
Пишет ошибку : Нельзя преобразовать тип real к integer procedure Repeat1; Const Alpha = 0.1;...

Нельзя преобразовать тип real к integer
Всем привет) В процессе написание программы у меня возникла следующая проблема: Строка 24: нельзя...

Нельзя преобразовать тип real к integer
program l7; var F1,F2:text; R,K:real; i:byte; begin assign(F1,'E:\file1.txt');...


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

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

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