Turbo Pacsal 7.0 - Szukam Pomocy

[polhub]

Napisalem program:

 

=======================================

program rownanie_kwadratowe;

{Autor: Hubert Kazmierczak}

uses crt;

var a,b,c,x1,x2,delta,d1:real;

procedure wstep;

 

begin

clrscr;

textcolor(yellow); {Kolor czcionki}

gotoxy(10,10); {Przerwa czasowa}

writeln('Program oblicza pierwistki r˘wnania kwadratowego - ax^2+bx+c');

gotoxy(30,18);

writeln('Prosze czekac...' );

textcolor(green);

gotoxy(25,50);

writeln('Autor: Hubert Kazmierczak');

end;

 

begin

clrscr;

wstep;

delay(12000);

clrscr;

textcolor(white);

delay(1000);

writeln; {Linia wolna}

writeln;

writeln;

writeln;

write('Podaj a= '); {Prosi o podanie a}

readln(a);

writeln;

write('Podaj b= ');

readln(b);

writeln;

write('Podaj c= ');

readln©;

writeln;

delta:=(b*b)-(4*(a*c));

writeln('Delta wynosi: ',delta:2:2);

writeln;

delay(3000);

if delta<0 then {Sprawdza delte}

Writeln('Delta jest mniejsza od zera, r˘wnanie nie posiada miejsc zerowych')

else

if delta=0 then

begin

x1:=-b/(2*a);

writeln('delta = 0 to x= ',x1:4:2);

end

else

if delta>0 then begin

d1:=sqrt(delta);

x1:=(-b-d1)/(2*a);

x2:=(-b+d1)/(2*a);

writeln;

writeln('Pierwiastki istnieja !!!');

delay(3000);

gotoxy(25,20);

write('Pierwiastek');

writeln(' x1 wynosi ',x1:2:2);

gotoxy(25,22);

write('Pierwiastek');

writeln(' x2 wynosi ',x2:2:2);

end;

writeln;

gotoxy(20,50);

writeln('Nacisnij ENTER, aby zakonczyl aplikacje');

readln;

end.

=======================================

 

teraz pytania......

1) jak zapisac program w pliku "exe"(bo jest zapisany w "pas"?

2) czy musi byc na koncu "Repeat Until Keypressed"?

po co wogule to jest repeat unti......???

3) prosze o jakies tablice informatyczne z Turbo pascala

4) jak zrobic inaczej przejscie do nizszego wersu, bo ja robie

-----

TESKT

writeln;

writeln;

TEKST

-----

 

5) Co bys zmienil w moim programiku?

6) Jak zrobic POLSKIE litery w TP 7.0 ?

 

Pozdrawiam,

Hubert Kazmierczak

[rojmarek]

ad.1 - TP7 chyba nie ma takiej opcji... musisz albo sciagnac starszego pascala, albo FPC - www.freepascal.org

ad.2 - przeciez tam nie masz zadnego repeat - until ;] a jest to pętla - zrób sobie na przykład cos takiego

repeat   writeln('bla bla bla');until false;

ad.3 - w TP kliknij "help -> index" i wyswieli Ci się lista funkcji, a jak Cie to nie satysfakcjonje, to chyba helion wypuscil tablice informatyczne - pascal, pdp za 10 zł :)

ad.4

" gotoxy(10,10); {Przerwa czasowa}" - troszke nie tak :) gotoxy przesuwa kursor w pozycję podaną w "nawiasach"

ad.5 - sunął bym wszystkie "delay" bo nie wiem po co je tam dałeś... + "delta:=(b*B)-(4*(a*c));" nie utrudniaj mu az tak bardzo zadania... sqr(a)=a*a, i -(4*(a*c*))=-4*a*c z tym ze powinno byc troszke szybsze - teraz nie zauwazysz roznicy, ale są zadania w których ma to kluczowe znaczenie... warto wyrobić sobie takie nawyki wyrzucania wszystkiego co opóźnia...

ad.6 - raczej nie uzywaj polskich znaków, bo na roxznych kompach ustawione są rozne kodowania i prawdopodobnie na połowie innych kompów polskie literki sie nie wyświetlą... a juz nie mowie o roznicy przy wyświetlaniu normalnie a "full-screen"

 

to by bylo na tyle...

teraz mam wakacje, prawie caly czas bede przy kompie, wiec jak bedziesz mial problemy to pisz - 2614441

Edytowane 26 Czerwca 2005 przez rojmarek

[SGJ]

1. Compile>Destination Disk

[rojmarek]

1. Compile>Destination    Disk

1516477[/snapback]

he, faktycznie... a co ja sie tego naszukałem...:]