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

Форма входа

Поиск

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

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

  • сайт создан

    Главная » 2010 » Март » 2 » УРОК 6. ПРЕОБРАЗОВАНИЕ ТИПОВ.
    08:19
    УРОК 6. ПРЕОБРАЗОВАНИЕ ТИПОВ.

    ШЕСТОЙ УРОК.  ПРЕОБРАЗОВАНИЕ ТИПОВ.

    В ТУРБО ПАСКАЛЕ ПОЧТИ НЕВОЗМОЖНО АВТОМАТИЧЕСКОЕ ПРЕОБРАЗОВАНИЕ ТИПОВ. ИСКЛЮЧЕНИЕ ЯВЛЯЕТСЯ ТОЛЬКО В ОТНОШЕНИИ КОНСТАНТ И ПЕРЕМЕННЫХ ТИПА INTEGER (ЦЕЛЫЕ), КОТОРОЕ МОЖНО ПРИСВОИТЬ ПЕРЕМЕННОЙ ВЕЩЕСТВЕННОГО ТИПА, НО НЕ НАОБОРОТ. ОДНАКО ЕСТЬ ВОЗМОЖНОСТЬ ВЫПОЛНИТЬ ПРЕОБРАЗОВАНИЕ, ПРИ ПОМОЩИ ТАКИХ ФУНКЦИЙ, КАК:

    ROUND (N) – ОКРУГЛЯЕТ (N) ДО БЛИЖАЙШЕГО ЦЕЛОГО;

    TRUNC (N) – ОТСЕКАЕТ ДРОБНУЮ ЧАСТЬ (N)

    ГДЕ (N) – ВЕЩЕСТВЕННАЯ ПЕРЕМЕННАЯ ИЛИ ВЫРАЖЕНИЕ.

    НАПРИМЕР, ОШИБКОЙ БУДЕТ ВОТ ТАКОЕ НАПИСАНИЕ:

    X := Y/X;

    ПРАВИЛЬНО БУДЕТ НАПИСАТЬ ВОТ ТАК:

    X := ROUND (Y/X);

    ДАВАЙТЕ НА ПРОГРАММЕ ИЗ ЧЕТВЁРТОГО УРОКА (ВЫЧИСЛЕНИЕ ДЛИНЫ ОКРУЖНОСТИ), ПОСМОТРИМ КАК ЭТО ВСЁ ДЕЙСТВУЕТ. ИЗМЕНИМ ПРОГРАММУ ВОТ ТАК:

    PROGRAM Primer7 (INPUT,OUTPUT);

    CONST

    Pi = 3.14159;

    VAR

    Perimeter, Radius: REAL;

    RoundPerimeter, TruncPerimeter: INTEGER;

    BEGIN

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

    READLN (Radius);

    Perimeter := 2*Pi*Radius;

    RoundPerimeter := ROUND (Perimeter);

    TruncPerimeter := TRUNC (Perimeter);

    WRITELN (‘ДЛИНА ОКРУЖНОСТИ =’,Perimeter);

    WRITELN (‘ДЛИНА ОКРУЖНОСТИ ОКРУГЛЁННАЯ=’,RoundPerimeter);

    WRITELN (‘ДЛИНА ОКРУЖНОСТИ УСЕЧЁННАЯ=’,TruncPerimeter);

    END.

    ПОСМОТРИТЕ НА РЕЗУЛЬТАТ И ПРОАНАЛИЗИРУЙТЕ. ПОПРОБУЙТЕ СОСТАВИТЬ СВОЮ ПРОГРАММУ И ВНИМАТЕЛЬНО ИЗУЧИТЕ РЕЗУЛЬТАТ.

    НУ А Я С ВАМИ ПРОЩАЮСЬ ДО СЛЕДУЮЩЕГО УРОКА!
    Просмотров: 589 | Добавил: mila | Рейтинг: 0.0/0
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *:
    Архив записей

    Мини-чат

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

    Статистика

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

    Copyright MyCorp © 2018