Лабораторная работа №10
Вариант – 8
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{********************************************************}
{Программа:Lab10,Лабораторная работа #10,Вариант 8 }
{Цель:изучить основные приемы, способы и средства }
{ обнаружения и исправления ошибок в программах, }
{ написанных на языке Турбо Паскаль }
{Описание параметров и переменных: }
{A - аpгумент }
{J - вспомогательная константа }
{K -число повтоpений цикла }
{L - вспомогательная константа }
{S - значение для суммы }
{T - вспомогательная константа }
{X0 - начальное значение аpгумента X }
{Xh - шаг изменения аpгумента X }
{Xk-конечное значение аpгумента X }
{Z - Паpаметp цикла }
{Программист:Джамалутдинов Роман Сагидович гр.343 }
{Проверил:профессор Новичков В.С.,кафедра ВПМ }
{Дата написания:25.11.2003 год }
{********************************************************}
Program Lab8;
{$i-}
Uses crt;
Const
L='=======================';
J=' ';
T='***********************';
F='*************************************************************';
Var
K,Z,I:Integer;
A,S,X0,Xh,Xk:Real;
Begin {Laba#8}
ClrScr;
S:=0;
{ввод исходных данных}
Writeln(T,T,T,'**********');
Writeln(T,'**| ЛАБОРАТОРНАЯ РАБОТА № 10 |***',T);
Writeln(F);
Writeln;
Writeln(J,T, ' Ввод данных: ',T,J);
Writeln;
Write('Введите A: ');
Read(A);
If (ioresult>0)
Then
Repeat
Writeln(L);
Writeln('Неверный ввод! |');
Writeln(L);
Write('Введите A: ');
Read(A);
Until (ioresult=0) ;
Write('Введите Х начальное: ');
Read(X0);
If (ioresult>0) or (X0<0)
Then
Repeat
Writeln(L);
Writeln('Неверный ввод! |');
Writeln(L);
Write('Введите Х начальное: ');
Read(X0);
Until (ioresult=0) and (X0>0);
Write('Введите шаг: ');
Read(Xh);
If (ioresult>0) or (Xh<=0)
Then
Repeat
Writeln(L);
Writeln('Неверный ввод! |');
Writeln(L);
Write('Введите шаг: ');
Read(Xh);
Until (ioresult=0) or (Xh>=0);
Write('Введите Х конечное: ');
Read(Xk);
If (ioresult>0)
Then
Repeat
Writeln(L);
Writeln('Неверный ввод! |');
Writeln(L);
Write('Введите Х конечное: ');
Read(Xk);
Until (ioresult=0) ;
Write('Введите Z: ');
Read(Z);
If (ioresult>0) or (Z<=0)
Then
Repeat
Writeln(L);
Writeln('Неверный ввод! |');
Writeln(L);
Write('Введите Z: ');
Read(Z);
Until (ioresult=0) or (Z>0);
Writeln(F);
{Проверка исхоных данных}
Writeln (T,'*Начало проверки исходных данных*',T);
Writeln;
Writeln('A = ',A:5:2);
Writeln;
Writeln('X0 = ',X0:5:2);
Writeln;
Writeln('Xh = ',Xh:5:2);
Writeln;
Writeln('Xk = ',Xk:5:2);
Writeln;
Writeln('Z = ',Z);
Writeln;
Writeln (F);
K:=0;
ReadKey;
{Проверка цикла}
ClrScr;
Writeln(T,'******Начало проверки цикла******',T);
Writeln;
Repeat
Writeln;
K:=K+1;
Writeln('Цикл: ',K);
X0:=X0+Xh;
Writeln('X0 = ',X0:5);
S:= S + (1 + A * Ln(X0));
Writeln('Сумма: ',S:7:2,' ',K,' -Я');
ReadKey;
Until (K = Z) or (X0=Xk);
Writeln(F);
ReadKey;
{Вывод результата}
ClrScr;
Writeln(T,'********Вывод результата********',T);
Writeln;
Writeln('Сумма равна: ',S:2:2);
Writeln;
Writeln(T,'**************КОНЕЦ*************',T);
ReadKey;
End. {Laba#8}
|
Главная
Каталог файлов
