Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Сложные типы данных и их использование

End.

Begin

2 4 8 16 32 64 128 256 512 1024

1 2 3 4 5 6 7 8 9 10

End.

Writeln

Begin

For i:=1 to 10 do write(i:5);

Writeln;

j:=2;

For i:=1 to 10 do begin

Write(j:5);

j:=j*2

end;

Программа вначале выведет значения показателей степени от 1 до 10, а затем сами степени, под соответствующими показателями:

 

Для стандартного ввода используется следующий синтаксис:

<процедура ввода>::=("Read"|"Readln) "("<элемент ввода> {"," <элемент ввода>}")".

Элемент ввода – это обязательно переменная типа Real, Integer, Char, или диапазонного типа на Integer или Char.

При выполнении процедуры ввода, данные поочередно считываются со стандартного устройства ввода и заносятся в соответствующие переменные – элементы ввода. Последовательность вводимых элементов данных должна соответствовать по типу переменным – элементам ввода.

При вводе нескольких элементов данных типа Real или Integer в одной строке, каждый элемент должен отделяться от предыдущего одним пробелом. Данные типа Char не должны отделяться друг от друга.

Если в текущей вводимой строке закончились элементы данных, а в списке ввода еще есть элементы ввода, ввод продолжается с начала следующей строки.

Разница между Read и Readln состоит в том, что если в текущей вводимой строке остались данные после выполнения процедуры Read,, следующая процедура ввода продолжит ввод из этой же строки, а процедура Readln в такой ситуации переведет указатель ввода на следующую строку и, таким образом, остаток текущей строки будет проигнорирован.

При вводе с клавиатуры рекомендуется использовать процедуру Readln.

Пример: Программа нахождения максимального числа из пяти целых чисел, вводимых с клавиатуры:

Program MaxNumber;

Var i,a,max: Integer;

write('Введите 1-е число >');

Readln(a);

max:=a;

For i:=2 to 5 do begin

write('Введите ',i,'-е число');

Readln(a);

If a>max then max:=a;

end;

Writeln('Наибольшее введенное число = ',max)

Ниже показано, как будет выглядеть обмен информацией с этой программой на дисплее, при вводе, например, чисел 0, -2, 8, 1, 3. Данные, вводимые с клавиатуры, в примере подчеркнуты для отличия их от данных, выводимых программой.

Введите 1-е число > 0

Введите 2-е число > -2

Введите 3-е число > 8

Введите 4-е число > 1

Введите 5-е число > 3

Наибольшее введенное число = 8

 

В предыдущем разделе уже рассмотрен один вид сложных типов данных – массивы. Здесь рассматриваются записи, множества и файлы. Также здесь рассматриваются указатели, которые, вообще говоря, не относятся к сложным типам, но применяются преимущественно с данными сложных типов, в основном, записями, для построения динамических структур данных.

<== предыдущая лекция | следующая лекция ==>
Стандартный ввод-вывод | Конструкция записи, тип записи и переменная типа запись
Поделиться с друзьями:


Дата добавления: 2014-01-11; Просмотров: 288; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.009 сек.