Лаб3 - записать цикл for и repeat

[Владан]

Подскажите плз как правильно записать цикл for и repeat
заранее спасибо!

[Poma][a]

Лучше код. По картинкам не ахти какого качества работать не ахти как продуктивно!

[Leshii]

while и repeat еще понятно

repeat 
    {формулы и вывод}
    x:=x+h;
 until x<=b+h/2;

А вот с фором шаг типа real не прокатит

Желательно чтоб ты прочитал пост выше, и кинул сюда полное задание + код.

[Владан]

звучит так :
Разработать программу табулирования функции, вывести их значения на экран. Разработать три варианта вычисления с использованием трех видов циклов, для контроля подсчитать сумму значений функций, результаты вывести отдельно в одном файле. Знак '^' означает 'в степени ".
y = (ln(x^2 + 1))^2 + x; інтервал : отрезок[2,6], шаг 0.5.

program Project1lb3;

{$APPTYPE CONSOLE}
//= (ln(x^2 + 1))^2 + x;
//інтервал : відрізок [2,6], крок 0.5;
uses
SysUtils,math;
var
Exp,X,a,b,h,y:real;

begin
Writeln( ' x y');
writeln(' while' );
a:=2;
b:=6;
h:=0.5;
X:=a;while x<=b+h/2 do
begin
Y:=Power((Ln(x*x+1)),2)+x;
Writeln(x:6:3,' ',y:6:3);
X:=x+h;
end;

Writeln( ' x y');
writeln(' for' );
a:=2;
b:=6;
h:=0.5;
X:=a;
while x<=b+h/2 do
begin
Y:=Power((Ln(x*x+1)),2)+x;
Writeln(x:6:3,' ',y:6:3);
X:=x+h;
End;

Writeln( ' x y');
writeln(' repeat' );
a:=2;
b:=6;
h:=0.5;
X:=x+h;
until x<=b+h/2;
begin
Y:=Power((Ln(x*x+1)),2)+x;
Writeln(x:6:3,' ',y:6:3);
End;
Readln;
end.

[DiemonStar]

For I = 4 to 12 do
  begin
    X := I /2;
    Y :=  sqr(ln(sqr(X)+1)) + X;
  end;

а чего здесь сложного? можно ещё так сделать:

X := 2;
For I = 1 to 8 do
  begin
    X := X + 0,5;
    Y :=  sqr(ln(sqr(X)+1)) + X;
  end;

[Владан]

!!!!!!!!!!!!!!!!!!!!!!!!!

[Владан]

Сообщение от DiemonStar

For I = 4 to 12 do
  begin
    X := I /2;
    Y :=  sqr(ln(sqr(X)+1)) + X;
  end;

а чего здесь сложного? можно ещё так сделать:

X := 2;
For I = 1 to 8 do
  begin
    X := X + 0,5;
    Y :=  sqr(ln(sqr(X)+1)) + X;
  end;

ошибка

[Leshii]

Что пишет? в каком месте ?
Конкретней говори, мы же не твой компилятор.

[DiemonStar]

попробуйте переменные объявить:

var I : Integer;
     X, Y :  Real;

и ещё двоеточие не написал тут:

For I := 1 to 8 do

вот такой код работает без проблем:

var I : Integer;
    X, Y :  Real;
begin
X := 2;
For I := 1 to 9 do
  begin
    Y :=  sqr(ln(sqr(X)+1)) + X;
    X := X + 0.5;
  end;
end.

[Владан]

спасибо)
а что в цикле repeat нужно переделать ?