Приоритет выполнения логических операций в Pascal.

Логические операции применяются при написании многих программ в Pascal. Все операции имеют определенный приоритет выполнения : Первой выполняется операция NOT. Второй выполняется операция AND. Последними выполняются операции OR и XOR (Они имеют ...

Функции LENGTH и CONCAT.

Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...

Использование program, begin…end, write, readln, Uses Crt, Clrscr.

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

Циклы и массивы

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Многомерные массивы.

Индексы имеют еще одно свойство — чем больше объем массива, тем менее эффективна с ним работа, поэтому часто используют массивы массивов, то есть с двумя, тремя и более индексами для идентификации ...

До этого мы рассматривали примеры, где тип запись описывал какой-то один объект (автомобиль). Для того чтобы описать несколько объектов (автомобилей) необходимо использовать массив записей.

 Использование массивов записей.


program zapisi5;
uses crt;
type opisanie=record
marka: string[45];
color: string[8];
probeg: real;
end;
var auto:array [1..3] of opisanie;
i:integer;
t:integer;
begin
clrscr;
writeln ('Введите описание автомобиля ');
for i:=1 to 3 do
begin
writeln ('Введите марку ',i,' автомобиля');
readln (auto[i].marka);
writeln ('Введите цвет ',i,' автомобиля');
readln (auto[i].color);
writeln ('Введите пробег ',i,' автомобиля');
readln (auto[i].probeg)
end;
writeln ('Все данные введены');
writeln ;
writeln ('Выберите марку автомобиля');
writeln ('Ваз - нажмите 1');
writeln ('BMW - нажмите 2');
writeln ('AUDI - нажмите 3');
readln (t);
for i:=1 to 3 do
if i=t then
begin
writeln (' Марка автомобиля: ', auto[i].marka);
writeln(' Цвет автомобиля: ', auto[i].color);
writeln(' Пробег автомобиля : ', auto[i].probeg:6:0);
end;
readln
end.

В строке №3 - №7 мы создаем запись.

Строка №8. Объявляем массив под названием «auto», состоящий из 3-х элементов и указываем для него тип «opisanie». Благодаря строке №8 мы теперь можем создавать описание сразу для трех объектов.

Строка №9. Объявляем переменную «i», которая будет являться счетчиком для цикла.

Строка №10. Переменная «t» понадобится нам для выбора автомобиля.

Строка №14. Записываем цикл. Внутри цикла запишем 6 операторов (строка №16 - №21). Таким образом, на экран будет выведено в общей сложности 9 сообщений и 9 раз нам будет необходимо ввести информацию о 3-х автомобилях.

После ввода всех данных на экране появится сообщение (строка №25 - №28).

Выбираем нужную нам марку автомобиля и вводим с клавиатуры соответствующее число (строка №29).

Строка №30. Опять записываем цикл и в нем указываем условие (строка №31). Благодаря этому условию при достижении циклом  шага, равного переменной «t» (т.е. тому значению, которое мы введем с клавиатуры), на экран будут выведены соответствующие результаты.

massiv zapiseyjmassiv zapiseyj.

massiv zapiseyj..


Предыдущая статья : Оператор присоединения With . . Do.

Оглавление : Уроки Паскаль. Записи.

Следующая статья : Записи с вариантами.


Комментарии  

 
-1 # Семён 13.05.2012 06:31
а как можно сделать динамический массив?
 
 
+1 # Андрей 21.11.2012 05:20
Мне кажется что в 30 строке цикл не нужен, гораздо легче в 33,34,35 строчках просто в квадратные скобки вставить переменную t.
 
   ГлавнаяПаскальЗаписи в ПаскальВложенные записи.