Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Організація розгалужених процесів
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 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 Bondur Vladislav');
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.
Результати співпадають, тому моя програма працює як треба.
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора