- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
Program L_121;
uses crt;
Var N : integer;
b,z : string;
f1 : text;
Begin
assign(f1,'Единица измерения.txt');
writeln('1 Соотношение конкретной единицы измерения длины');
writeln('2 Соотношение единиц измерения длины');
writeln('3 Обозначение единиц измерения длины');
writeln('4 Назначение единиц измерения длины');
read(N);clrscr;
reset(f1);
case N of
1:begin
write('Введите единицу измерения : ');
read(b);clrscr;
readln(f1,z);writeln(z);
if b='миллиметр' then begin readln(f1,z);writeln(z); end;
if b='сантиметр' then begin readln(f1,z);readln(f1,z);writeln(z); end;
if b='дециметр' then begin readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
if b='метр' then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
if b='километр' then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z); end;
end;
2:begin
readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
end;
3:begin
readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
end;
4:begin
readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
readln(f1,z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
end;
end;
End.
CTEPTOP 07.09.2016 19:34 # −69
CPAHA9I_CCAHIHA 07.09.2016 19:50 # −3
guestinho 07.09.2016 20:01 # −2
bot 08.09.2016 09:48 # −1
Steve_Brown 08.09.2016 12:37 # −1
BagorCtretora 17.09.2016 04:02 # −64
dxd 17.09.2016 08:35 # +2
CHayT 13.12.2016 21:15 # 0
dxd 13.12.2016 21:54 # +3
Астрофизики эту линию очень любят, потому что по ней можно как красное смещение исследовать, так и плотность водорода в облаках измерять.
CHayT 13.12.2016 23:00 # +1
dxd 14.12.2016 07:58 # +2
inkanus-gray 14.12.2016 05:48 # 0
inkanus-gray 14.12.2016 07:37 # 0
inkanus-gray 14.12.2016 07:02 # 0
Переход через эту Дверь разительно отличался от перехода через Дверь предыдущую. Зоров ощутил, как его мгновенно и умело разобрали на мельчайшие праатомы и тут же собрали вновь; ощущение это было не то чтобы болезненным, но крайне неприятным, что-то вроде падения в бесконечную темную пропасть в ночном кошмаре. И еще он почувствовал удар по глазам от мощной красно-черной вспышки... смешение цветов было поистине невероятное: жуткий, как и все абсолютное, черный цвет, и красный всех мыслимых и немыслимых оттенков, от инфрабагрового до ультраалого...
Александр Соболь, Валерий Шпаков. Все цвета радуги (Оракул Вселенной - 3).
inkanus-gray 14.12.2016 07:11 # 0
Полный ярости Голос вырвавшегося:
— Жругр! Не лукавь! С демиургом нет торга!
Ты мне ответишь за все головой!
Голос Жругра:
— Знаю! Борюсь! Но ток демиурга
Парализует мне центр волевой.
Голоса раруггов:
— Круча Небесной России извергла
Целую рать просветленных на бой.
Возглас Великого Игвы:
— Вижу, как грады других демиургов
Сонмы Синклита сзывают трубой.
Голоса ангелов мрака:
— Инфрабагровое пламя померкло!
Даймоны, ангелы стали стеной!
Д. Л. Андреев. Железная мистерия.
inkanus-gray 14.12.2016 07:12 # 0
Фиолетовое свечение повсюду, сполохами, похожими на солнечные протуберанцы. Инфралиловый очень темный и очень яркий одновременно, воспринимается густым и насыщенным. Инфрабагровый выглядит как черный, но однозначно понимаешь, что это красный. Цвета окружения - красные, желтые, оранжевого много. Кирпичный цвет повсеместно. Кстати, местами красиво даже. Зелени и синевы нет в принципе, хотя холодный серый иногда на контрасте воспринимается как болотно-зеленый.
Отсюда: http://great-igva.livejournal.com/10151.html
inkanus-gray 14.12.2016 07:20 # 0
Во всем есть свет
В крови детей разбрызганной по стенке дома
Разводы красные плывут, как облака зарей ведомы
В разбитых стеклах перелив
Горящих радостно пожаров
И даже там где Бог лишь миф
В мирах что созданы для кары
В инфрабагровом легок лет
На черных крыльях отблеск Бога
Он поводырь а я как Лот
Бреду за ним в холмах пологих.
Но лишь направлю к небу взгляд
Два солнца с Солнцем говорят.
Феликс Комаров: http://www.stihi.ru/2005/11/15-1520
inkanus-gray 14.12.2016 07:22 # 0
P.S. Почему Гугл нашёл только один источник (в предыдущем комментарии ссылка на ЖЖ), а Бинг вообще молчит? Большинство примеров найдены Яндексом и тупым поисковиком go.mail.ru.
BagorCtretora 08.09.2016 12:52 # −65
bagor 09.09.2016 00:14 # −65