Новые сообщения · Правила  
Страница 19 из 38«1217181920213738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Найти наибольшее значение функии у=ах^3+bх+с при заданных параметрах a,b,c, если х изменяется от х_1 до х_2 с шагом h. (использовать цикл FOR)
помогите пожалуйсто!!!!!
361 | Автор: 375298973678 | 2012-03-10, 20:56   |  Репутация: [ + 0 ]
А зачем цикл?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
362 | Автор: Berestovskiy | 2012-03-11, 04:33   |  Репутация: [ + 211 ]
мне припомощи этого цикла нужно составить программу
363 | Автор: 375298973678 | 2012-03-11, 16:13   |  Репутация: [ + 0 ]
Да что ты?
Просто судя из логики, икс будет принимать максимальное значение в точке х_2, следовательно, выражение у=ах^3+bх+с будет принимать максимальное значение так-же в этой точке, следовательно зачем цикл? Считать а, б, ц , считать точки изменения икса, присвоить максимальное и вывести)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
364 | Автор: Berestovskiy | 2012-03-11, 22:12   |  Репутация: [ + 211 ]
Прошу помочь с решением задач.

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 координатной четверти.

366 | Автор: culvinsky | 2012-03-12, 21:52   |  Репутация: [ + 0 ]
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
367 | Автор: Berestovskiy | 2012-03-12, 23:28   |  Репутация: [ + 211 ]
Здравствуйте. У меня вот такая вот проблемка с 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.

Проблема в том что когда я ввожу строку вида:
Quote
}text{

Программа считает её комментарием и выводит:
Quote
coment: {}


Помогите плиз решить эту проблему. Заранее спасибо.
368 | Автор: Gernsback | 2012-03-13, 16:34 | Изменено: Gernsback - Вт, 2012-03-13, 16:34   |  Репутация: [ + 0 ]
Пример ввода-вывода, напишу код

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
369 | Автор: Berestovskiy | 2012-03-13, 18:16   |  Репутация: [ + 211 ]
Помогите с заданиями, пожалуйста, буду признателен. Задания следующие:
1.Вводится последовательность из N целых чисел. Является ли последовательность убывающей?
2. Определить порядковый номер элемента последовательности 2 в 1 степени, 2 в 2 степени, 2 в 3 степени,..., 2 в n степени, значение которого превысит 100.
P.S.: какой цикл использовать где разницы.
370 | Автор: RamilX | 2012-03-14, 18:42   |  Репутация: [ + 0 ]
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
371 | Автор: Berestovskiy | 2012-03-14, 18:59   |  Репутация: [ + 211 ]
Спасибо конечно:-)только можно попроще а то я только в десятом классе учусь. С первым заданием я уже вроде бы понял как всё надо делать, а вот со вторым понятия не имею как делать спасибо за внимание. Плюсик нажал:-)
372 | Автор: RamilX | 2012-03-14, 19:27   |  Репутация: [ + 0 ]
Ой, насчёт второго затупил)
Вот код:
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
373 | Автор: Berestovskiy | 2012-03-14, 19:43   |  Репутация: [ + 211 ]
p:=round(exp(a*ln(2)));
А можно эту строчку по другому записать или хотя бы объяснить её , пожалуйста)
374 | Автор: RamilX | 2012-03-14, 19:49   |  Репутация: [ + 0 ]
Можно)
Но тогда прийдётся делать ещё один цикл)
Эта строчка возносит двойку в степень А


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
375 | Автор: Berestovskiy | 2012-03-14, 19:52   |  Репутация: [ + 211 ]
round(exp а это обязательно? как я догадываюсь (а*ln(2)) есть возведение в степень, 2 это основание а - степень, а зачем тогда round(exp?
376 | Автор: RamilX | 2012-03-14, 20:05   |  Репутация: [ + 0 ]
(а*ln(2)) - это А умножить на логарифм двойки:)
логарифм двойки примерно равен 0,693
так что по твоей логике - не получается:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
377 | Автор: Berestovskiy | 2012-03-14, 20:08   |  Репутация: [ + 211 ]
А с циклом ещё одним это как?
378 | Автор: RamilX | 2012-03-14, 20:08   |  Репутация: [ + 0 ]
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
379 | Автор: Berestovskiy | 2012-03-14, 20:12   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
379 | Автор: Berestovskiy | 2012-03-14, 20:12   |  Репутация: [ + 211 ]
о спасибо большое выручил:-)
380 | Автор: RamilX | 2012-03-14, 20:34   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 19 из 38«1217181920213738»
Поиск: