Лабораторная № 8 «Запись ввода с клавиатуры в файл» по Программированию (Попов Д. И.)

Кирилл Николоев вс, 24.04.2016 16:44

Задание1. Цель работы Необходимо чтобы информация, набираемая на клавиатуре, записывалась в файл с именем a.txt. Разработка программы program Project8_1; {$APPTYPE CONSOLE} uses SysUtils; var f:text;

a:array[1100]of string; i:integer; begin writeln('laboratornaya rabota 8-1'); writeln('zapic v fail'); writeln('Molotkova Elena'); writeln; Assign(f,'D:\a.txt'); Rewrite(f);

writeln('Vvedite tekst dlya zapisi'); writeln('Esli xotite zakon4it to naberite end'); writeln; i:=0; repeat inc(i); readln(a[i]); writeln(f,a[i]); until(a[i]='end'); CloseFile(f);

readln; end. Скриншот работы программы: Задание2. Цель работы В файле a.txt было записано три символа «aaa», заменить их на «aca». Использовать типизированный файл. Разработка программы program Project8_2;

{$APPTYPE CONSOLE} uses SysUtils; var f:file of char; c:char; begin writeln('laboratornaya rabota 8-2'); writeln('zamena v file'); writeln('Molotkova Elena'); writeln; c:='c';

Reset(f,'D:\a.txt'); Seek(f,1); write(f,c); writeln('zamena proizvedena'); CloseFile(f); readln; end. Скриншот работы программы: Задание3. Цель работы Дан текстовый файл. Необходимо ввести с клавиатуры строку символов и выдавать на экран номер позиции в текстовом файле, начиная с которой эта подстрока в нём встречается, и соответствующее сообщение, если этой подстроки нет.

Разработка программы program Project8_3; {$APPTYPE CONSOLE} uses SysUtils; var f:text; z:string; a:array[1100]of string; i,p,y,n:integer; begin writeln('Laboratornaya rabota 8-3'); writeln('podstroka');

Скачать файлы

Похожие документы