VPF::[Java/Pascal] Графическая программа

DDV

Дата 24.12.2007, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 25.10.2006

Репутация: нет
Всего: нет

Есть программа написанная на поскаль, надо написать программу делающую тоже самое только на Java (точное совпадение не обязательно). Это первое задание за семестр НА ЗАЧЕТ! Буду очень благодарен если кто-нибудь поможет +)

Код

program treugolnik;
uses crt,graph;
var xa,ya,xb,yb,xc,yc,driver,mode: integer;
n: byte;

Procedure EgaDrv; External; 
{$L EGAVGA.OBJ }

procedure tria(xa,ya,xb,yb,xc,yc:integer;n:byte);
var xq,yq,xp,yp,xr,yr:integer;
begin
if n<>0 then begin
xp:=(xb+xc)div 2;
yp:=(yb+yc)div 2;
xq:=(xc+xa)div 2;
yq:=(yc+ya)div 2;
xr:=(xa+xb)div 2;
yr:=(ya+yb)div 2;
tria(xa,ya,xq,yq,xr,yr,n-1);
tria(xq,yq,xc,yc,xp,yp,n-1);
tria(xp,yp,xr,yr,xb,yb,n-1);
line(xq,yq,xp,yp);
line(xp,yp,xr,yr);
line(xq,yq,xr,yr)
end;
begin
if n=0 then setcolor(11);
if n=1 then setcolor(10);
if n=2 then setcolor(12);
if n=3 then setcolor(13);
if n=4 then setcolor(14);
if n=5 then setcolor(15);
if n=6 then setcolor(16);
end;
end;

begin
if RegisterBGIdriver(@EGADrv) < 0 then
halt(3);

driver := Detect;
mode := 0;
initgraph(driver,mode,'');

n:=0;
for n:=0 to 6 do
begin
readkey;

cleardevice;
setcolor(0);
xa:=getmaxx;ya:=getmaxy;
xc:=getmaxx;yc:=0;
xb:=0;yb:=0;
line(xa,ya,xb,yb);
line(xb,yb,xc,yc);
line(xa,ya,xc,yc);
tria(xa,ya,xb,yb,xc,yc,n);
xa:=0; ya:=0;
xc:=0; yc:=getmaxy;
xb:=getmaxx; yb:=getmaxy;
tria(xa,ya,xb,yb,xc,yc,n);
end;
readkey;
readln;
closegraph;
end.program treugolnik;
uses crt,graph;
var xa,ya,xb,yb,xc,yc,driver,mode: integer;
n: byte;

Procedure EgaDrv; External; 
{$L EGAVGA.OBJ }

procedure tria(xa,ya,xb,yb,xc,yc:integer;n:byte);
var xq,yq,xp,yp,xr,yr:integer;
begin
if n<>0 then begin
xp:=(xb+xc)div 2;
yp:=(yb+yc)div 2;
xq:=(xc+xa)div 2;
yq:=(yc+ya)div 2;
xr:=(xa+xb)div 2;
yr:=(ya+yb)div 2;
tria(xa,ya,xq,yq,xr,yr,n-1);
tria(xq,yq,xc,yc,xp,yp,n-1);
tria(xp,yp,xr,yr,xb,yb,n-1);
line(xq,yq,xp,yp);
line(xp,yp,xr,yr);
line(xq,yq,xr,yr)
end;
begin
if n=0 then setcolor(11);
if n=1 then setcolor(10);
if n=2 then setcolor(12);
if n=3 then setcolor(13);
if n=4 then setcolor(14);
if n=5 then setcolor(15);
if n=6 then setcolor(16);
end;
end;

begin
if RegisterBGIdriver(@EGADrv) < 0 then
halt(3);

driver := Detect;
mode := 0;
initgraph(driver,mode,'');

n:=0;
for n:=0 to 6 do
begin
readkey;

cleardevice;
setcolor(0);
xa:=getmaxx;ya:=getmaxy;
xc:=getmaxx;yc:=0;
xb:=0;yb:=0;
line(xa,ya,xb,yb);
line(xb,yb,xc,yc);
line(xa,ya,xc,yc);
tria(xa,ya,xb,yb,xc,yc,n);
xa:=0; ya:=0;
xc:=0; yc:=getmaxy;
xb:=getmaxx; yb:=getmaxy;
tria(xa,ya,xb,yb,xc,yc,n);
end;
readkey;
readln;
closegraph;
end.

LSD

Дата 26.12.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538

Еще актуально?

--------------------

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

DDV

Дата 26.12.2007, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 25.10.2006

Репутация: нет
Всего: нет

Цитата(LSD @ 26.12.2007, 11:47)

Еще актуально?

Да, буду очень благодарен если поможешь.

LSD

Дата 27.12.2007, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538

Код


import java.awt.Color;
import java.awt.Dimension;
import java.awt.Graphics;

import javax.swing.JFrame;
import javax.swing.JPanel;

public class Tria extends JPanel
{
  private static final long serialVersionUID = -2625006498681736373L;
  
  public static final int MAX_X = 640;
  public static final int MAX_Y = 480;

  private int xa, ya, xb, yb, xc, yc;

  public Tria()
  {
    setPreferredSize(new Dimension(MAX_X, MAX_Y));
  }

  @Override
  protected void paintComponent(Graphics g)
  {
    xa = getWidth();
    ya = getHeight();
    xc = getWidth();
    yc = 0;
    xb = 0;
    yb = 0;

    for (int n = 0; n < 7; n++)
    {
      g.drawLine(xa, ya, xb, yb);
      g.drawLine(xb, yb, xc, yc);
      g.drawLine(xa, ya, xc, yc);
      tria(g, xa, ya, xb, yb, xc, yc, n);

      xa = 0;
      ya = 0;
      xc = 0;
      yc = getWidth();
      xb = getWidth();
      yb = getHeight();
      tria(g, xa, ya, xb, yb, xc, yc, n);
    }
  }

  private void tria(Graphics g, int xa, int ya, int xb, int yb, int xc, int yc, int n)
  {
    int xq, yq, xp, yp, xr, yr;
    if (n != 0)
    {
      xp = (xb + xc) / 2;
      yp = (yb + yc) / 2;
      xq = (xc + xa) / 2;
      yq = (yc + ya) / 2;
      xr = (xa + xb) / 2;
      yr = (ya + yb) / 2;

      tria(g, xa, ya, xq, yq, xr, yr, n - 1);
      tria(g, xq, yq, xc, yc, xp, yp, n - 1);
      tria(g, xp, yp, xr, yr, xb, yb, n - 1);

      g.drawLine(xq, yq, xp, yp);
      g.drawLine(xp, yp, xr, yr);
      g.drawLine(xq, yq, xr, yr);
    }
    if (n == 0)
      g.setColor(Color.RED);
    if (n == 1)
      g.setColor(Color.BLUE);
    if (n == 2)
      g.setColor(Color.BLACK);
    // ToDo add other colours
  }

  public static void main(String[] args)
  {
    Tria tria = new Tria();

    JFrame frame = new JFrame();
    frame.setDefaultCloseOperation(JFrame.DISPOSE_ON_CLOSE);
    frame.getContentPane().add(tria);
    frame.pack();
    frame.setLocationRelativeTo(null);
    frame.setVisible(true);
  }
}

там где написано ToDo add other colours надо добавить оставшиеся цвета (и возможно подкорректировать текущие).

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »