Old
Долгожитель
|
    
Цитата: mity99 написал 29 янв. 2009 16:25
Простенькая задачка
Начав тренировку спорцмен в первый день пробежал 10 км, каждый день он увеличивал дневную норму на 10 % от предыдущего дня. Какой суммарный путь он пробежал за семь дней ?
Если можно то напишите программый код
--------------------------------
Вообще-то непонятно, зачем писать программу для решения этой задачи, она решается аналитически по ф-ле суммы геометрической прогрессии, ну уж если наставник такую задачу дал...
Program mity99;
var
L,S: real;
i: integer;
begin
L:=10.0; S:=10.0;
for i:=1 to 6 do
begin //1
//L:=10.0*1.1; S:=S + L; здесь я описался, должно быть:
L:=L*1.1; S:=S + L;
end; //1 L:=10.0*1.1;
end.
(Сообщение отредактировал Old 1 фев. 2009 18:08)
|
Всего сообщений: 285 | Присоединился: ноябрь 2006 | Отправлено: 1 фев. 2009 18:05 | IP
|
|
mity99
Новичок
|
спасибо Old а то я сам как то не доехал
|
Всего сообщений: 12 | Присоединился: декабрь 2008 | Отправлено: 2 фев. 2009 13:40 | IP
|
|
Scalli
Новичок
|
Помогите ПЛИЗ, не знаю с чего начать решения задач.
1.Дана матрица А(п,m) действительных чисел. Получить вектор, элементами которого будут номера последних отрицательных элементов строк матрицы.
2.Дана квадратная матрица. Поменять местами побочную диагональ и последнюю строку матрицы.
3.Дан массив. Поменять первый элемент с последним, второй с предпоследним и т.д. Если соответствующие элементы равны по значению, то сменить знак на противоположный.
4.Дан массив. Найти в нем самую длинную последовательность рядом стоящих равных элементов.
|
Всего сообщений: 1 | Присоединился: февраль 2009 | Отправлено: 5 фев. 2009 14:17 | IP
|
|
KMA 
Долгожитель
|
 
Помогите ПЛИЗ, не знаю с чего начать решения задач.
Начать следует с поиска по форуму. Такие задачи решались, и не один раз.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 6 фев. 2009 14:08 | IP
|
|
Nesmeyana
Новичок
|
Люди добрые!!помогите неграмотной написать програмку пожалуйста!!задание таково :Определить максимальное/минимальное значение функции y=f(x) на заданном интервале [x0,xn], заранее выбрав шаг табулирования.
|
Всего сообщений: 1 | Присоединился: февраль 2009 | Отправлено: 15 фев. 2009 20:56 | IP
|
|
noviy
Новичок
|
Есть задача:
k изменяется от 0 до бесконечности ((4k+1)! / [(2k)!]^2) * x^2k = =1/2*[(1-4x)^(-3/2) + (1+4x)^(-3/2)]
X принадлежит интервалу [-1/4 ; 1/4)
Найти мин. k, которое будет удовлетворять условию:
abs(правая часть - левая часть) < 10^(-15)
Вот, что у меня получилось(правда не работает):
Var p3,x,sum1,sum2,sravn,p4,p5,p6,p7,p8:real;
k,p,ch,p2,znam,znam1:integer;
function stepen(a,n:real):real;
begin
if n=0 then stepen:=1
else stepen:=a*stepen(a,n-1);
end;
function factorial(n:integer):integer;
begin
if n<=1 then factorial:=1
else factorial:=n*factorial(n-1);
end;
BEGIN
k:=-1;
repeat
begin
k:=k+1;
p:=4*k+1;
ch:=factorial(p);
p2:=2*k;
znam:=factorial(p2);
znam1:=znam*znam;
readln(x);
if (2*k>=0) then p3:=(stepen(x,2*k))
else p3:=(1/stepen(x,abs(2*k)));
sum1:=ch/znam1*p3;
p4:=1-4*x;
p5:=(1/stepen(p4,3/2));
p6:=1+4*x;
p7:=(1/stepen(p6,3/2));
p8:=p5+p7;
sum2:=1/2*p8;
sravn:=stepen(1/10,15);
if(abs(sum1-sum2)<sravn) then
begin
writeln('Sum1=',sum1);
writeln('Sum2=',sum2);
writeln('K=',k);
break;
end
else continue;
end;
until(abs(sum1-sum2)<sravn);
END.
Помогите исправить ошибку!
И как проверить все значения X, принадлежащие интервалу???
Спасибо.
|
Всего сообщений: 1 | Присоединился: февраль 2009 | Отправлено: 28 фев. 2009 12:24 | IP
|
|
Light Angel
Новичок
|
Народ, help me please! Очень прошу!!
Тут такая задачка, никак решить не могу(((
Найти сумму елементов квадратной матрицы, которые находятся ниже главной диагонали. Чтоб ввести елементы матрицы, сделать процедуру, которая обеспечивает ввод елементов в виде таблицы.
|
Всего сообщений: 1 | Присоединился: февраль 2009 | Отправлено: 28 фев. 2009 19:23 | IP
|
|
motorola
Новичок
|
Помогите задачку решить!!!
Изобразить на экране точку, пересекающую с постоянной скоростью экран справа налево параллельно его горизонтальной оси (вместо точки на экране можно использовать небольшой круг, прямоугольник). Движение может сопровождаться звуком. Как только точка доходит до левого края, в этот момент от правого края в строке, выбранной с помощью датчика случайных чисел, начинает свое движение другая точка и т.д. Цвет точки также может выбираться с помощью датчика случайных чисел.
|
Всего сообщений: 3 | Присоединился: ноябрь 2008 | Отправлено: 1 марта 2009 20:54 | IP
|
|
gera
Новичок
|
люди,кто поможет девушкии в очень тяжелом положении??
|
Всего сообщений: 2 | Присоединился: март 2009 | Отправлено: 3 марта 2009 14:23 | IP
|
|
gera
Новичок
|
1)Упорядочить по возрастанию элемент каждой строки матрицы 10х7.
2)Дана матрица n x m,в каждой строке выбирается элемент с наименьшем значением. Среди всех этих чисел выбирается наибольшее. Указать индексы этого элемента.
3)Определить наименьший элемент каждой четной строки матрицы А и занести эти значения в вектор В.
4)Дана кв.матрица n x n. Сфотмулировать результирующий вектор,элементами которого начинаются с к идущих подряд положительных чисел.
|
Всего сообщений: 2 | Присоединился: март 2009 | Отправлено: 3 марта 2009 14:35 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 2
