Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 2 з дисципліни “Основи програмування та алгоритмічні мови” Тема: Організація розгалужених процесів Київ 2010 Постановка задачі Задане дійсне число а. Обчислити y = f ( а), якщо
Текст програми з коментарями program vichislenie_virageniya_f(a); uses crt; var a:real; {vvodimaya peremennaya} f:real; {iskomaya funkciya f(a)} BEGIN repeat clrscr; writeln('Result of laboratory work 2'); writeln('variant 4'); writeln('Executed student of group IP-02 [ім’я автора приховано]'); write('vvedite chislo "a" ot kotorogo zavisit rezultat iskomoy funkcii: '); readln(a); if (a>=-2) and (a<2) then f:=sqr(a)+9 else if a>=2 then f:=sqr(a)+4*a+5 else f:=7; writeln('f=',f:0:5); writeln('nagmite Esc dlya vixoda iz programmi!'); until ord(readkey)=27; END. Блок-схема алгоритму
Результат виконання програми у вигляді відеокопії екрана / Висновки Отже, перевіримо, чи правильно працює моя програма: Введемо число а=3. a>2, тоді f(a) підрахуємо за формулою f:=sqr(a)+4*a+5. f=3*3+4*3+5=9+12+5=26. Результати співпадають, тому моя програма працює як треба.