Язык программирования Pascal. Строки и записи. Васильев В.В - 11 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

11
fut:0..2;
dyum:0..11
end;
В настоящее время наиболее распространенной является метрическая сис-
тема мер, основанная на десятичной системе счисления. До сих пор в некото-
рых местах используют дюймовую систему измерения длин . 1 дюйм
≈
2,54 см. 12
дюймов составляют фут . 3 фута равны 1 ярду. Согласно легенде, эталон ярда
был установлен в Англии в 1101 г. (ярд равнялся расстоянию от кончика носа
короля Генриха I до кончика большого пальца его вытянутой руки ).
Задача 1. Составьте программу, заменяющую дюймовые единицы длины
на метрические .
Program Dyum_system;
Uses crt;
Type dlina = record yard:0..maxint; fut:0..2; dyum:0..11
end;
Var d:dlina;
Begin
Textbackground(7); Textcolor(blue); Clrscr;
Writeln('* Введите длину в дюймовой системе измерения *');
Write('Ярды: '); Readln(d.yard);
Write('Футы: '); Readln(d.fut);
Write('Дюймы: '); Readln(d.dyum);
Write('В метрической системе длина = ');
Write((d.dyum+12*d.fut+36*d.yard)*0.0254:7:4,' м');
readkey
End.{Dyum_system}
Читать и выводить запись можно только поэлементно, если для элемен -
тов записи определены операции ввода -вывода .
Ссылка на элемент записи осуществляется по имени переменной типа
запись и имени поля, разделенных точкой!
Составное имя - имя элемента составной структуры данных, состоящее
из имени структуры, имен компонент (в которые вложен данный элемент) и
имени элемента, разделенных точками.
Задача 2. Составьте программу для сложения двух расстояний , измерен -
ных в дюймовой системе .
Program Add_dyum;
Uses crt;
Var a,b,r:record yard:0..maxint; fut:0..2; dyum:0..11
end; s:integer;
Begin
Textbackground(7); Textcolor(blue); Clrscr;
Writeln('* Введите длину a в дюймовой системе измерения *');
Write('Ярды: '); Readln(a.yard);
Write('Футы: '); Readln(a.fut);

Страницы