Лабораторная работа №8
Проектирование алгоритмов и программ со структурой вложенных циклов”
Вариант – 11
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{******************************}
{ЦЕЛЬ: }
{Получение навыков и изучение правил проектирование}
{сложных цыклических программ. }
{ПЕРЕМЕННЫЕ: }
{A — Аргумннт выражения }
{K — Количество циклов }
{S — Сумма }
{X — Переменная (0.5(0.15)2) }
{Дата написания: 12.11.03 }
{Программист — Джамалутдинов Роман Сагидович гр.343}
{******************************}
Program Lab8;
Uses crt;
Var
K:Integer;
A,S,X0,Xh,Xk,Z:Real;

Begin {Laba#8}
ClrScr;
S:=0;
{X:=0.5;}
Repeat
Writeln(‘Введите Х начальное:’);
Read(X0);
Writeln(‘Введите шаг:’);
Read(Xh);
Writeln(‘Введите Х конечное:’);
Read(Xk);
Writeln(‘Введите Z:’);
Read(Z);
Writeln(‘Введите A:’);
Read(A);
ClrScr;
If(Xh Then
Writeln(‘Неверный ввод!’)
Else
ClrScr;
Until (Xh>0) and (Xk>0);
K:=0;
Repeat
K:=K+1;
X0:=X0+Xh;
S:= S + (1 + A * Ln(X0));
  {Write(‘ X= ‘,X:2:2);}
Until (K = Z) or (X0=Xk);
Write(‘Сумма равна: ‘,S:2:2);
ReadKey;
End. {Laba#8}