Помогите пожалуйста с лабораторной работой!
y:=sqr(a+b*x)+a*b*cos(x)

a=17.2
b=24.6
Х(начальное)=2
Х(конечное)=20
N=10
нужно составить программы с помощью While,For,Repeat для этих данных. 

Решение

const a=17.2; b=24.6; 

var y,n:real; x:integer;

begin
for x:=2 to 20 do begin
 y:=sqr(a+b*x)+a*b*cos(x);
end;
 writeln(y:5:3);
end.

*********************************
const
a=17.2;
b=24.6;
var
y,n:real;
x:integer;
begin
x:=2;
while x<=20 do begin
 y:=sqr(a+b*x)+a*b*cos(x);
x:=x+1;
end;
 writeln(y:5:3);
end.

************

const
a=17.2;
b=24.6;
var
y,n:real;
x:integer;
begin
x:=2;

repeat
 y:=sqr(a+b*x)+a*b*cos(x);
x:=x+1;
until x=21;

 writeln(y:5:3);
end.
**********************

Program pr;
uses crt;
var y,x:real;
const a=17.2; b=24.6; x1=2; x2=20; n=10;
Begin clrscr;
x:=x1;
repeat
y:=sqr(a+b*x)+a*b*cos(x);
x:=x+n;
until x<=x2;

Writeln('функция у=', y:6:2);
End.

**************************

Program pr;
uses crt;
var y,x:real;
const a=17.2; b=24.6; x1=2; x2=20; n=10;
Begin clrscr;
x:=x1;

while x<=x2 do begin
y:=sqr(a+b*x)+a*b*cos(x);
x:=x+n;
end;

Writeln('функция у=', y:6:2);
End.

**********************************

Program pr;
uses crt;
var y,x:real;
const a=17.2; b=24.6; x1=2; x2=20; n=10;
Begin clrscr;
x:=x1;
for x:=x1 to x2 do begin
y:=sqr(a+b*x)+a*b*cos(x);
x:=x+n;
end;
Writeln('функция у=', y:6:2);
End.

************************

Операторы завершения цикла

Для всех операторов цикла выход из цикла осуществляется как вследствие

естественного окончания оператора цикла, так и с помощью операторов

перехода и выхода.

В версии Турбо Паскаль 7.0 определены стандартные процедур

Break
Continue

Процедура Break выполняет безусловный выход из цикла. Процедура
Continue обеспечивает переход к началу новой итерации цикла.

Заметим, что хотя и существует возможность выхода из цикла

с помощью оператора безусловного перехода goto,

делать этого не желательно.

Во всех случаях можно воспользоваться специально

предназначенными для этого процедурами Break и Continue.