Parašė A-R-T-U-R-A-S· 2009 Vas. 23 08:02:16
#1
duoti 3 plokstumos taskai a(x1,y1), b (x2,y2) ir c(x3,y3),kurie sudaro trikampi.Nustatyti ar trikampis lygiasonis?
parasykite per 50 min paskaliu ir papastinkit
Parašė A-R-T-U-R-A-S· 2009 Vas. 23 09:02:16
#2
program trikampis; {programos pavadinimas}
var x1, y1, x2, y2, x3, y3: integer; {cia visos koordinates}
begin {programos pradzia}
writeln('Iveskite A koordinate'); {praso ivesti A koordinate}
write('x1='); {reikia ivesti x1 reiksme}
readln(x1); {ivedimo operacija paraso x1}
write('y1='); {reikia ivesti y1 koordinate}
readln(y1); {paraso y1 ivedimo operacija}
writeln('Iveskite B koordinate'); {praso ivesti B koordinate}
write('x2='); {reikia ivesti reiksme x2}
readln(x2); {paraso ivedimo operacija x2}
write('y2='); {reikia ivesti y2 kordinate}
readln(y2); {paraso y2 ivedimo operacija}
writeln('Iveskite C koordinate'); {praso ivesti C koordinates}
write('x3='); {reikia ivesti x3 reiksme}
readln(x3); {ivedimo operacija paraso x3}
write('y3='); {reikia ivesti y3 koordinate}
readln(y3); {ivedimo operacija x3}
if {turi buti kazkoks kodas su if}
end. {programos pabaiga}
daugiau nzn