Алгоритмические языки и программирование. Игошина Л.В. - 32 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

Writeln('При x= ',x:5:3,' под знаком логарифма недопустимое значение')
Else begin
y:= Exp (1.0/3.0* Ln(Abs(6*x*x-x*x*x)));
Writeln('x=',x:8:3,' y=',y:8:3);
end; {Конец else}
x:=x+H;
Еnd; {Конец while} Readkey; { Ожидание нажатия любой клавиши}
END.
Вариант 2
Схема алгоритма с использованием цикла Repeat ... Until
нет
да
нет
да
Текст программы
{Лабораторная работа 3}
{Программирование циклов с использованием конструкции
REPEAT…UNTIL}
{Студенты гр. ... Фамилии ...}
Uses crt; {Подключение стандартного модуля TP}
Var x,y,A,B,H: real;
BEGIN Clrscr; { Очистка экрана}
Writeln(' Введите A B H'); readln(A,B,H);
x:=A;
Repeat
if (6*x*x-x*x*x)=<0 then
Writeln('При x= ',x:5:3, '
под знаком логарифма недопустимое значение')
Else begin
y:= Exp(1.0/3.0* Ln(Abs(6*x*x-x*x*x)));
Начало
Ввод
a, b, h
x := a
6x
2
-x
3
>0
Вычисление
F
Вывод
F
x := x+h
x > b
Вывод
сооб-
щ
ения
Конец 
   Writeln('При x= ',x:5:3,' под знаком логарифма недопустимое значение')
                       Else     begin
                          y:= Exp (1.0/3.0* Ln(Abs(6*x*x-x*x*x)));
                           Writeln('x=',x:8:3,' y=',y:8:3);
                                 end; {Конец else}
  x:=x+H;
 Еnd; {Конец while} Readkey; { Ожидание нажатия любой клавиши}
END.
                                  Вариант 2
         Схема алгоритма с использованием цикла Repeat ... Until


                                         2     3
                                                   нет         Вывод
                                       6x -x                   сооб-
              Начало                    >0                     щения

                                             да
             Ввод                   Вычисление
             a, b, h                   F                       x := x+h


                                      Вывод              нет
              x := a                   F                        x>b

                                                               да

                                                                 Конец
                               Текст программы
                          {Лабораторная работа 3}
        {Программирование циклов с использованием конструкции
                              REPEAT…UNTIL}
             {Студенты гр. ... Фамилии ...}
Uses crt; {Подключение стандартного модуля TP}
Var x,y,A,B,H: real;
BEGIN          Clrscr; { Очистка экрана}
Writeln(' Введите A B H'); readln(A,B,H);
x:=A;
 Repeat
   if (6*x*x-x*x*x)=<0 then
   Writeln('При x= ',x:5:3, ' под знаком логарифма недопустимое значение')
                         Else begin
                         y:= Exp(1.0/3.0* Ln(Abs(6*x*x-x*x*x)));

Страницы