еще не студент, но надо научиться. разобраться и доработать нужно.

[alexey1990]

задача: Вычислить 7 значений функций Y=(0.15x*a)/(sqr(a) - sqr(x)) - это не важно. где начальное значение а=0.14х, а шаг дельта a=0.22 - это не знаю
вот что сделал

Uses crt;
var
E, y, x, a : Real;
i,n: integer;

BEGIN

Clrscr;
Writeln('Введите x, a');
Readln(x,a);
for n := 1 to 7 do
begin
E := (0.15x*a)/(sqr(a) - sqr(x));
y := 0;
for i := 1 to 10 do
begin
y := y+E;
end;
Writeln('Значение функции:');
Writeln(n:3, '. ', y);
end;
readln;

END.
знаю что неправильно, но вот и спрашиваю

[Kazik]

Uses crt;
var
E, y, x, a : Real;
i,n: integer;

BEGIN

Clrscr;
Writeln('Введите x, a');
Readln(x,a);
for i := 1 to 7 do
begin
E := (0.15x*a)/(sqr(a) - sqr(x));
y := 0;
for i:=1 to 7 do
begin
y:=y+e;
a:=a+0,22;
Writeln('Значение функции:');
Writeln(y:3);
end;
readln;

END.
почти все у тя правильно

[ROMA2PVT]

Uses crt;
var
E, y, x, a,h : Real;
i: integer;
BEGIN
Clrscr;
Write('Введите x: ');
Readln(x);
a:=0.14*x;
h:=0.22;
for i:=1 to 7 do
begin
E:=(0.15*x*a)/(sqr(a)-sqr(x));
Writeln('Значение функции:');
Writeln(a:1:3, '. ',E:1:3);
a:=a+h;
end;
readln;
END.

[ROMA2PVT]

...........

[alexey1990]

спасибо большое)

[ROMA2PVT]

Да не за что.