logo
Лекции по TURBO PASCAL

Самостоятельные задания

  1. Составьте программу нахождения суммы двух чисел с использованием функции.

  2. Составьте программу нахождения площади круга по заданному целому значению радиуса. Решите это задание двумя способами: с использованием процедуры; с использованием функцией. Обратите внимание на оформление программы, не забывайте, что подпрограммы должны только вычислять, но не выводить сообщений на экран.

  3. Составьте процедуру поиска суммы цифр двузначного числа. Если задано не двузначное число, вернуть результат 0.

  4. Составить функцию для поиска суммы цифр трёхзначного числа.

  1. Циклы

Определение.

Цикл – это структура языка, которая предписывает многократное выполнение указанного оператора.

Говоря проще, цикл - это такой оператор, который заставляет компьютер многократно повторять некоторые действия. Образно это можно записать так:

ЦИКЛ 10 раз

начало цикла

write ('*');

конец цикла

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

Например:

write ('<');

ЦИКЛ 5 раз

начало цикла

write ('Да-');

конец цикла

write ('>');

В результате выполнения этих операторов на экран напечатается следующее:

<Да-Да-Да-Да-Да->

Обратите внимание, что слово "Да" было напечатано 5 раз, а каждая из угловых скобок – только один раз. Почему именно так? Потому что оператор

write('Да-')

выполняется 5 раз, так как он находится внутри цикла, а операторы

write ('<');

и

write('>')

только один, так как он находится вне цикла.

Итак, всё, что находится внутри цикла (для наглядности эта область заключена в рамочку), выполняется несколько раз подряд. Всё что вне цикла – выполняется только один раз.

Однако в Паскале нет оператора цикла "N раз", зато есть три других:

For, While и Repeat (Для, Пока и Повторять).

Из них на наш цикл "N раз" больше всего похож цикл For, c которым мы сейчас и познакомимся.

    1.