Informatika 9-njy synp Turbo Paskalda mesele we mysallaryň çözülüşi. 1. Üçburçlugyň taraplarynyň a,b,c uzynlyklary berlen. Geronyň formulasyny ulanyp üçburçlugyň meýdanyny tapmaly. Üçburçlugyň meýdanyny hasaplamak. var A:REAL; B: REAL; S:REAL; BEGIN WRITELN(' BAHASYNY GIRIZ A,B:'); READ(A,B); S:=(A*B)/2; WRITELN; WRITE('UCHBURCHLUK MEIDANY=',S:7:2) END. 2. Üçburçlugyň meýdanyny Geronyň formulasy boýunça hasaplamak. var a,b,c,p,s: Real; begin write ('uchburch taraplaryny giriz'); read(a,b,c); p:=(a+b+c)/2; s:=SQRT(p*(p-a)*(p-b)*(p-c)); write('Uchburch meidany=',s:8:2); end. 3. Trapesiýanyň meýdanyny hasaplamak. var BS:REAL; AD: REAL; H:REAL; S:REAL; BEGIN WRITELN('BAHASYNY GIRIZ BS,AD,H:'); READ(BS,AD,H); S:=(BS+AD)*H/2; WRITELN; WRITE('TRAPESIA MEIDANY=',S:7:2) END.