Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

Строковые константы в Pascal.

В качестве значения строковой константы может выступать любая последовательность символов. Эта последовательность заключается в апострофы. Строковая константа отличается от символьной константы тем, что здесь в качестве значения константы можно ...

Циклы и массивы

Примеры линейных программ.

В данной статье приводится несколько примеров линейных программ на языке программирования Паскаль.

ФАЙЛЫ ЗАПИСЕЙ

В практике программирования часто встречаются задачи, решение которых требует большого количества относительно мало изменяемых во времени данных. Ввод данных с экрана заново при каждом счете для этих ...

Примеры использования различных операторов цикла. Вложенный цикл.

Вычислить

Vlozhennihyj arifmeticheskiyj cikl.... Вычисления остановить при выполнении условия

Vlozhennihyj arifmeticheskiyj cikl.....Для решения этой задачи удобно использовать оператор цикла с предусловием WHILE ...DO.

PROGRAM PR22;
VAR       
У, Е: REAL;
I: INTEGER;
BEGIN
WRITELN('ВВЕДИТЕ E');
READLN(E);
I:= 1; Y:=0.5;
WHILE I * EXP(-I * LN(2)) > E
DO BEGIN
       Y:=Y + I*EXP(-I*LN(2));
       I:= I+ 1;
       END;
WRITELN('Y =', Y:12:8)
END.

Vlozhennihyj arifmeticheskiyj cikl......

Пример №23. Вычислить с точностью ? квадратный корень из величины 

Vlozhennihyj arifmeticheskiyj cikl2

Вычисление проводить по рекуррентной формуле:

Vlozhennihyj arifmeticheskiyj cikl2.

выбрав в качестве начального приближения величину

Vlozhennihyj arifmeticheskiyj cikl2.. При решении подобных задач условие остановки вычислительного процесса формулируется следующим образом: | Yi — Yi-1 |<?.

Vlozhennihyj arifmeticheskiyj cikl2...

Вводим с клавиатуры величины X и Е. Далее вычисляем первое приближение Y. Если X<1, то Y принимается равным X, в противном случае за Y принимается величина Х/2. Далее на основании Y нужно найти следующее приближение. Поэтому вычисленное значение записывается в ячейку с именем Y1 и с этого момента времени считается предыдущим значением. Текущее значение Y рассчитывается по рекуррентной формуле на основании Y1 и X. Этот циклический процесс повторяется до тех пор, пока не выполнится условие | Y — Y1 | < Е. После чего Y считается равным значению корня из X с точностью Е и выводится на экран монитора.

Vlozhennihyj arifmeticheskiyj cikl2....

PROGRAM PR23;
VAR       
X, Y, YI, E: REAL;
BEGIN
WRITELN('BBEДИTE X, E');
READLN(X, E);
Y:= X;
IF X>= 1 THEN Y:= Y/2;
REPEAT
Y1:=Y;
Y:= (Y1 +X/Y1)/2
UNTIL ABS(Y-Y1)<E;
WRITELN(Y =', Y:12:8)
END.


Чтобы проверить доступность компьютера по сети, необходимо выполнить пинг, чтобы узнать время отклика компьютера по сети при его доступности. Чем меньше время ожидания, тем лучше скокрость интернет соедниения.

Предыдущая статья: Вложенный арифметический цикл.
Оглавление: Лекции по Pascal.
Следующая статья: Вычисление предела последовательности.


Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальЛекции по Паскаль