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

  • Автор темы MihaelVlz
  • Дата начала
M

MihaelVlz

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

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

damir08

#3
Помогите плиз с решением нескольких задании хотя б одной на любом языке 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) содержится строго по одному нулевому элементу. Перестановкой строк добиться расположения всех нулей по главной диагонали матрицы.
 
C

clayton

#4
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.