Помогите осилить задачу на Pascal

Тема в разделе "Delphi - FAQ", создана пользователем MihaelVlz, 30 ноя 2008.

  1. MihaelVlz

    MihaelVlz Гость

    С помощью циклов:
    Найти первое значение функции Y=1/e[sup]x[/sup], удовлетворяющее условию Y<0,01 при изменении X от -1 с шагом 0,1. Определить, на каком шаге это произойдёт.

    Вот такие пироги. :)
    Заранее признателен.
     
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Если еще надо, пиши сюда ICQ: 34-98-34-73.
     
  3. damir08

    damir08 Гость

    Помогите плиз с решением нескольких задании хотя б одной на любом языке DELPHI, Turbo Pascal, C++: заранее благодарю... Скиньте плииззз на мыло damirjuly@mail.ru

    1. "Дан целочисленный массив А(n). Наименьший элемент массива заменить целой частью среднего арифметического всех его элементов, остальные элементы оставить без изменения. Если в массиве несколько элементов с минимальным значением, то заменить последний по порядку".

    2. "Дана таблица выигрышей денежной лотереи: K(n) — массив номеров выигравших билетов (упорядочен по возрастанию); S(n) — суммы выигрышей. Определить суммарный выигрыш для пачки купленных билетов с номерами l1, l2,…,ln".

    3. Дан первый элемент арифметической прогрессии и разность между соседними элементами. Сформировать массив из первых n элементов арифметической прогрессии. Элемент с номером I вычисляется по правилу ai = ai-1 + k.

    4. Разместить последовательно строки матрицы A(m,n) в векторе B(mn).

    5. Получить действительную матрицу А(n,n), первая строка которой задается формулой a1j = sin j, а вторая строка — формулой a2j = ln j, j = 1, …, n. Каждая следующая строка есть сумма двух предыдущих.

    6. В каждом столбце и каждой строке матрицы P(n, n) содержится строго по одному нулевому элементу. Перестановкой строк добиться расположения всех нулей по главной диагонали матрицы.
     
  4. clayton

    clayton Гость

    MihaelVlz довольно простенькая задача :huh: :

    uses crt;

    var x,y,dx:real;

    Begin
    ClrScr;
    x:=-1;
    repeat
    y:=1/exp(x);
    x:=x+0.1;
    until y<0.01;
    writeln('Y= ',y:1:3);
    writeln('X= ',x:1:3);
    readln;
    end.
     
  5. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    to damir08, если еще надо, смотри пост #1 :)
     
Загрузка...
Похожие Темы - Помогите осилить задачу
  1. limbra
    Ответов:
    3
    Просмотров:
    44
  2. NylevoiChelovek
    Ответов:
    4
    Просмотров:
    97
  3. Ruska132
    Ответов:
    34
    Просмотров:
    262
  4. gURaBA_N
    Ответов:
    7
    Просмотров:
    145
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    61

Поделиться этой страницей