Для тестирования Можно создать тестовые файлы с следующей программы: type tR = real; tF = file of tR;
procedure WF(fn: string; m, n: integer); var fout: tF; i: integer; begin Assign(fout, fn); Rewrite(fout); for i := m to n do Write(fout, i / 2); Close(fout) end;
Ну и вопрос.. . это служебные клавиши которые выполняют специфические задачи в разных преложениях (программах) например Таблица горячих клавиш для MS Word: (эта таблица горячих клавиш Вам сделать работу с программой более эффективной, использование даже нескольких основных сочетаний горячих клавиш Word, при работе с программой заметно ускорить процесс создания и редактирования документов) .
Горячие клавиши word: F1 - Вызов справки или F2 - Перемещение текста или рисунков F3 - Вставка элемента автотекста F4 - Повторить последнее действие F5 - Перейти (меню «Правка» ) F6 - Переход к следующей области F7 - Правописание (меню «Сервис» ) F8 - Расширение выделения F9 - Обновление выделенных полей F10 - Перейти в строку меню F11 - переход к следующему полю F12 - Выполнить команду Сохранить как (меню «Файл» )
SHIFT+: F1 - Вызов контекстной справки F2 - Копирование текста F3 - Изменение регистра букв F4 - Найти или Перейти далее F5 - Переход к предыдущему исправлению F6 - Перейти в предыдущую область окна F7 - Тезаурус (меню «Сервис» ) F8 - Уменьшение выделения F9 - Отображение кодов или значений полей F10 - Вывести контекстное меню F11 - переход к предыдущему полю F12 - Выполнить команду Сохранить (меню «Файл» )
ALT+: F1 - Переход к следующему полю F3 - Создание элемента автотекста F4 - Выход из Word F5 - Прежние размеры окна программы F7 - Следующая ошибка F8 - Запуск макроса F9 - отображение кодов или значений всех полей F10 - развёртывание окна программы F11 - Отображение кода VISUAL BASIC
CTRL+ ALT+: F1 - Сведения о системе F2 - Открыть (меню «Файл» )
CTRL+: F2 - предварительный просмотр F3 - Удаление выделенного фрагмента в копилку F4 - Закрытие окна F5 - Прежние размеры окна документа F6 - Переход к следующему окну F7 - Переместить (оконное меню) F8 - Размер (оконное меню) F9 - вставка пустого поля F10 - Развернуть или восстановить окно документа F11 - блокировка поля F12 - Выполнить команду Открыть (меню «Файл»)
uses crt;
var i,j,p,a,b,c,d,a1,b1,c1,d1:integer;
begin
clrscr;
writeln('Числа Армстронга на интервале [100..9999]');
for i:=100 to 9999 do
begin
if(i<1000) then p:=3 else p:=4;
a:=i div 1000;
b:=i div 100 mod 10;
c:=i div 10 mod 10;
d:=i mod 10;
a1:=1;b1:=1;c1:=1;d1:=1;
for j:=1 to p do
begin
a1:=a1*a;
b1:=b1*b;
c1:=c1*c;
d1:=d1*d;
end;
if a1+b1+c1+d1=i then write(i,' ');
end;
readln
end.
наверно правильно