[Delphi 7] pomoc z podstawami

Perkun OP · 14-10-2013 20:54

Witajcie, w tym semestrze dali nam przedmiot zwany programowanie, więc przydałoby się nieco to ogarnąć.
Wg pani doktor mamy język Pascal w środowisku Delphi 7.
Chciałbym sam napisać "program" do liczenia azymutów, jednakże problemy pojawiają mi się już na początku

I początki mojego kodu:

Kod PHP:

program obliczanie_azymutow;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var x1,x2,y1,y2,czwartak,deltay,deltax : Real;
begin
  Write ('podaj wspolrzedna x1 = ');  Readln(x1);
  Write ('podaj wspolrzedna x2 = ');  Readln(x2);
  Write ('podaj wspolrzedna y1 = ');  Readln(y1);
  Write ('podaj wspolrzedna y2 = ');  Readln(y2);
  deltay:= (y2-y1);
  deltax:= (x2-x1);
  czwartak:= ArcTan (deltay / deltax); Readln;
end.

Czy program liczy mi deltay, deltax oraz czwartak i po prostu tego nie pokazuje?
I kolejne pytanie, czy do tego momentu jest wszystko ok? :)
Raczej nie jest to coś wielkiego, ale to dopiero początki, a materiały, które dostaliśmy nie do końca do mnie docierają ;/

@edit
+ po ponownym włączeniu w konsoli wyskakują mi takie rzeczy:
Załącznik 299439

Kusterek · 14-10-2013 21:06

nie znam kompletnie tego jezyka, ale biorąc pod uwagę inne języki to ewidentnie brakuje Ci wypisania na ekran wartosci zmiennnych. W sensie, ze sa wyliczone dobrze ale nie napisales programowi zeby Ci to na ekran wyrzucił.

http://4programmers.net/Delphi/Write

tutaj jest co i jak z tym wydrukiem na ekran bo domyslam sie ze

Kod:

Write(czwartek);

może nie działać

Perkun OP · 14-10-2013 21:23

Dzięki, wyświetla, ale nie do końca to co powinien.
Zakładam, że chcę obliczyć czwartak punktów 1 i 2
x1= 5404843,37
x2= 5404991,81
y1= 4554089,58
y2= 4555015,89

czwartak dla tego powinien wynieść 80,8958 stopni
a otrzymany wynik to:
Załącznik 299440

Kod mam teraz taki:

Kod PHP:

program obliczanie_azymutow;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var x1,x2,y1,y2,czwartak,deltay,deltax : Real;
begin
  Write ('podaj wspolrzedna x1 = ');  Readln(x1);
  Write ('podaj wspolrzedna x2 = ');  Readln(x2);
  Write ('podaj wspolrzedna y1 = ');  Readln(y1);
  Write ('podaj wspolrzedna y2 = ');  Readln(y2);
  deltay:= (y2-y1);
  deltax:= (x2-x1);
  czwartak:= ArcTan (deltay / deltax); Read;
  Write (czwartak); Readln;
end.

@edit
W sumie ten wynik jest w radianach, więc raczej nie będzie problemu abym to sobie zamienił na stponie/grady.
Narazie to tyle, leci reput, a jutro się jeszcze raczej odezwę :)

+ czy da się jakoś ustawić, aby w cyfrach można było używać przecinka ",", który znajduje się na klawiaturze numerycznej?
Jak na razie to po użyciu go i wciśnięciu "entera" wyskakuje mi błąd i cały program się buguje.

Absherr · 14-10-2013 23:11

Jeżeli chcesz podawać wejście do programu z przecinkami to przyjmuj to jako String, ale później musisz i tak przerzutować to na Real, żeby wykonać obliczenia. Najłatwiej to zrobić StringReplace i zamienić przecinki na kropki, a później StrToFloat. Generalnie za dużo zabawy moim zdaniem, trzeba przywyknąć, że korzysta się z notacji kropkowej.

Perkun OP · 15-10-2013 10:43

Kod PHP:

if ((czwartak > 0) or (czwartak < 90)) then
  begin
    azymut:= czwartak;
    Writeln (azymut); Readln;
end.

Czy ktoś orientuje się, co powinienem zrobić, aby w 1 wierszu nie wyskakiwał mi błąd?

@edit
Zaczynam zauważać, że tutaj jak w excelu nawiasy mają dużą rolę, jednak teraz wyskakuje mi błąd w wierszu z end.

Kusterek · 15-10-2013 10:53

z tego co widze chyba powinno byc tak:

Kod:

if (czwartak > 0) or (czwartak < 90) then
  begin
    azymut:= czwartak;
    Writeln (azymut); Readln;  
  end;

Perkun OP · 15-10-2013 11:07

Dzięki :)
Już do tego doszedłem, teraz jedyne co mnie nurtuje to otrzymywane wyniki, a dokładniej:
Załącznik 299448

Kod na chwile obecną:

Kod PHP:

  if ((deltax > 0) and (deltay > 0)) then                                        // 1 cwiartka
  begin
    azymut:= czwartak;
    Writeln (azymut); Readln;
  end;
  if ((deltax < 0) and (deltay > 0)) then                                        // 2 cwiartka
  begin
    azymut:= 180 + czwartak;
    Writeln (azymut); Readln;
  end;
  if ((deltax < 0) and (deltay < 0)) then                                        // 3 cwiartka
  begin
    azymut:= 180 + czwartak;
    Writeln (azymut); Readln;
  end;
  if ((deltax > 0) and (deltay < 0)) then                                        // 4 cwiartka
  begin
    azymut:= 360 + czwartak;
    Writeln (azymut); Readln;
  end;
end.

Wynik 1 zgadza się (jeśli dodamy do niego pełny okrąg - 360 stopni, to wyjdzie dobry azymut dla dobrej ćwiartki), ale kod tego nie dodaje :(
Czemu on pokazuje to w taki dziwny sposób? chciałbym, aby zapisywał to w formie xx.xxxx
+ czemu wyświetla inne opcje (tak mi się wydaje, że to jest to poniżej) skoro pasuje tylko do 1 wersji?

Bazan · 15-10-2013 11:55

O ile dobrze pamietam, wystarczy wyswietlic zmienna w formie zmienna:0:2 albo zmienna:4:0, pierwsza liczba - ilosc cyfr przed kropka, 2 liczba - ilosc cyfr po kropce.

Perkun OP · 15-10-2013 13:05

@up dzięki, rep :)

Teraz staram się włożyć w to wyjątki:

Kod PHP:

  if ((deltax > 0) and (deltay = 0)) then                                        // wyjątek 0 grad
  begin
    azymut:= 0;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
  if ((deltax = 0) and (deltay > 0)) then                                        // wyjątek 100 grad
  begin
    azymut:= 100;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
  if ((deltax < 0) and (deltay = 0)) then                                        // wyjątek 200 grad
  begin
    azymut:= 200;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
  if ((deltax = 0) and (deltay < 0)) then                                        // wyjątek 300 grad
  begin
    azymut:= 300;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
end.

Problem w tym, że jak wpiszę współrzędne dla których azymut będzie wynosił 0/100/200/300 grad, to aplikacja mi się od razu zamyka, nie wyświetla żadnej wartości :(
Ktoś wie, czym to może być spowodowane?

@edit
Już myślałem, że sobie z tym problemem poradziłem:

Kod PHP:

  if ((deltax > 0) and (y1 = y2)) then                                           // wyjątek 0 grad
  begin
    azymut:= 0;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
  if ((x1 = x2) and (deltay > 0)) then                                           // wyjątek 100 grad
  begin
    azymut:= 100;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
  if ((deltax < 0) and (y1 = y2)) then                                           // wyjątek 200 grad
  begin
    azymut:= 200;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
  if ((x1 = x2) and (deltay < 0)) then                                           // wyjątek 300 grad
  begin
    azymut:= 300;
    Writeln ('azymut = ',azymut:1:4); Readln;
  end;
end.

Jednak dla 100 i 300 grad dalej mi nagle zamyka okno ;/
Czy aplikacja uwzględnia tutaj dzielenie przez 0 i dlatego się zamyka? Jak to rozwiązać?

Bazan · 15-10-2013 16:30

readln oraz writeln daj poza ify.

Nie potrzebnie wpisujesz to samo 4x.

Zrob

Kod:

if ((deltax > 0) and (y1 = y2)) then                                           // wyjątek 0 grad
  begin
    azymut:= 0;
  end;
  if ((x1 = x2) and (deltay > 0)) then                                           // wyjątek 100 grad
  begin
    azymut:= 100;
  end;
  if ((deltax < 0) and (y1 = y2)) then                                           // wyjątek 200 grad
  begin
    azymut:= 200;
  end;
  if ((x1 = x2) and (deltay < 0)) then                                           // wyjątek 300 grad
  begin
    azymut:= 300;
  end;
    Writeln ('azymut = ',azymut:1:4); 
    Readln;
end.

druga sprawa jest taka, ze teraz jest tylko 1 polecenie po if. Wiec mozna usunac begin i end i calosc wyjdzie:

Kod:

  if ((deltax > 0) and (y1 = y2)) then    azymut:= 0;
  if ((x1 = x2) and (deltay > 0)) then    azymut:= 100;
  if ((deltax < 0) and (y1 = y2)) then    azymut:= 200;
  if ((x1 = x2) and (deltay < 0)) then    azymut:= 300;

    Writeln ('azymut = ',azymut:1:4); 
    Readln; // jesli readln nie dziala to zorb readln(), a jesli to nie dziala to readkey()
 
end.

@edit

Dodatkowo zmien ify na else if.

If ...
else if...
else if...
else ...

Tak jesli 1 if bedzie spelniony to nie sprawdza juz kolejnych, a w twoim przypadku sprawdza wszystko.

Temat: [Delphi 7] pomoc z podstawami

Narzędzia tematu

Oceń ten temat

[Delphi 7] pomoc z podstawami

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

[Delphi][Poszukiwany/Poszukiwana] C++ -> Delphi , struktura containerów w tibii

Delphi - listbox, wybieranie elementu

[Delphi 7] Potrzebna pomoc w pobieraniu wartości..

C++ Delphi Java PHP

Program Baza danych Delphi - pomoc

Zakładki

Zakładki

Zasady postowania