Лабораторна робота №4
Програма: lab4, Лаб. раб. № 4, Вар. 17. Перевірив: Баринов В. В., каф. ВПМ. Метод: обчислення по формулам. Дата написання: 14 лютого 2004 г. A=1 c=2 x=8,81 987 864 801 886Е — 0001. Write (‘Введите а='); read (a); X:=exp (b*ln (abs (cos (a+2,53*c)))). Програма на Turbo Pascal. Writeln (‘x=', x) End. {lab4}. Начало Ввод a, c. A, b, c, x: real; Begin. Висновок х. Блок-схема. Program lab4; Var. Конец. Читати ще >
Лабораторна робота №4 (реферат, курсова, диплом, контрольна)
Цель роботи: вивчення правил записи констант, змінних, висловів, операторів присвоювання, розділу визначення констант, розділу описи змінних і загальної структури програми мовою Turbo-Pascal.
Задание № 17. Скласти програму обчислення функції і побачити характер її залежність від значень вихідних даних: [pic][pic].
Блок-схема.
[pic].
Програма на Turbo Pascal.
{****************************************************************} {Програма: lab4, Лаб. раб. № 4, Вар. 17.
} {Мета: вивчення правил записи констант, змінних, висловів, } {операторів присвоювання, розділу визначення констант, раздела.
} описи змінних і загальної структури програми мовою Turbo-Pascal} {Опис параметрів і переменных:
} {a, cвихідні значення, bпроміжне значення, xзначення функції } {Необхідні підпрограми: нет.
} {Метод: обчислення по формулам.
} {Програміст: Позднышев А. А., грн. 316.
} {Перевірив: Баринов В. В., каф. ВПМ.
} {Дата написання: 14 лютого 2004 г.
} {****************************************************************}.
Program lab4; Var.
A, b, c, x: real; Begin.
Write (‘Введите а='); read (a);
Write (‘Введите з='); read (c); b:=a*a+c*c; x:=exp (b*ln (abs (cos (a+2.53*c))));
Writeln (‘x=', x) End. {lab4}.
Результаты обчислення программы:
a=1 c=2 x=8,81 987 864 801 886Е — 0001.
Контрольный прорахунок: a=1 c=2 b=1*1+2*2=5 x=cos5(1+2,53*2)=cos5(5,06)=0,8 819 878 648.
———————————;
Начало Ввод a, c.
b:=a*a+c*c.
x:=exp (b*ln (abs (cos (a+2,53*c)))).
Висновок х.
Конец.