В качестве небольшой разминки предлагаем решить следующие задачи

Выберите номер пункта, соответствующий назначению данной программы

Program AA;
uses crt, dos;
var
 hh : file;
 ff, ffff, gggg : file of integer;
 nnn, kkk : string;
 m1, m2, k, i : integer;
begin
 readln(nnn); assign(ff,nnn); reset(ff);

 readln(kkk); assign(ffff,kkk); rewrite(ffff); close(ffff);

 while not eof(ff) do begin
 read(ff,m1);

 assign(ffff,kkk); reset(ffff);
 m2:=m1-1; k:=0;
 while not eof(ffff) and (m1>m2) do begin
 read(ffff,m2);
 k:=k+1;
 end;
 close(ffff);

 assign(ffff,kkk); reset(ffff);
 assign(gggg,'aux.dat'); rewrite(gggg);
 for i:=1 to k-1 do begin
 read(ffff,m2); write(gggg,m2);
 end;
 write(gggg,m1);
 while not eof(ffff) do begin
 read(ffff,m2); write(gggg,m2);
 end;
 close(ffff); close(gggg);

 assign(hh,'aux.dat'); rename(hh,kkk);
 end;

 close(ff);
end.

  1. Текстовый редактор
  2. Графический редактор
  3. Архиватор (сжатие)
  4. Архиватор (разархивирование)
  5. Электронная таблица
  6. Игра "Перебежать по доскам"
  7. Игра "Тир"
  8. Объединение 2-х файлов
  9. Разбиение файла
  10. Поиск в текстовом файле
  11. Программа очистки экрана дисплея
  12. Резидентная программа очистки экрана дисплея
  13. Игра "Гусеница — пожирательница цифр"
  14. Сортировка файла чисел
  15. Рисование спирали
  16. Программа уничтожения всех файлов в текущем подкаталоге
  17. Простейшая надстройка над ДОС
  18. Программа рисования шахматной доски
  19. Игра "Тараканьи бега"
  20. Инвертирование цветов на экране дисплея в графическом режиме
  21. Программа "Секундомер"
  22. Программа "Бегущий человечек"
  23. Программа "Подпрыгивающий символ"

Задачи предоставлены Александром ПРИХОДЬКО
Курсы-студия программирования, тел. 51-24-30

Версия для печатиВерсия для печати

Номер: 

14 за 1997 год

Рубрика: 

Self-test
Заметили ошибку? Выделите ее мышкой и нажмите Ctrl+Enter!