Четверг, 28.03.2024, 23:16
ПРОГРАММИРОВАНИЕ ДЛЯ НОВИЧКОВ. ТУРБО ПАСКАЛЬ.
Приветствую Вас Гость | RSS
Главная Регистрация Вход
меню сайта

Форма входа

Поиск

Календарь
«  Март 2010  »
ПнВтСрЧтПтСбВс
1234567
891011121314
15161718192021
22232425262728
293031

Друзья сайта
Русские программы
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • сайт создан

    Главная » 2010 » Март » 15 » УРОК 14. ИСПОЛЬЗОВАНИЕ БЛОКОВ.
    08:11
    УРОК 14. ИСПОЛЬЗОВАНИЕ БЛОКОВ.

    УРОК 14.  ИСПОЛЬЗОВАНИЕ БЛОКОВ.

     

    ДАВАЙТЕ ПРЕДПОЛОЖИМ, ЧТО ВАМ ПРЕДСТОИТ НАПИСАТЬ ПРОГРАММУ С НЕСКОЛЬКИМИ УСЛОВИЯМИ! ДЛЯ УДОБСТВА НАПИСАНИЯ ТАКОЙ ПРОГРАММЫ, ВАМ СУЩЕСТВЕННО МОЖЕТ ПОМОЧЬ ИСПОЛЬЗОВАНИЕ БЛОКОВ BEGIN-END. ДЕЛО ВСЁ В ТОМ, ЧТО В ГЛАВНОМ ТЕЛЕ ПРОГРАММЫ МОЖЕТ ПРИСУТСТВОВАТЬ ЛЮБОЕ КОЛИЧЕСТВО ТАКИХ БЛОКОВ. ПРИ ЭТОМ, КАЖДЫЙ ОТДЕЛЬНЫЙ ТАКОЙ БЛОК БУДЕТ СЧИТАТЬСЯ ОДНОЙ КОНСТРУКЦИЕЙ, НАПРИМЕР:

     

    PROGRAM Primer (INPUT,OUTPUT);

    CONST

    Limit = 1000;

    VAR

    Amount: REAL;

    BEGIN

    WRITELN (‘ПОЖАЛУЙСТА, ВВЕДИТЕ СУММУ:’);

    READLN (Amount);

    IF Amount <= Limit THEN

    BEGIN

    WRITELN (‘ВАШ РАСХОД ПРИНЯТ!’);

    WRITELN ('ВАША ЦЕНА ВМЕСТЕ С НАЛОГАМИ:' 1.05*Amount:0:2);

    END;

    IF Amount > Limit THEN

    BEGIN

    WRITELN (‘СУММА ПРЕВАШАЕТ ЛИМИТ ВАШЕГО КРЕДИТА.’);

    END;

    WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ ENTER…’);

    READLN

    END.

     

     

    Просмотров: 1162 | Добавил: mila | Рейтинг: 3.5/4
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *:
    Архив записей

    Мини-чат

    подписка на рассыл
    Подписаться на турбо паскаль
    Имя:
    E-mail:

    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0

    Copyright MyCorp © 2024