Трассировка, интегралы....помогите

[dellfa]

1. Выполнить трассировку программы для заданных входных данных. Значения входных данных 12,4,7.
Program p1(input,output);
var x,y,z,t:integer;
begin
read(x,y,z);
t:=2*x-3*y;
if x<y+z then t:=t+x else
if x<y then t:=t-y;
z:=z+t*2;
Writeln(x,' ',y,' ',z,' ',t);end.  Помогите ...паскаль изучала сама ненаю как ето все оформляется...........трасировка ет ж пошаговая проверка вроде

2. По заданной формуле члена ряда с номером к составить две программы, используя управляющий цикл:
а) программу вычисления суммы всех первых n членов заданного ряда (л=1,2,...n)

b)программу вычисления суммы всех членов ряда, абсолютная велина которых больше заданной величены  (буква э перевернутая). Для первой программы выполнить трассировку n=3.
При составлении  программ следует реализовать наиболее эффективный алгоритм вычисления очередного члена ряда, используя, например рекуррентные формулы, раздельнные вычисления числителя и знаменателя.
Сам пример вот: k/sqr(k)+2*k+1.


3. Задана функция. Требуется найти определенный интеграл от каждой функции в предлах [a,b].Для решения задачи использовать численный метод вычисления интеграла-метод прямоугольников.Пределы [a,b] и количество интервалов должны вводиться в начале программы.
 Сам пример x в 3-й степени * на е в степени 2х


Пожалуста...помоги

[InfStudent]

1. да
2.Ну это просто надо посмотреть соотв. формулы и закодировать их
3. Посмотрите по форумам соотв материал) и в Вики, а так выкладывайте что у вас получилось будем смотреть

[dellfa]

var k,n:integer;
c,s:real;
begin
Writeln('Нахождение суммы всех первых n членов заданного ряда');
Writeln('Введите n членов заданного ряда');
Readln(n);
For k:=1 to n do
c:=k/sqr(k)+2*k+1;
s:=s+c;
Writeln('Cумма всех первых n членов заданного ряда',s);
end.


Так правильно?

[dellfa]

а как ваще ету трасировку то делать?

[InfStudent]

Трасировку делаешь там есть спецрежим работы TP, а так твоя задача сводится к работе при трассировке вообще то это в ручную указать значения переменных,которые будут после конца работы трассируемой программы       

[dellfa]

ага , спс с трасировкой ясно..............а воть ваще ненаю как делать

b)программу вычисления суммы всех членов ряда, абсолютная велина которых больше заданной величены  (буква э перевернутая). Для первой программы выполнить трассировку n=3.
При составлении  программ следует реализовать наиболее эффективный алгоритм вычисления очередного члена ряда, используя, например рекуррентные формулы, раздельнные вычисления числителя и знаменателя.

Сам пример вот: k/sqr(k)+2*k+1.


3. Задана функция. Требуется найти определенный интеграл от каждой функции в предлах [a,b].Для решения задачи использовать численный метод вычисления интеграла-метод прямоугольников.Пределы [a,b] и количество интервалов должны вводиться в начале программы.
 Сам пример x в 3-й степени * на е в степени 2х

[InfStudent]

по третьему пункту погуглите исходников численных методов интегрирования навалом

[dellfa]

{ Вычисляет приближенное значение }
{ интеграла функции F методом прямоугольников }
{ /b }
{ | f(x) dx;интервал разбивается на n частей }
{ /a }

var
n,i,e : integer;
a,b,shag,sum,itog : real;

{======================================}
{Введите сюда нужную функцию}
function F(x:real):real;
begin
F:=x*x*exp(ln(e)*x*2);;
end;
{======================================}

BEGIN
write('Начало интегрирования a = '); readln(a);
write('Конец интегрирования b = '); readln(b);
write('Количество разбиений интервала n = '); readln(n);

shag:=(b-a)/n;
sum:=0;
for i:=1 to n-1 do
sum := sum + F(shag*i+a);
sum := sum + (F(a)+F(b))/2;

itog:=(b-a)/n * sum;
writeLn('Интеграл = ', itog:0:5)
END.


воть так ? тока ощибка выходит деление на ноль незя

[InfStudent]

Дело в том что к большому сожаления я пока прохожу только производную,так что может быть все правильно за исключением того что у вас n не инициализировано. 

[dellfa]

всмысле что n?

[InfStudent]

Ну в том смысле что вы делите на n, однако в n нет значения

[dellfa]

у мня исправить не получается...........хе странно почему n не видит...

[InfStudent]

В каком смысле не видит?