Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 2
з дисципліни
“Основи програмування та алгоритмічні мови”
Для заданого а знайти корінь рівняння f ( x) = 0, де
На початку програми, ми повинні задати параметр а, і в залежності від його значення програма повинна знайти х - корінь рівняння f ( x) = 0. Даний алгоритм реалізується за допомогою розгалуженого ціклу.
Текст програми
Program lab_2;
uses crt; {Plug crt}
var
povtor:char; {peremennaya dly zapyska thukla povtora(na4atb c na4ala)}
a, {a-zminna a}
x:real; {x-koren rivnanna}
begin
povtor:='y'; {Assign to the variable povtor value of 'y' so that the next run tsykl}
While povtor='y' do
begin
write('Enter a, a=');
readln(a); {Sets the value of variable a}
if a>0
then
begin
x:=(-1)*abs(a-1)/(2*a);{Find the value of x if a<0 and find the module a-1}
end
else
x:=ln(sqrt(1+sqr(a))); {Find the value of x for all other values of a}
writeln('x=',x:6:2); {Output the value of x}
writeln('Type "y" to start over or "n" to exit');
Readln(povtor);
clrscr;
end;
end.
В даному прикладі виконання програми ми ввели значення а, а=1. Отже програма повинна була знайти корені рівняння , при f ( x) = 0. Отже: . І дійсно якщо підставити 1 в дане рівняння то отримуємо f ( x) = 0.35.
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора