Mirsaid Aripov, Nurillo Otaxanov

for x0 : x1 downto x2 do

begin

buyruqlar ketma-ketligi

end;

tarzida yoziladi.

Masala-3: Natural n soni berilgan. Quyidagi yig’indini hisoblang:



Yechish g’oyasi: Berilgan ifoda qiymatini xisoblash eng ichki ildizdan boshlanadi. S yig’indining boshlang’ich qiymati 0 ga teng. Navbatdagi yig’indi formula bo`yicha topiladi. Tsiklning har galdagi bajarilishida i ning qiymatlari n dan 1 gacha kamayib boradi. Qo`yilgan masalaning kodi quyidagicha yoziladi:

procedure TForm1.Button1Click(Sender: TObject);

var n, i: integer;

s: real;

begin

n : strtoint(edit1.text);

s : 0;

for i : n downto 1 do s : sqrt(s  3*i);

label1.Caption : floattostr(s);

end;