Паскаль тілінде программа құру

Question

Ұшбұрыштың екі ќабырғасының ұзындығы және олардыѕ арасындағы бұрышының шамасы белгілі, ұшбұрыш ауданын есептейтін Pascal тілінде программа ќұрыңыз. (S=(a*b*sinc)/2)

Answer 1

PROGRAM Аудан VAR S:REAL{үшбұрыштың ауданы} a,b:REAL{үшбұрыштың қабырғалары} siną:REAL BEGIN WRITELN('а,в қабырғаларының мәнісін кірітің:') WRITELN('siną бұрыштың мәнісін кірітің:') READ(а,в) REАD(siną) S:=a*a*siną/2 WRITELN; WRITELN('үшбұрыштың ауданы, S=', S:8:6:1\2) END.