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