TURBO PASCAL

Новости           

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности

Гостевая книга

От автора

Вещественные переменные и действия с ними

    Общим видом числа является такое, которое содержит и целую и дробную части. Такие числа называются вещественными.

Real

Comp

Последний тип используется для обработки вещественных чисел как математических целых и применяется в основном при обработке многоразрядной финансовой документации. Система описаний вещественных переменных ничем не отличается от описаний целых, например:

Var sad, kod, hhh: Real; nnn, fokus: Single; pole: Double;

или

Var sad, kod, hhh : Real;
nnn, fokus : Single;
pole : Double;

Следует отметить, что при вводе вещественные переменные могут представляться в различной форме, а при стандартном выводе - представляться в виде произведения *.***E<знак>**. Например, число 78,67 на выводе будет представлено так 7,8670000000E+01, а число 0,00567 - 5,670000000E-3.

Примечание: Единственным естественно опознаваемым типом вещественных данных является тип Real. Для обеспечения возможности использования остальных типов необходимо подключение {N+}, а для машин без встроенных арифметических сопроцессоров {N+,E+}.

Различные арифметические операции могут содержать и переменные разных типов, при этом тип результата определяется по старшинству операнда: Real-Longint-Integer-Word-Bute.

Простейшие методы ввода данных и вывода результатов на экран

    Для ввода значений переменных непосредственно с клавиатуры используются операторы Read(n1,n2,...); или ReadLn(n1,n2,...);

Если вводится одна переменная, то использование обеих переменных - равнозначно. При вводе нескольких переменных первым оператором после каждой переменной надо нажимать клавишу [Enter], а при использовании второго оператора все вводимые переменные следует расположить в одну строку и только после этого нажать клавишу [Enter]. Пока все перечисленные в операторах переменные не будут определены - дальнейшая работа программы не начнется! Особо следует отметить "пустой" оператор Readln;, который позволяет сохранять на экране выведенные тексты до тех пор, пока не будет нажата клавиша [Enter]. При отсутствии этого оператора по завершении работы данные можно просмотреть, нажав клавиши [Alt]+[F5]. Если в ходе работы выявится программная ошибка, приведшая к незапланированному счету, то приостановить этот процесс можно нажатием клавиш [Ctrl]+[C].

Для вывода информации на экран компьютера используются операторы Write(<выводимые переменные и тексты>);.

В первом операторе после вывода текста курсор останется на выводимой строке, во втором - переместится на следующую строку.

Если в структуре вывода следует отделить одну группу данных от другой, то это можно сделать оператором WriteLn;.

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

Например:

Write('введите целое n и вещественное delta'); ReadLn(n,delta):
WriteLn('площадь треугольника=',sss,'его периметр=',per);

В примере после выполнения работы на экране появится надпись:

Площадь треугольника=1,2356400000E+03,
его периметр=2,8340100000E+02.

Примеры простейших программ.

Пример 1

Program Pr01; {первая тренировочная программа. Фигурными скобками отмечаются комментарии к программе, которые не компилируются и просто остаются в тексте}
Var {Начало зоны описания переменных}
а1,dg : Integer;
dd,ura : Real;
Begin {Указание на выполнение программного блока. Наличие его обязательно}
Write('введите целочисленную переменную а1'); ReadLn(а1);
Write('введите вещественную переменную dd'); ReadLn(dd);
dg:=а1*а1;
ura:=dd*dd;
WriteLn('квадрат введённого целого=',dg); WriteLn('квадрат вещественного=',ura);
Readin;
End. {служебное слово, отмечающее конец выполнения программного блока. Его наличие - обязательно.}

Комментарии могут записываться и в иной форме, а именно (*Это - комментарий к программе*)

содержание

(с)Все права защищены

По всем интересующим вопросампрошу писать на электронный адрес

    Rambler's Top100 PROext: Top 1000
    Rambler's Top100 Яндекс цитирования
Hosted by uCoz