Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Числом повторений

Управление графическим режимом | Управление цветом и палитрой | Построение фигур из линий | Связанные динамические данные. Списки | Чтобы сослаться на двунаправленный кольцевой список как на единый программный объект, используется указатель, значением которого является ссылка на заглавное звено списка. | Очередь | Этап программирования. | Приоритет операций в выражении | Program TREUG; | ЛАБОРАТОРНАЯ РАБОТА 2 |


Читайте также:
  1. ВМЕСТО ЗАКЛЮЧЕНИЯ, ИЛИ НЕМНОГО ПОВТОРЕНИЙ
  2. Как насчет повторений?
  3. Церквушечкин — Да, сказать вот хотел я узнать по поводу многократных повторений слов в музыке......

Первая форма счетного оператора цикла позволяет наращивать пара­метр цикла на единицу (+ 1):

FOR <параметр цикла>:= <min значение>TO<max значение> DO <оператор>;

(Для) (увеличивая к) (выполнять)

где <параметр цикла> - это переменная целого либо любого порядкового типа; <min, max значения> - это начальное и конечное значения пара­метра цикла (выражения того же типа, что и параметр цикла).

Вторая форма позволяет уменьшать значение параметра цикла на еди­ницу (- 1):

FOR <параметр цикла>:= <max знач.> DOWNTO <min знач.> DO <оператор>; (Для) (уменьшая к) (делать)

Пример 1. Вычислить сумму элементов s=1+1/4+1/9+1/16+....

На основе анализа изменения параметра знаменателя определим алгоритм решения за­дачи (pис. 3) и напишем программу:

PROGRAM summa;

VAR s, r: REAL;

i, N: INTEGER;

BEGIN

s:=0;

WRITELN('введите N');

READ(N);

FOR I:=1 TO N DO

begin

r:=1/sqr(i);

s:=s+r;

end;

WRITELN('Сумма=',s:6:2);

END.

Пример 2. Вычислить значения

двух функций F1(x)=tg(x) и

F2(x)=sin(x) в n точках,

рав­номерно распределенных на

интервале a ≤ x ≤ b, где a=-π/4, b=π.

 
 


Для реализации данной задачи разработа-

на СА (pис. 4) и следующая программа:

 


Дата добавления: 2015-09-05; просмотров: 56 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Program zarplata2;| Program Lab3;

mybiblioteka.su - 2015-2024 год. (0.005 сек.)