Tipo - Learn · Pascal · Типо Лерн

Perfect vision for programming

> Урок 1 > Урок 2 > Урок 3 > Урок 4 > Урок 5 > Урок 6 > Урок 7 > Урок 8 > Урок 9 > Урок 10 > Урок 11 > Урок 12 (Вы здесь)
Файлы. Работа с файлами
Работа с файлами ЗАДАЧА: В Текстовом input.txt файле записана строка, разделитель слов - пробел. Переверните каждое слово в строке и запишите ответ в файл output.dat Эталонный вид решения _____________________________ _____________________________ \| input.txt \| \| output.dat \| \|ur.nrael-opiT медуб !ыдар \| \|Tipo - Learn.ru будем рады! \| \| \| \| \| \|_____________________________\| \|_____________________________\|
Описание типа данных переменных uses crt; var f,f1:TEXT; // Т.к. в файле может находиться несколько типов данных, то присваиваем тип 'TEXT' s,s1,s2:STRING; i:INTEGER; BEGIN Объявление файловых переменных ASSIGN (f,'input.txt'); // Объявили существующий файл 'input.txt', как 'f'. Reset (f); // Открыли файл 'f'. ASSIGN (f1,'output.dat'); // Объявили файл вывода 'output.dat', как 'f1'. Rewrite (f1); // Создали файл. Если файл уже существует, то удалили все содержимое и поставили курсор в начало файла. Выполнение основной задачи и закрытие файлов While NOT EOF (f) DO // Запускаем цикл - пока не конец файла. Begin READLN (f,s); // Считали строку из файла 'f' в переменную 's'. s1:=''; // "Очистили" строку. For i:=1 TO LENGTH (s) DO // Запускаем цикл до конца строки. begin If s[i] = ' ' THEN // Если встретили пробел, то begin write (f1,s1,s[i]); // Записали в файл 'f' из строки s1 символ s[i]. s1:=''; // "Очистили" строку. End ElSE s1:=s[i]+s1; // Иначе (если s[i] НЕ пробел). End; IF s1<>'' THEN write (f1,s1) Else writeln(f1); End; Close (f); // Закрываем файл. Close (f1); END.
ЗАДАЧА: Написать программу с меню, которая по нажатию на соответствующую цифру Создает файл и заполняет его 10-ю случайными двузначными числами Выводит содержимое файла Находит минимальное число в файла Находит максимальное число в файле Добавляет в начало введеное число Добавляет в конец введеное число Удаляет первое число из файла Удаляет последнее число из файла Описание типов данных переменных uses crt; var f,f2:FILE OF INTEGER; j,i,b,a,min,max,n1,n2,g:INTEGER; ch:CHAR; BEGIN Создание меню и объявление файловых переменных Gotoxy (1,1); write ('1-Создание файла'); Gotoxy (1,2); write ('2-Вывод файла'); Gotoxy (1,3); write ('3-Поиск минимального'); Gotoxy (1,4); write ('4-Поиск максимального'); Gotoxy (1,5); write ('5-Добавить в начало'); Gotoxy (1,6); write ('6-Добавить в конец'); Gotoxy (1,7); write ('7-Удаляет первое'); Gotoxy (1,8); write ('8-Удаляет последнее'); Gotoxy (1,9); write ('9-Заменяет заданное число на случайное двузначное число.'); Gotoxy (1,12); write ('0-Выход'); Gotoxy (1,13); write ('Выберите режим'); Assign (f,'1.dan'); REWRITE (f); reset(f); Assign (f2,'2.dan'); Rewrite (f2); Создание разветвляющего алгоритма CASE WHILE ch<>'0' DO begin gotoxy (16,13); ch:=readkey; CASE ch OF 1-Создание файла '1': begin FOR i:=1 TO 10 DO begin a:=10+random (90); write (f,a); end; end; 2-Вывод файла '2': begin gotoxy (23,2); SEEK (f,0); FOR i:=1 TO filesize (f) DO begin read (f,a); write (a,' '); end; end; 3-Поиск минимального '3': begin gotoxy (23,3); SEEK (f,0); read (f,min); FOR i:=1 TO filesize (f)-1 DO begin read (f,a); IF a < min THEN min:=a; end; write (min); end; 4-Поиск максимального '4': begin gotoxy (23,4); SEEK (f,0); read (f,max); FOR i:=1 TO filesize (f)-1 DO begin read (f,a); IF a>max THEN max:=a; end; write (max); end; 5-Добавить в начало '5': begin gotoxy (23,5); FOR i:=filesize (f)-1 DownTo 0 DO begin SEEK (f,i); read (f,a); write (f,a); end; Seek (f,0); FOR i:=1 TO filesize (f) DO begin read (f,a); write (a,' '); end; end; 6-Добавить в конец '6': begin gotoxy (24,6); a:=Random (10); SEEK (f,FileSize (f)); write (a); end; 7-Удаляет первое '7': begin IF FILESIZE (f)=0 THEN begin gotoxy (19,7); write ('Файл пуст.'); end ELSE begin SEEK (f,filesize(f)-1); TRUNCATE (f); end; end; 8-Удаляет последнее '8': begin IF FILESIZE (f)=0 THEN begin gotoxy (19,7); write ('Файл пуст.'); end; For i:=1 DOWNTO filesize (f)-1 DO begin SEEK (f,i); READ (f,a); SEEK (f,i-1); write (f,b); TRUNCATE (f); end; end; 9-Заменяет заданное число на случайное двузначное число. Закрытие файлов. Завершение программы. '9': begin b:=10+random (90); SEEK (f,0); gotoxy (58,9); FOR i:=0 To filesize(f) DO begin SEEK (f,i); read (f,a); If a=50 THEN begin SEEK (f,i); write (f,b); end; write (f,a); end; Seek (f,0); write (random ((90)+10)); end; end;//! end;//! close (f); close (f2);