|
Решения задач на Паскале!Срочно нужно!
|
|
Найти наибольшее значение функии у=ах^3+bх+с при заданных параметрах a,b,c, если х изменяется от х_1 до х_2 с шагом h. (использовать цикл FOR)
помогите пожалуйсто!!!!!
|
|
|
|
А зачем цикл?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
мне припомощи этого цикла нужно составить программу
|
|
|
|
Да что ты?
Просто судя из логики, икс будет принимать максимальное значение в точке х_2, следовательно, выражение у=ах^3+bх+с будет принимать максимальное значение так-же в этой точке, следовательно зачем цикл? Считать а, б, ц , считать точки изменения икса, присвоить максимальное и вывести)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Прошу помочь с решением задач.
1. Задание 10.1. Экспериментальным путем определить $$X_{0} , X_{\infty}$$ и $$e_{m}$$ для типа данных real. Разработать программу на языке Паскаль, позволяющую вычислять значения функции $$\cos n(x,n) = \sum_{i=0}^{n-1}{(-1)^i*x^{2i}/(2*i)!}$$
2. Задание 10.7. Разработать программу на языке Паскаль, позволяющую решать уравнения $$L_{n}(x)=0$$ , где $$L_{n}(x)$$ - полином Лагерра $$[L_{0}(x)=1, L_{1}(x)=1-x, (n+1)L_{n+1}(x)=(2*n+1-x)L_{n}(x)-nL_{n-1}(x)]$$. Исследовать зависимости временных затрат поиска корня методом хорд при различных n>0 в зависимости от допустимой абсолютной погрешности нахождения корня (при фиксированном интервале локализации корня).
3. Задание 10.8. Разработать программу на языке Паскаль, для решения системы линейных алгебраических уравнений в области вещественных чисел методом Жордана-Гаусса. Для решаемой системы найти оценку числа обусловленности $$cond_{\infty} (A)$$
Решить следующие системы уравнений Ax=b:
1) $$A=H_{5}=[h_{ij}], h_{ij}=(1/i+j-1), 1\leq i, j\leq 5, b_{i}=1/i^5$$
$$x_{1}+x_{2}+2x_{3}+3x_{4}=1$$
$$3x_{1}-x_{2}-x_{3}-2x_{4}=-4$$
2) $$2x_{1}+3x_{2}-x_{3}-2x_{4}=-6$$
$$x_{1}+2x_{2}+3x_{3}-x_{4}=-4$$
4. Задание 10.9. Разработать программу на языке Паскаль для построения аппроксимирующей функции методом наименьших квадратов в классе алгебраических многочленов степени m, по заданной таблицей функции $$f$$ на некотором интервале значений аргумента.
Исследовать зависимость среднеквадратичного уклонения от степени m многочлена. Исходная функция $$y=f(x)$$ на интервале [0; 0.40] описывается следующей таблицей.
X 0 5 10 15 20 25 30 35 40
Y 1.00762 1. 00392 1.00153 1.00000 0.99907 0. 99852 0.99826 0.99818 0.99828
5. Задание 10.5. Исследовать зависимость абсолютной погрешности вычисления $$\int_{-2}^{2}{e^\frac{-x^2}{2}dx}=2.3929$$ методом трапеций от числа узловых точек.
6. Задание 10.13. Разработать программу на языке Паскаль для численного решения задачи Коши $$xy''+2xy'+2*n*y=0, n\epsilon N_{0} ; y(x_{H})=y_{H}, y'(x_{H})=y'_{H}$$, на интервале $$[x_{H};x_{K}]$$ c шагом h методом Эйлера. Исследовать зависимость абсолютной погрешности решения от х при различных n, h (зная, что при соответствующем выборе начальных условий точное решение описывается полиномом Эрмита:
$$(H_{0}(x)=1, H_{1}(x)=2x,H_{n+1}(x)=2*x*H_{n}(x)-2*n*N_{n-1}(x))$$
№ 365 | Автор: d2niKk |
2012-03-12, 16:30 | Изменено: d2niKk - Пн, 2012-03-12, 16:54
|
Репутация: [ + 0 ]
|
|
|
|
№1
Скорость звездолета 100 км/ч.Звездолет летит до некоторой звезды,свет от которой до Земли идет 14 мин. Определить сколько времени потребуется звездолету,чтобы долететь до данной звезды.
№2
Дано целое число А. Определить,есть ли в данном числе цифры которые больше 5.
№3
Дано
Помоги пожалуйста)Добавлено (12.03.12, 21:52)
---------------------------------------------
№3
Даны координаты точки А. Определить,принадлежит ли эта точка 2 координатной четверти.
|
|
|
|
Quote (culvinsky) Звездолет летит до некоторой звезды,свет от которой до Земли идет 14 мин.
А это сколько в км?)
2.
var
a,b,s:integer;
begin
read(a);
repeat
b:=a mod 10;
a:=a div 10;
if b>5 then s:=s+1;
until a=0;
if s>0 then writeln('yes: ',s) else writeln('no');
end.
3.
var
x,y:integer;
begin
read(x,y);
if (x<0)and(y>0) then writeln('yes') else writeln('no');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Здравствуйте. У меня вот такая вот проблемка с Turbo Pascal
тема : ПРОГРАММИРОВАНИЕ ЗАДАЧ ОБРАБОТКИ СИМВОЛЬНЫХ ДАННЫХ
Задание:
вот что я написал
Code Program lab10;
Const A='{'; B='}';
n=6;
Type mas=array[1..n] of string[70];
Var str,rez,poz:mas; i,v,x,l,p,k:byte;
Begin
Writeln('Please Enter Strings');
For i:=1 to n do begin
write('Stroka: '); Readln(str[i]); end;
For i:=1 to n do begin
l:=length(str[i]);
p:=pos(A,str[i]);
k:=pos(B,str[i]);
If (p=0) then writeln('Commenttarii otsytstvyut') else
if (p=0) and (k>=0) then writeln('Commenttarii otsytstvyut')else
begin
rez[i]:=copy(str[i],p,k);
delete(str[i],p,k);
x:=pos(A,str[i]);
v:=pos(B,str[i]);
If x>v then begin
poz[i]:= copy(str[i],x,v);
rez[i]:= rez[i]+poz[i];
writeln('coment:', rez[i]); end else
writeln('coment:', rez[i]);
end;
end;
end.
Проблема в том что когда я ввожу строку вида:
Программа считает её комментарием и выводит:
Помогите плиз решить эту проблему. Заранее спасибо.
№ 368 | Автор: Gernsback |
2012-03-13, 16:34 | Изменено: Gernsback - Вт, 2012-03-13, 16:34
|
Репутация: [ + 0 ]
|
|
|
|
Пример ввода-вывода, напишу код
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите с заданиями, пожалуйста, буду признателен. Задания следующие:
1.Вводится последовательность из N целых чисел. Является ли последовательность убывающей?
2. Определить порядковый номер элемента последовательности 2 в 1 степени, 2 в 2 степени, 2 в 3 степени,..., 2 в n степени, значение которого превысит 100.
P.S.: какой цикл использовать где разницы.
|
|
|
|
1.
var
a:array[1..100]of integer;
i,n:integer;
l:boolean;
begin
read(n);
l:=false;
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if a[i]>a[i+1] then l:=true else begin l:=false;break;end;
if l then writeln('yes') else writeln('no');
end.
2. Если нужно определить порядковый номер элемента, а не сам элемент, то:
var
n:integer;
begin
read(n);
writeln(n);
end.
------------------------------------------------------------------------------------------------
цикл for to do используется, когда известно количество действий
цикл repeat - цикл с пост условием, т.е. выполняется пока не будет выполнено условие
цикл while - цикл с пред услоием, т.е. пока выполняется условие - будет работать цикл
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Спасибо конечно:-)только можно попроще а то я только в десятом классе учусь. С первым заданием я уже вроде бы понял как всё надо делать, а вот со вторым понятия не имею как делать спасибо за внимание. Плюсик нажал:-)
|
|
|
|
Ой, насчёт второго затупил)
Вот код:
var
a,n,p:integer;
begin
a:=1;n:=0;
while p<100 do begin
p:=round(exp(a*ln(2)));
a:=a+1;n:=n+1;end;
writeln('Poryadkovui nomer elementa: ',n);
writeln('Element = ',p);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
p:=round(exp(a*ln(2)));
А можно эту строчку по другому записать или хотя бы объяснить её , пожалуйста)
|
|
|
|
Можно)
Но тогда прийдётся делать ещё один цикл)
Эта строчка возносит двойку в степень А
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
round(exp а это обязательно? как я догадываюсь (а*ln(2)) есть возведение в степень, 2 это основание а - степень, а зачем тогда round(exp?
|
|
|
|
(а*ln(2)) - это А умножить на логарифм двойки:)
логарифм двойки примерно равен 0,693
так что по твоей логике - не получается:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
А с циклом ещё одним это как?
|
|
|
|
var
i,a,n:integer;
begin
read(n);
a:=2;
for i:=1 to n-1 do
a:=a*2;
writeln(a);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
о спасибо большое выручил:-)
|
|
|
|
