Для деревини основними й найважливішими є такі властивості.
Механіко-технологічні: міцність, твердість, деформівність, питома в'язкість, експлуатаційні характеристики, технологічні характеристики, зносостійкість, здатність утримувати кріплення, гнучкість;
Фізичні: зовнішній вигляд (текстура, блиск, колір), вологість (усушка, жолоблення, водопоглинення, гігроскопічність, щільність), теплові (теплопровідність, теплоємність), звукові (акустичний опір, звукопровідність), електричні (діелектричні властивості, електропровідність, електрична міцність
автор: Расул Гамзатов
произвидение: "Горянка"
Судьба горянки, её непростая и, в общем-то, нелегкая жизнь, с самых первых шагов в поэзии были и остаются предметом раздумий и размышлений Расула Гамзатова. Здесь свою учебу он походил не только в «училище любви», но и в школе сострадания, сочувствия женской доле, столь тяжелой в времена. Автор поэмы восхищается смелостью, стойкостью горских женщин, их красотой, их постоянством…. Голос поэта негромок без любви, ему, может быть, как никому другому, нужно испытать и выразить в слове всю гамму человеческих переживаний, связанных с этим животворящим чувством. Не испытай все сам – никогда не скажешь так, чтоб было понято всеми.
Народный поэт был скромен в выражении своих любовных чувств – и время было другое, когда приходилось «наступать на горло собственной песне», и песня была другая. Расул Гамзатов разомкнул этот круг – впервые в аварской советской поэзии столь проникновенно начал писать о своем чувстве. Риск остаться непонятым был велик, но поскольку его стихи близки каждому, настороженность быстро . Формулой поэтического творчества Расула Гамзатова могла бы стать мысль о том, что певец любви всегда является певцом свободы. Незакрепощенность переходит в незащищенность, открытость – в откровение. На таком дыхании писались первые стихи поэта о любви.
model - марка автомобиля
nomer - номер
name - фамилия
Сам файл имеет полное имя d:\car.txt
Тогда программа будет иметь вид:
type
tcar=record
model:string;
nomer: string;
name: string;
end;
var
f:file;
car: tcar;
m:string;
begin
assign(f,'d:\car.txt');
reset(f);
write('Введите марку машины: ');
read(m);
while not eof(f) do
begin
read(f,car);
if m=car.model then
writeln(car.name,' ',car.nomer);
end;
close(f);
end.