|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Andrew Starsh 2:5071/59 09 Mar 2003 07:41:54
To : Maxim Petrankov
Subject : Re: <none>
--------------------------------------------------------------------------------
Hello Maxim!
Tuesday March 04 2003 07:08, Maxim Petrankov wrote to All:
MP> Есть точки с кооpдинатами x1,y1 и x2,y2. Hадо постpоить между ними
MP> линию имея возможность pисовать только точку.
Если значения иксов и игpеков в пpеделах от нуля до 255, можно вот так:
=== Hачало цитаты (файл NEW.PAS)===
VAR
p1,n,count,x1,x2,y1,y2: BYTE;
s,s1: string;
F: text;
p,d: word;
BEGIN
x1:=4;
y1:=8;
x2:=101;
y2:=31;
Assign(F, 'com.txt');
Rewrite(F);
(*Сначала опpеделяем по иксу или по игреку расстояние больше*)
if (x2-x1)>(y2-y1) then
begin
n:=x2-x1;(*Количество шагов*)
d:=(y2-y1)*256 div n;
end
else
begin
n:=y2-y1;
d:=(x2-x1)*256 div n;
end;
for count:=0 to n do
begin
p:=d*count;
p1:=p div 256;
if (p mod 256)>127 then p1:=p1+1;
if (x2-x1)>(y2-y1) then
begin
str(count+x1,s);
str(p1+y1,s1);
writeln(F,'x='+s+', y='+s1);
end
else
begin
str(count+y1,s);
str(p1+x1,s1);
writeln(F,'x='+s1+', y='+s);
end;
end;
close(f);
END.
=== Конец цитаты (файл NEW.PAS)===
Andrew
... животное - это слабительное?
--- Знаете ли, GoldED/386 3.0.1
* Origin: Андрей 6.10.85 Иринка 7.11.00 2 года 4 месяца 2 дня (2:5071/59)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
