Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 2
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]
Модераторы: paradise, KMA
  

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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]

Форум работает на скрипте © Ikonboard.com