• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Приклад 1 програми з оператором While

Обчислити суму S=1+1/2+1/3+…+1/50, використовуючи оператор While

Program Example_1 ;

VAR S: REAL; N:INTEGER;

BEGIN

S:=0; N:=1;

WHILE N<=50 DO

BEGIN

S:=S+1/N;

N:=N+1;

END;

WRITELN(' S=',S);

END.

Загальний вигляд оператора циклу з післяумовою:

repeat P until<логічний вираз>;

де значення всіх параметрів такі самі, як і в попередньому
операторі.

Цикл з післяумовою працює таким чином: повторення оператора Рвідбувається доти, поки логічний вираз от­римує значення false. Якщо тільки на деякому кроці циклулогічний вираз набуде значення true,цикл завершить свою роботу.

Чи відчули ви відмінність між операторами while ... doта repeat ... until?Перший оператор спочатку перевіряє значення логічного виразу, а потім вирішує, виконувати йому оператор, чи ні, а другий, навпаки, спочатку виконує вказаний оператор, а потім перевіряє, чи треба його виконувати ще раз.

Розглянемо приклад: Обчислити суму S=1+1/2+1/3+…+1/50, використовуючи оператор Repeat

Program Example_3 ;

VAR S: REAL; N:INTEGER;

BEGIN

S:=0; N:=1;

REPEAT

S:=S+1/N;

N:=N+1;

UNTIL N>50;

WRITELN(' S=',S);

END.

Читайте також:

1. II. Вимоги до складання паспорта бюджетної програми
2. While правда do begin
3. Абсолютні синоніми (наприклад, власне мовні й запозичені) в одному тексті ділового стилю вживати не рекомендується.
4. Алгоритм однофакторного дисперсійного аналізу за Фішером. Приклад
5. Алгоритм створення тренінгової програми
6. Анімаційні програми
7. Антивірусні програми
8. Базові та прикладні класифікації
9. В чому полягає явище тунелювання через потенціальний бар’єр, наведіть приклади.
10. Важливою складовою економічної політики 60-х рр. була реалізація програми “нових рубежів” президента Дж. Кенеді.
11. Визначення змінних програми.
12. Визначення і приклади

Переглядів: 833