Презентация по информатике на тему "Turbo Paskalda mesele we mysallaryň çözülüşi" (9 synp)
Предмет:
Информатика
Категория материала:
Презентации
Автор:
Ниязметов Султанмурат Ниязметович
Материал Презентация по информатике на тему "Turbo Paskalda mesele we mysallaryň çözülüşi" (9 synp) автора Ниязметов Султанмурат Ниязметович временно недоступен по запросу правообладателя.
Если вы являетесь автором этой работы, вы можете восстановить публикацию на Uroki.me и сохранить своё имя в каталоге учителей.
Мы восстанавливаем материалы только с согласия их авторов.
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.