Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program var1;
- uses
- SysUtils, Math;
- procedure Input (var parametr: real);
- begin
- {$I-} readln(parametr); {$I+}
- if (IoResult<>0) or (parametr<(-3)) or (parametr>6) then begin
- write(' Вы ввели неверные данные, попробуйте снова: ');
- Input (parametr);
- end;
- end;
- procedure Calculate (var a,b,c: real);
- var x,y:real;
- begin
- x:=a;
- writeln(' Результаты вычислений ');
- writeln(' ------------------------------- ');
- writeln(' | X | Y | ');
- writeln(' ------------------------------- ');
- while x<=b do begin // цикл с предусловием
- if x<(-2) then y:=-x-2;
- if (x>=(-2)) and (x<(-1)) then y:=sqrt(1-Power((x+1),2));
- if (x>=(-1)) and (x<1) then y:=1;
- if (x>=1) and (x<2) then y:=((-2)*x)+3;
- if x>=2 then begin y:=-1; end;
- writeln(' ', x:1:3,' ',y:1:3, ' ');
- x:=x+c;
- end;
- writeln(' ------------------------------- ');
- end;
- var
- xi,xk,dx:real;
- status:integer;
- quit:boolean;
- begin
- writeln(' ////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\ ');
- writeln(' / Данная программа \ ');
- writeln(' / по значениям аргумента Xi, изменяющегося \ ');
- writeln(' / в заданных пределах, с заданным шагом, \ ');
- writeln(' / вычисляет значения функции Yi, \ ');
- writeln(' / заданной в виде графика. \ ');
- writeln(' / Автор: Тихонов Евгений. \ ');
- writeln(' \\\\\\\\\\\\\\\\\\\\\\\\//////////////////////// ');
- repeat //цикл с постусловием
- writeln;
- write(' Введите начальное значение аргумента Xi: ');
- Input(xi);
- write(' Введите конечное значение аргумента Xk: ');
- Input(xk);
- write(' Введите шаг изменения dX: ');
- Input(dx);
- writeln(' Введенные данные: Xi = ', xi:1:3, ', Xk = ', xk:1:3, ', dX = ', dx:1:3);
- writeln;
- Calculate(xi,xk,dX);
- write('Введите "1" для выхода или любую другую цифру для перезапуска программы: ');
- readln(status);
- quit:=status=1;
- until quit;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement