Міністерство освіти та науки України Вінницький національний технічний університет Інститут інформаційних технологій та комп'ютерної інженерії Кафедра комп'ютерних наук Лабораторна робота № 1 на тему: Основи розробки програмного забезпечення за допомогою мови програмування Pascal. Мета: Вивчення основної структури мови програмування Pascal. Завдання: Визначення типу трикутнику по довжинам трьох сторін. Код програми: Program Treugolniki; uses crt; var a,b,c:integer; begin clrscr; Writeln('Vvedit a,b,c:'); Readln(a,b,c); if (a>b+c) or (c>a+b) then Writeln('Eto ne treugolnik') else if sqr(a)+sqr(b)=sqr(c) then Writeln('Eto pryamougolniy treugolnik') else if (sqr(a)+sqr(b)>sqr(c)) and (sqr(a)+sqr(c)>sqr(b)) and (sqr(c)+sqr(b)>sqr(a)) then Writeln('Eto ostrougolniy treugolnik') else Writeln('Eto tupougolniy treugolnik'); Readln End. Тестування програми: / / / / Висновок: Під час проведення лабораторної роботи, я ознайомилася з основною структурою мови Pascal, створила програму, яка визначає трикутники по довжинах трьох сторін.