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

[MihaelVlz]

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

Вот такие пироги.
Заранее признателен.

 

[Vadik(R)]

Если еще надо, пиши сюда ICQ: 34-98-34-73.

 

[damir08]

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

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

2. "Дана таблица выигрышей денежной лотереи: K — массив номеров выигравших билетов (упорядочен по возрастанию); S — суммы выигрышей. Определить суммарный выигрыш для пачки купленных билетов с номерами 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) содержится строго по одному нулевому элементу. Перестановкой строк добиться расположения всех нулей по главной диагонали матрицы.

 

[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.

 

[Vadik(R)]

to damir08, если еще надо, смотри пост #1