Функции Copy, Pos, процедуры Delete, Insert.

Функция Copy позволяет копировать из строки часть символов. Функция имеет 3 параметра. Copy (st, index, count). St-строка из которой копируют, Index-номер символа, с которого начинается копирование, Count-количество символов, которое будет ...

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

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

Логические операции And, Or, Not, Xor в Pascal.

Над переменными логического типа можно производить логические операции. В языке программирования Pascal существуют следующие логические операции : Andлогическое умножение, Orлогическое сложение, Notлогическое отрицание, Xor ...

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

Использование массивов и функций в качестве формального параметра.

Формальным параметром функции может быть не только переменная скалярного типа, но и идентификатор переменной структурированного типа данных.

Стандартные функции в Паскаль.

Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке Паскаль с помощью встроенных (иногда говорят — стандартных) функций и процедур.

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

Вычислить

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.
Следующая статья: Вычисление предела последовательности.


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

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

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