Всё для Учёбы — студенческий файлообменник
1 монета
docx

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

Задание1.

Цель работы

Необходимо чтобы информация, набираемая на клавиатуре, записывалась в файл с именем a.txt.

Разработка программы

program Project8_1;

{$APPTYPE CONSOLE}

uses SysUtils;

var f:text;

a:array[1..100]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[1..100]of string;

i,p,y,n:integer;

begin writeln('Laboratornaya rabota 8-3');

writeln('podstroka');

writeln('Molotkova Elena');

writeln; Assign(f,'D:\a.txt');

Rewrite(f);

writeln('Vvedite neskolko strok dlya zapisi v fail');

writeln('Esli xotite zakon4it to naberite "end"');

writeln; i:=0;

repeat inc(i);

readln(a[i]);

writeln(f,a[i]);

until(a[i]='end');

writeln; writeln('vvedite podstroku');

readln(z);

p:=1;n:=0; while(p

Показать полностью…
Похожие документы в приложении