FAR Manager — консольный файловый менеджер для операционных систем семейства Microsoft Windows.
Автор программы — Евгений Рошал. С 18 июня 2000 года разработкой FAR Manager занимается группа FAR Group. Начиная с версии 2.0 программа распространяется под модифицированной лицензией BSD. Предыдущие версии имели собственническую лицензию, по которой коммерческое использование программы являлось платным.
Программа FAR Manager наследует двухоконную идеологию, стандартную расцветку и систему команд (управление с клавиатуры) у известного файлового менеджера Norton Commander.
Norton Commander (сокращенно называемый на советском пространстве NC, сленг рус. Нортон ) — популярный файловый менеджер для DOS, первоначально разработанный американским программистом Джоном Соухэ. (Некоторые дополнительные компоненты были полностью или частично написаны другими людьми: Linda Dudinyak — Commander Mail, вьюверы; Peter Bradeen — Commander Mail; Keith Ermel, Brian Yoder — вьюверы.) Программа была выпущена компанией Peter Norton Computing (глава — Питер Нортон ), которая позже была приобретена корпорацией Symantec.
В течение нескольких лет Norton Commander конкурировал по степени популярности с файловыми менеджерами PCTools и XTree, однако уже с третьей версии Norton Commander вытеснил с персональных компьютеров эти программы.
Разработка велась с 1984 года (первоначально под названием VDOS). Первая версия была выпущена в 1986 году.
Вот моя игра . Угадай число.
program k2game;
uses crt;
var i,a,n:integer;
begin
textbackground(14);
clrscr;
gotoxy(33,2);
textcolor(4);
writeln('Игра "Угадай число!" ');
delay(400);
textcolor(5);
gotoxy(23,4);
writeln('1. Компьютер загадывает число от 0 до 9.');
delay(840);
textcolor(5);
gotoxy(23,5);
writeln('2. Ваша задача - угадать это число!');
delay(840);
textcolor(5);
gotoxy(23,6);
writeln('3. Не забывайте, что у вас всего две попытки!');
delay(640);
textcolor(5);
gotoxy(23,7);
writeln('4. Если же вы ошиблись, то компьютер даст вам подсказку.');
randomize;
a:=random(10);
n:=0;
textcolor(0);
repeat
gotoxy(23,9);
введите число.');
gotoxy(23,10);
readln(i);
if (i <> a) then
begin
n:=n+1;
gotoxy(23,11);
if (i>a) then writeln('Подсказка: Загаданное число меньше.')
else writeln('Подсказка: Загаданное число больше.')
end;
until ((i=a) or (n=2));
gotoxy(23,13);
textcolor(2);
if (i=a) then writeln('Поздравляю! Вы выйграли!')
Else writeln('К сожалению,н
о вы проиграли!');
end.
