Pomoc przy programie turbo pascal

[Oskins93]

Jak zaokrąglić liczbę do dwóch miejsc po przecinku, np. 7.00342340234234E+002 nie używając liczba:0:2 ?

[Mikou@j]

Co zrobiłeś do tej pory ? Wklej swój program w tagi CODE.

[Oskins93]

Kod: Zaznacz wszystko

program okregi;
uses crt,graph,dos;
const rm=50; rd=70;     //staˆe - promienie okr©g˘w
var
  sterownik,tryb : integer;
  x,y,xs,ys : integer;
  x1,y1,x2,y2 : integer;
  d : real;
  krok : byte;
  a,wynik,krok2 : string;
  znak : char;

//--------------------------Procedury------------------------------
//---------------Procedura rysujĄca osie i okr©gi------------------
Procedure osie;
begin
  //rysuje okr©gi
  setcolor(yellow);
  circle(x1,y1,rd);
  circle(x2,y2,rm);

  setlinestyle(0,0,3);
  settextstyle(7,2,3);
  //rysuje lini© X
  line(30,ys,x-30,ys);
  //rysuje lini© Y
  line(xs,y-30,xs,30);
  //rysuje groty strzaˆki X
  line(x-30,ys,x-45,ys-10);
  line(x-30,ys,x-45,ys+10);
  //rysuje groty strzaˆki Y
  line(xs,30,xs+10,45);
  line(xs,30,xs-10,45);
  //nazwy osi
  outtextxy(x-20,ys+20,'X');
  outtextxy(xs+25,10,'Y');
end;
//-----------------------------------------------------------------
//--------Procedura rysujĄca kreski i liczby na osiach-------------
Procedure kreski(ile,ilepion : word);
var i,j : byte;
begin
  setlinestyle(0,0,1);
  settextstyle(5,2,1);
  setcolor(yellow);
  for i:=1 to ile do
    begin
       if (xs+i*30) < (x-30) then //zabezpieczenie przed rysowaniem wi©kszej ilo˜ci kresek niľ x rozdzielczo˜ci ekranu
         begin
           str(i,a);
           line(xs+i*30,ys-5,xs+i*30,ys+5);
           outtextxy((xs+i*30)-5,ys+5,a);
           line(xs-i*30,ys-5,xs-i*30,ys+5);
           outtextxy((xs-i*30)-11,ys+5,'-');
           outtextxy((xs-i*30)-5,ys+5,a);
         end;
     end;
  for j:=1 to ilepion do
    begin
      if (ys+j*30) < (y-30) then
        begin
          str(j,a);  //zamienia liczb© na string
          line(xs-5,ys-j*30,xs+5,ys-j*30);  //rysuje kreski
          outtextxy(xs+12,(ys-j*30)-10,a);
          line(xs-5,ys+j*30,xs+5,ys+j*30);
          outtextxy(xs+4,(ys+j*30)-10,'-');
          outtextxy(xs+12,(ys+j*30)-10,a);  //wy˜wietla cyferki obok kresek
        end;
    end;
end;
//--------------------------------------------------------------
//--------Procedura oblicza odlegˆo˜† mi©dzy ˜rodkami okr©g˘w--------------
Procedure odl_okregow(var d : real);
begin
  d:=sqrt(sqr(x2-x1) + sqr(y2-y1));
  str(d,wynik);
  settextstyle(1,2,1);
  setcolor(red);
  outtextxy(1,y-50,'  Odleglosc miedzy srodkami okregow :');
  outtextxy(340,y-50,wynik); //wy˜wietlenie odlegˆo˜ci mi©dzy ˜rodkami okr©g˘w
end;
//--------------------------------------------------------------------------
//-----------Procedura sprawdzajĄca czy okr©gi sĄ styczne zewn©trznie...itd
Procedure spr_okr;
begin
  setcolor(red);
  if d > (rm+rd) then
    outtextxy(x-300,y-50,'Okregi rozlaczne zewnetrznie.')
  else
  if d = (rm+rd) then
    outtextxy(x-300,y-50,'Okregi styczne zewnetrznie.')
  else
  if (rd-rm < d) and (d < rm+rd) then
    outtextxy(x-300,y-50,'Okregi przecinajace sie.')
  else
  if d = (rd-rm)  then
    outtextxy(x-300,y-50,'Okregi styczne wewnetrznie.')
  else
  if (x1=x2) and (y1=y2) then
    outtextxy(x-300,y-50,'Okregi wspolsrodkowe.')
  else
  if d < (rd-rm) then
    outtextxy(x-300,y-50,'Okregi rozlaczne wewntrznie.');
end;
//------------------------------------------------------------------------
//---------Procedura, kt˘ra pozwala porusza† okr©giem-----------
Procedure ruchomxy;
begin
  znak:=readkey;
  if znak = #0 then
    znak:=readkey;

  setcolor(blue);//zmazanie linii pomocniczej
  line(x2,y2,x1,y1);

  //zamazanie kroku
  outtextxy(300,1,krok2);

  //zmazanie odlegˆo˜ci mi©dzy ˜rodkami okr©g˘w
  outtextxy(340,y-50,wynik);

  outtextxy(x-300,y-50,'ŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰ');
  outtextxy(x-300,y-40,'ŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰ');

  case znak of
    #72 : begin     //strzaˆka do g˘ry
            y2:=y2-krok;
            setcolor(yellow);
            circle(x2,y2,rm);
            setcolor(blue);
            circle(x2,y2+krok,rm);
          end;

    #75 : begin         //strzaˆka w lewo
            x2:=x2-krok;
            setcolor(yellow);
            circle(x2,y2,rm);
            setcolor(blue);
            circle(x2+krok,y2,rm);
          end;

    #77 : begin        //strzaˆka w prawo
            x2:=x2+krok;
            setcolor(yellow);
            circle(x2,y2,rm);
            setcolor(blue);
            circle(x2-krok,y2,rm);
          end;

    #80 : begin        //strzaˆka w d˘ˆ
            y2:=y2+krok;
            setcolor(yellow);
            circle(x2,y2,rm);
            setcolor(blue);
            circle(x2,y2-krok,rm);
          end;
    #43 : krok:=krok+1;  //zwi©kszenie kroku przesuwania okr©gu
    #45 : krok:=krok-1;  //zmniejszenie kroku przesuwania okr©gu
    #27 : exit;
  else
    spr_okr;
  end;
  setcolor(lightblue);    //linia pomocnicza mi©dzy ˜rodkami okr©g˘w
  setlinestyle(3,0,1);
  line(x2,y2,x1,y1);
  if krok < 1 then    //zabezpieczenie przed zmniejszeniem kroku mniejszego niľ 1
    krok:=1;
  setcolor(red);
  str(krok,krok2);         //wy˜wietla liczb© krokuouttextxy(300,1,krok2);
  outtextxy(300,1,krok2);
end;
//----------------------------------------------------
//-----------Program gˆ˘wny---------------------------
begin
  clrscr;
  textcolor(red);
  writeln('Naci˜nij ENTER aby rozpoczĄ† grafike..');
  readln;

  sterownik:=detect;//wykrywamy sterownik karty graficznej
  initgraph(sterownik,tryb,''); //inicjacja trybu graficznego

  setbkcolor(blue); //kolor tˆa
  cleardevice;     //czyszczenie grafiki na ekranie

  krok:=1;
  x2:=900;
  y2:=200;
  x1:=200;
  y1:=200;

Repeat
  x:=getmaxx;
  y:=getmaxy;
  xs:=x div 2;
  ys:=y div 2;

  //menu
  settextstyle(1,2,1);
  setcolor(red);
  outtextxy(10,1,'  Zmniejsz,zwieksz krok(-,+) : ');
  outtextxy(x-200,1,'ESC- Exit.');

  osie;
  kreski(25,20);
  odl_okregow(d);
  spr_okr;
  ruchomxy;

Until znak=#27;

  cleardevice;
  closegraph;

  clrscr;
  textcolor(white);
  writeln('Tryb graficzny zamkni©ty!');
  writeln('max_x=' ,x,'    max_y=' ,y);
  writeln;
  textcolor(red);
  writeln('Naci˜nij ENTER, aby zakoäczy†...');
  readln;
end.


[floyd5]

x:=x div 0,01;
x:=x / 100;

Trochę na około, ale powinno działać.

[Oskins93]

Niestety ale coś nie działa:/ Wyskakuje błąd na 0.01 Error: Incompatible types: got "Extended" expected"
A liczbę x mam typu real;

Dodano Dzisiaj, 10:51:
Dodam, że chce tą liczbę d:=sqrt(sqr(x2-x1) + sqr(y2-y1)); zaokrąglić do dwóch miejsc po przecinku...oczywiście nie używając d:0:2 bo na tym wyskakuje mi błąd i nie mogę tym sposobem nic zrobić.... Więc szukam innego

[floyd5]

X podałem przykładowo zamiast niego wstaw tę liczbę którą chcesz zaokrąglić Wyrzuciło Ci ten błąd bo operator / nie zwraca wartości typu integer, a do takiej próbowałeś zapisać wynik. BTW nie pamiętam czy w pascalu nie używało się kropki do ułamków, a nie przecinka, jak jest źle to zmień.

[Oskins93]

Na innym forum poradzili mi tak: Str(d:0:2,wynik); ;D I działa.... niby proste ale nigdy bym na to nie wpadł;P

Dodano Dzisiaj, 14:13:
A co mogę zmienić....w kodzie? Chodzi mi dokładnie o to,że gdy okręgi są na tej samej wysokości i są, np. styczne zewnętrznie to program działa prawidłowo i pokazuje, że są styczne zewnętrznie, lecz gdy nie są na tej samej wysokości, a są styczne to komunikat się nie pokazuje...wyświetla się od razu, że się przecinają... Co jest nie tak...??

Dodano Dzisiaj, 14:15:

Kod: Zaznacz wszystko

program okregi;
uses crt,graph,dos;
const rm=50; rd=70;     //staˆe - promienie okr©g˘w
var
  sterownik,tryb : integer;
  x,y,xs,ys : integer;
  x1,y1,x2,y2 : integer;
  d : real;
  krok : byte;
  a,wynik,krok2 : string;
  znak : char;

//--------------------------Procedury------------------------------
//---------------Procedura rysujĄca osie i okr©gi------------------
Procedure osie;
begin
  //rysuje okr©gi
  setcolor(yellow);
  circle(x1,y1,rd);
  circle(x2,y2,rm);

  setlinestyle(0,0,3);
  settextstyle(7,2,3);
  //rysuje lini© X
  line(30,ys,x-30,ys);
  //rysuje lini© Y
  line(xs,y-30,xs,30);
  //rysuje groty strzaˆki X
  line(x-30,ys,x-45,ys-10);
  line(x-30,ys,x-45,ys+10);
  //rysuje groty strzaˆki Y
  line(xs,30,xs+10,45);
  line(xs,30,xs-10,45);
  //nazwy osi
  outtextxy(x-20,ys+20,'X');
  outtextxy(xs+25,10,'Y');
end;
//-----------------------------------------------------------------
//--------Procedura rysujĄca kreski i liczby na osiach-------------
Procedure kreski(ile,ilepion : word);
var i,j : byte;
begin
  setlinestyle(0,0,1);
  settextstyle(5,2,1);
  setcolor(yellow);
  for i:=1 to ile do
    begin
       if (xs+i*30) < (x-30) then //zabezpieczenie przed rysowaniem wi©kszej ilo˜ci kresek niľ x rozdzielczo˜ci ekranu
         begin
           str(i,a);
           line(xs+i*30,ys-5,xs+i*30,ys+5);
           outtextxy((xs+i*30)-5,ys+5,a);
           line(xs-i*30,ys-5,xs-i*30,ys+5);
           outtextxy((xs-i*30)-11,ys+5,'-');
           outtextxy((xs-i*30)-5,ys+5,a);
         end;
     end;
  for j:=1 to ilepion do
    begin
      if (ys+j*30) < (y-30) then
        begin
          str(j,a);  //zamienia liczb© na string
          line(xs-5,ys-j*30,xs+5,ys-j*30);  //rysuje kreski
          outtextxy(xs+12,(ys-j*30)-10,a);
          line(xs-5,ys+j*30,xs+5,ys+j*30);
          outtextxy(xs+4,(ys+j*30)-10,'-');
          outtextxy(xs+12,(ys+j*30)-10,a);  //wy˜wietla cyferki obok kresek
        end;
    end;
end;
//--------------------------------------------------------------
//--------Procedura oblicza odlegˆo˜† mi©dzy ˜rodkami okr©g˘w--------------
Procedure odl_okregow(var d : real);
begin
  d:=sqrt(sqr(x2-x1) + sqr(y2-y1));
  str(d:0:4,wynik);
  settextstyle(1,2,1);
  setcolor(red);
  outtextxy(1,y-50,'  Odleglosc miedzy srodkami okregow :');
  outtextxy(350,y-50,wynik); //wy˜wietlenie odlegˆo˜ci mi©dzy ˜rodkami okr©g˘w
end;
//--------------------------------------------------------------------------
//-----------Procedura sprawdzajĄca czy okr©gi sĄ styczne zewn©trznie...itd
Procedure spr_okr;
begin
  setcolor(red);
  if d > (rm+rd) then
    outtextxy(x-300,y-50,'Okregi rozlaczne zewnetrznie.')
  else
  if d = (rm+rd) then
    outtextxy(x-300,y-50,'Okregi styczne zewnetrznie.')
  else
  if (rd-rm < d) and (d < rm+rd) then
    outtextxy(x-300,y-50,'Okregi przecinajace sie.')
  else
  if d = (rd-rm)  then
    outtextxy(x-300,y-50,'Okregi styczne wewnetrznie.')
  else
  if (x1=x2) and (y1=y2) then
    outtextxy(x-300,y-50,'Okregi wspolsrodkowe.')
  else
  if d < (rd-rm) then
    outtextxy(x-300,y-50,'Okregi rozlaczne wewntrznie.');
end;
//------------------------------------------------------------------------
//---------Procedura, kt˘ra pozwala porusza† okr©giem-----------
Procedure ruchomxy;
begin
  znak:=readkey;
  if znak = #0 then
    znak:=readkey;

  setcolor(blue);
  //zmazanie linii pomocniczej
  line(x2,y2,x1,y1);

  //zamazanie kroku
  outtextxy(300,1,krok2);

  //zmazanie odlegˆo˜ci mi©dzy ˜rodkami okr©g˘w
  outtextxy(350,y-50,wynik);

  outtextxy(x-300,y-50,'ŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰ');
  outtextxy(x-300,y-40,'ŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰŰ');

  circle(x2,y2,rm); //zamazanie okr©gu

  case znak of
    #72 : begin     //strzaˆka do g˘ry
            if y2 <= 1 then
              y2:=1;
            y2:=y2-krok;
            setcolor(yellow);
            circle(x2,y2,rm);
          end;

    #75 : begin         //strzaˆka w lewo
            if x2 <= 1 then
              x2:=1;
            x2:=x2-krok;
            setcolor(yellow);
            circle(x2,y2,rm);
          end;

    #77 : begin        //strzaˆka w prawo
            if x2 >= x then
              x2:=x;
            x2:=x2+krok;
            setcolor(yellow);
            circle(x2,y2,rm);
          end;

    #80 : begin        //strzaˆka w d˘ˆ
            if y2 >= y then
              y2:=y;
            y2:=y2+krok;
            setcolor(yellow);
            circle(x2,y2,rm);
          end;
    #43 : krok:=krok+1;  //zwi©kszenie kroku przesuwania okr©gu
    #45 : krok:=krok-1;  //zmniejszenie kroku przesuwania okr©gu
    #27 : exit;
  else
    spr_okr;
  end;
  setcolor(lightblue);    //linia pomocnicza mi©dzy ˜rodkami okr©g˘w
  setlinestyle(3,0,1);
  line(x2,y2,x1,y1);
  if krok < 1 then    //zabezpieczenie przed zmniejszeniem kroku mniejszego niľ 1
    krok:=1
  else
  if krok > 20 then
    krok:=20;
  setcolor(red);
  str(krok,krok2);         //wy˜wietla liczb© krokuouttextxy(300,1,krok2);
  outtextxy(300,1,krok2);
end;
//----------------------------------------------------
//-----------Program gˆ˘wny---------------------------
begin
  clrscr;
  textcolor(red);
  writeln('Naci˜nij ENTER aby rozpoczĄ† grafike..');
  readln;

  sterownik:=detect;//wykrywamy sterownik karty graficznej
  initgraph(sterownik,tryb,''); //inicjacja trybu graficznego

  setbkcolor(blue); //kolor tˆa
  cleardevice;     //czyszczenie grafiki na ekranie

  krok:=1;
  x2:=900;
  y2:=200;
  x1:=200;
  y1:=200;

Repeat
  x:=getmaxx;
  y:=getmaxy;
  xs:=x div 2;
  ys:=y div 2;

  //menu
  settextstyle(1,2,1);
  setcolor(red);
  outtextxy(10,1,'  Zmniejsz,zwieksz krok(-,+) : ');
  outtextxy(x-200,1,'ESC- Exit.');

  osie;
  kreski(25,20);
  odl_okregow(d);
  spr_okr;
  ruchomxy;

Until znak=#27;

  cleardevice;
  closegraph;

  clrscr;
  textcolor(white);
  writeln('Tryb graficzny zamkni©ty!');
  writeln('max_x=' ,x,'    max_y=' ,y);
  writeln;
  textcolor(red);
  writeln('Naci˜nij ENTER, aby zakoäczy†...');
  readln;
end.