Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется Опции

[DAN]

Можете сдесь задавать свои вопросы по этой теме.

[DaviN]

такой вопрос по делфи.. у самого уже мозги кипят думать не могу..
имеется два массива v[i], d[i] отсортированные по возрастанию, где v высота и d длина кирпича..
надо изобразить на форме или image эти кирпичи так чтобы один стоял на другом..
типа того что на картинке.. можо использовать rectangle или с помошью линий..

Прикрепленные файлы

 __________.bmp ( 576.05 килобайт ) Кол-во скачиваний: 53

 

[Amp]

Нужно чтобы кирпичи образовывали пирамидку? Т.е. в порядке убывания ширины основания друг на друга ложились?

One moment - как определяется принадлежность v и d для некоторого кирпича, если массивы отсортированы?

Сообщение отредактировал Amp - Jun 9 2007, 00:01

[XpoHuK]

такой вопрос по делфи.. у самого уже мозги кипят думать не могу..
имеется два массива v[i], d[i] отсортированные по возрастанию, где v высота и d длина кирпича..
надо изобразить на форме или image эти кирпичи так чтобы один стоял на другом..
типа того что на картинке.. можо использовать rectangle или с помошью линий..

Допустим v[3,5,7,8] (высота) d[9,1,4,2] (длина), значит первый кирпичь имеет размер 3х9, но после сортироски получится 3х1 - а это уже не соопветствут введенному.
Если посмотреть на твой рисунок то кирпичи у тебя стоят по убыванию длинны их основания. Если я все правильно понимаю, то можно просто находить во 2-ом массиве мах елемент и начиная с него , ссылаясть на соответствующий номер элемента , выстраивать эти кирпичи, в порядке убывания длинны.

[Гость_Lady_Melamory_*]

Здравствуйте. Вообщем написала на паскале.
Переделать, думаю, легко будет...

program kirpich;
uses crt, graph;
var c:array[1..3] of integer;
d:array[1..3] of integer;
i,y,cd,m:integer;
begin
readkey;
clrscr;
cd:=0; m:=0;
c[1]:=10;c[2]:=20;c[3]:=30;
d[1]:=15;d[2]:=25;d[3]:=35;
Initgraph(cd,m,'c:\bp\bgi');
y:=200;
For i:=3 downto 1 do
begin
y:=y-c[i];
rectangle(100,y,100+d[i],y+c[i]);
end;
readkey;
end.

[Гость_Lady_Melamory_*]

Это конечно если массивы уже отсортированы. Если же нет, то
просто сортируем любым методом. Если надо могу написать.

[DaviN]

Всем спасибо.. Подкинули идею, осилил сам..
выглядит вот так..
вобще условие было.. если кому интересно:

Строители изготавливют N кирпичей. Каждый кирпич это параллелепипед с размерами (v, d, s). Необходимо узнать наибольшую высоту башни, которую можно построить из этих кирпичей, причем кирпичи можно ставить на любую грань, но так, чтобы основание нижнего кирпича (ширина и длина) было больше (не равно) основания верхнего.

Сообщение отредактировал DaviN - Jun 15 2007, 19:28

Прикрепленные файлы

 kirpich.gif ( 25.49 килобайт ) Кол-во скачиваний: 36

 

[Amp]

А в задании что-то не говорится про то, что это надо рисовать ))

[DaviN]

А в задании что-то не говорится про то, что это надо рисовать ))

аха.. но препод сказал, что без картинок не понятно..не принял, пришлось рисовать..

[Гость_APTEM(rus)_*]

Мне нужно перехватить API-функцию "connect()".

[Amp]

Первое, что бросается в глаза - http://rsdn.ru/article/baseserv/IntercetionAPI.xml
На wasm-е еще материалы есть.

[Гость_Rock_*]

Нужно написать прогу на паскале. Условия: дана координатная плоскость, часть которой заштрихована. Эта часть ограничена тремя линиями:
окружность (x*x +y*y=1),
X<0,2
Y<0
Ввод - координаты точки X и Y, вывод - значение булевской переменной. Также необходимо включить в программу операторы вывода, контролирующие написать ничего лучше, чем

Код

program Lab1;
var
x,y :integer;
K:boolean;
begin
write ('Vvedite x u y 4erez probel');
readln (x, y);
if (x*x+y*y<1)
  then begin
   if (x<0)
   then begin
     if (y<0) then K:=true
  else K:=false
end;
   end;
     end.

Жму Alt+F9, у меня выходит сообщение, типа Press Ctrl+Break.. Очевидно, что записано все неправильно, исправьте, плииз!!!
Спасибо за ранее!!!

[Amp]

Так понимаю, проверить принадлежность точки заданной области?

Код

var x,y : real;
begin
    readln(x, y);
    if((x*x+y*y<=1) and (x<0.2) and (y<0)) then write('true') else write('false');
    readln;
end.

[Daniilka]

Нужно написать прогу на паскале. Условия: дана координатная плоскость, часть которой заштрихована. Эта часть ограничена тремя линиями:
окружность (x*x +y*y=1),
X<0,2
Y<0
Ввод - координаты точки X и Y, вывод - значение булевской переменной. Также необходимо включить в программу операторы вывода, контролирующие написать ничего лучше, чем

Код

program Lab1;
var
x,y :integer;
K:boolean;
begin
write ('Vvedite x u y 4erez probel');
readln (x, y);
if (x*x+y*y<1)
  then begin
   if (x<0)
   then begin
     if (y<0) then K:=true
  else K:=false
end;
   end;
     end.

Жму Alt+F9, у меня выходит сообщение, типа Press Ctrl+Break.. Очевидно, что записано все неправильно, исправьте, плииз!!!
Спасибо за ранее!!!

А ты Ctrl+F9 нажимать не пробовал?

[Daniilka]

И если не поставишь перед "end." нечто типа "readln;" как то сделано у Amp'a ... то попробуй еще потыкать Alt+F5 после выполнения программы.

В программе ошибок нет.

[Amp]

Первая ошибка программы - использование зачем-то целого типа.

[Гость_Rock_*]

Подскажите, почему при запуске программы или компиляции выходит следующее сообщение:

А как включить в программу операторы ввода, контролирующий порядок выполнения условных операторов, чтобы он выводил номер ветви алгоритма?
Amp, спасибо большое!! А можно ли написать эту же программу, но чтобы операторы решения содержали только одно условие (не использовать булевые операции OR, AND)?

[Amp]

Что представляет собой твой диск F?

[Гость_Rock_*]

Диск F у меня - виртуальный дисковод алкоголя, на который ничего не смонтировано, че паскаль от него хочет.. - хз.. может у того, у кого я паскаль скачал, на диске F чет было?

[Daniilka]

Потыкай меню. Там должен быть пункт Directopries. Возможно там у тебя прописаны ссылки на диск F.
Это пути к служебным модулям и т.п.

[Daniilka]

Первая ошибка программы - использование зачем-то целого типа.

Давай уж сразу напрямки: "Не выпедривайся, салага." Нечего нас разгильдяев жалеть.

Код

program Lab1;
var
x,y :real;
K:boolean;
begin
k:=false;
write ('Vvedite x u y 4erez probel');
readln (x, y);
Write('1. Proverka x*x +y*y=1 : ')
if (x*x+y*y<1)
  then begin
   Writeln('true');                             //Resultat 1-ei proverki
   Write('2. Proverka x<0.2 : ');
   if (x<0.2)
   then begin
     Writeln('true');                           //Resultat 2-ei proverki
     Write('3. Proverka y<0 : ');
     if (y<0) then
         begin
         Writeln('true');                       //Resultat 3-ei proverki
         K:=true
         end
     else Writeln('false');                   //Resultat 3-ei proverki
   end
   else Writeln('false');                     //Resultat 2-ei proverki
  end
  else Writeln('false');                      //Resultat 1-ei proverki

Writeln(k);                                    // Itogovyi resultat

Readln;
end.

Если мне не изменяет память и внимательность.