Паскаль в примерах. Иринчеев А.А - 54 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

54
XI:=(A+B+C)/3;
WRITELN(XI:5:2,’ ‘, A:4;2,’ ‘,B:4:2,’ ‘,C:4:2);
A:=A+HA;
B:=B+HB;
UNTIL I<=N
END.
Пример 33. Составить программу вычисления корня N-ой степени Y=
X
n
c заданной по-
грешностью E по следующему рекуррентному соотношению:
Y
0
=X; Y
K
= Y
K-1
+
1
1
1
N
X
K
N
Y
(
−
−
−
Y
K-1
);
K=1, 2, 3, ... до | Y
K
- Y
K-1
| <=E
Для упрощения решения задачи введем переменную
d = Y
K
-Y
K-1
=
1
1
1
N
X
K
N
Y
(
−
−
− Y
K-1
);
значение которой использовано для формирования условия окончания цикла с постусловием.
PROGRAM PR33;
VAR
E,D,X,Y:REAL;
N:INTEGER;
BEGIN
WRITE(‘ Введите N,E,X);
READLN(N,E,X);
Y:=X;
REPEAT
D:=(X/EXP((N-1)*LN(Y))-Y)/N;
Y:=Y+D;
UNTIL ABS(D) <= E;
WRITELN(‘Корень ‘,N,’ степени из ‘,X4:2,’ равен ‘,Y:4:3);
END.
2.19. Символьные переменные
Обработка символьных (иначе: знаковых, литерных) данных становится возможной
благодаря привлечению значений и переменных
типа CHAR. Значениями типа CHAR слу-
жат все те символы, которые могут быть высвечены на экране: буквы, цифры, знаки опера-
ций, скобки, пробел и т.д. Исключение составляет штрих
‘ , имеющий специальное назначе-
ние.
Если в программе имеется описание
n, w : char
то возможны, например, операторы присваивания n:=‘a’, n:=v, w:=‘* ‘ и т.д. Штрих
‘ - приня-
тая в Паскале форма кавычки - употребляется всякий раз, когда значение типа char явно ука-
зывается в программе. Выполнение операторов n:=‘c‘; writeln(n) приводит к появлению на
экране символа с.
Рассмотрим пример 34. Пусть даны символы s
1
, s
2
,.Известно, что символ s
1
отличен от
символа
/. Пусть s
1
, ... , s
n
- символы данной последовательности, предшествующие первому
символу
/ (n заранее не известно). Подсчитать общее количество символов и количество
символов а среди s
1
, ... , s
n
XI:=(A+B+C)/3;
WRITELN(XI:5:2,’ ‘, A:4;2,’ ‘,B:4:2,’ ‘,C:4:2);
 A:=A+HA;
 B:=B+HB;
UNTIL I<=N
END.

Пример 33. Составить программу вычисления корня N-ой степени Y= n X c заданной по-
грешностью E по следующему рекуррентному соотношению:

                               1   X
       Y0 =X; YK= YK-1 +         ( N −1 − YK-1);
                               N
                                      Y   K −1
       K=1, 2, 3, ... до | YK- YK-1 | <=E

Для упрощения решения задачи введем переменную
                    1   X
      d = YK-YK-1 =   ( N −1 − YK-1);
                    N
                           Y   K −1
значение которой использовано для формирования условия окончания цикла с постусловием.

PROGRAM PR33;
VAR
 E,D,X,Y:REAL;
 N:INTEGER;
BEGIN
 WRITE(‘ Введите N,E,X);
 READLN(N,E,X);
 Y:=X;
  REPEAT
   D:=(X/EXP((N-1)*LN(Y))-Y)/N;
   Y:=Y+D;
  UNTIL ABS(D) <= E;
WRITELN(‘Корень ‘,N,’ степени из ‘,X4:2,’ равен ‘,Y:4:3);
END.

                                      2.19. Символьные переменные

      Обработка символьных (иначе: знаковых, литерных) данных становится возможной
благодаря привлечению значений и переменных типа CHAR. Значениями типа CHAR слу-
жат все те символы, которые могут быть высвечены на экране: буквы, цифры, знаки опера-
ций, скобки, пробел и т.д. Исключение составляет штрих ‘ , имеющий специальное назначе-
ние.
       Если в программе имеется описание
         n, w : char
то возможны, например, операторы присваивания n:=‘a’, n:=v, w:=‘* ‘ и т.д. Штрих ‘ - приня-
тая в Паскале форма кавычки - употребляется всякий раз, когда значение типа char явно ука-
зывается в программе. Выполнение операторов n:=‘c‘; writeln(n) приводит к появлению на
экране символа с.
      Рассмотрим пример 34. Пусть даны символы s1, s2,.Известно, что символ s1 отличен от
символа /. Пусть s1, ... , sn- символы данной последовательности, предшествующие первому
символу / (n заранее не известно). Подсчитать общее количество символов и количество
символов а среди s1, ... , sn
                                                                                         54

Страницы