Parašė martynasjet· 2012 Geg. 16 19:05:09
#40
Sveiki Gal cia biski neitema. Bet noreciau, kad ivertintumet mano programa. Kuria sukuriau per pora dienu naudojantis graph bibliotekos priemonemis. Ir jei pakeisite laika 22-4 tada rodis zvaigzdes. Pabandykit. Atsisiusti galite is cia.
http://fliiby.com/file/1215484/j...aozf6.html
Ai sitoj programoje yra vienas bugas, kurio dar nelabai moku istaisyti. Kadangi norejau padaryti kad nerodytu kompiliatoriaus taigi noredami isjunkti programa spauskite ESC.
P.S greitai sukursiu testa su pascaliu naudojant grafikos priemones ir pasidalinsiu programa su jumis.
O cia pasidalinu kodu. Programa nustato ar trikampis yra status ir ar susidaro trikampis.
program Trikampis;
uses crt;
var a,b,c:real;
/////////////////Procedure trikampio plotas ir perimetras///////////////////////
procedure Perim_plot;
var
p,s:real;
begin
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
ClrScr;
TextColor(green);
WriteLn('Perimetras:',p:2:2);
WriteLn('Plotas:',s:2:2);
end;
/////////////////////////////////////Funkcija status////////////////////////////
function status:real;
begin
TextColor(lightred);
if sqr(a)+sqr(b)=sqr(c) then
Write('Status')
else
Write('Nestatus');
end;(*status*)
/////////////////////////////////////Funkcija trikampis////////////////////////////
function Trikampis_funkcija:real;
begin
TextColor(yellow);
if a+b>c then
else
ClrScr;
if a+b>c then
WriteLn('Trikampis')
else
ClrScr;
if a+b>c then
else
ClrScr;
if a+b>c then
else
WriteLn('Nera trikampis');
end;(*Trikampis_funkcija*)
//////////////////////////////Programos isjungimo procedura/////////////////////
procedure isjungimas;
begin
TextColor(red);
WriteLn('');
WriteLn('Paspauskite enter ir programa issijungs!');
TextColor(white);
Readln;
Clrscr;
TextColor(brown);
window(12,11,40,50);
WriteLn('Viso gero ;)');
delay(400);
end;
///////////////Programa(jeigu paspaudi nuli.Programa issijunks)/////////////////
procedure Jeigu_Nulis;
begin
Readln(a);
If (a<>0) then
repeat
Readln(b,c);
Perim_Plot;
status;
Trikampis_funkcija;
until a<>0
else
//halt(0); (*isjungia programa*)
ClrScr;
isjungimas;
end;(*Jeigu nulis*)
////////////////////////////Pagrindine programa/////////////////////////////////
begin
TextColor(Green);
WriteLn('Iveskite tris krastines!');
TextColor(Red);
WriteLn('Jeigu ivesite nuli(0) programa isijunks paspaudus enter!');
TextColor(white);
Jeigu_Nulis;
end.
Cia jau seniai turiu ja taigi ji dar nera "grafiskai" normaliai padaryta, bet manau ne tas svarbiausia yra.
P.S jeigu reikia pagalbos parasykite man , jeigu mokesiu ir bus laiko padesiu.