Лабораторная, информатика. лабораторная 4. Программирование

• Название: Программирование
• Анкор: Лабораторная, информатика
• Дата: 08.11.2022
• Размер: 2.19 Mb.
• Имя файла: лабораторная 4.docx
• Тип: Отчет; #777661

МИНИСТЕРСТВО ПРОСВЕЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ОБРАЗОВАНИЯ

«НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ»

ИНСТИТУТ ФИЗИКО-МАТЕМАТИЧЕСКОГО, ИНФОРМАЦИОННОГО И ТЕХНОЛОГИЧЕСКОГО

ОБРАЗОВАНИЯ

КАФЕДРА ИНФОРМАЦИОННЫХ СИСТЕМ И ЦИФРОВОГО ОБРАЗОВАНИЯ
Отчёт по лабораторной работе №4

(«Информатика», часть 3 «Программирование»)


Выполнил обучающийся группы 3.031.4.19

Алексеенко А.Е.

Форма обучения: очная

ст. преп. кафедры ИСиЦО Трофимова С.В.

______________

_____________

___ ________ 20__г.

14.46.

program p46;
var
f1,f2:text;
i,n: integer;
s: string;
begin
assign(f1, 'текст 1.txt');
rewrite(f1);
writeln('Введите слова');
readln(n);
for i:=1 to n do
begin
readln(s);
writeln(f1,s);
end;
close(f1);
assign(f2, 'текст 2.txt');
rewrite(f2);
reset(f1);
while not eof(f1) do
begin
readln(f1,s);
if (s[1]='а') or (s[1]='о') then
writeln(f2,s);
end;
close(f2);
writeln('Второй файл содержит слова:');
reset(f2);
while not eof(f2) do
begin
readln(f2,s);
writeln(s);
end;
close(f1);
close(f2);
end.



14.53.

var
f1,f2,f3:text;
i,n: integer;
a,b,c: string;
begin
assign(f1, '.txt');
rewrite(f1);
writeln('Введите количество букв в файлах');
readln(n);
writeln('Первый файл');
for i:=1 to n do
begin
readln(a);
writeln(f1,a);
end;
close(f1);
assign(f2, '.txt');
rewrite(f2);
writeln('Второй файл');
for i:=1 to n do
begin
readln(b);
writeln(f2,b);
end;
close(f2);
assign(f3, '.txt');
rewrite(f3);
reset(f1);
reset(f2);
while not eof(f1) do
begin
readln(f1,a);
readln(f2,b);
c:=a+b;
writeln(f3,c);
end;
close(f3);
writeln('Третий файл:');
reset(f3);
while not eof(f3) do
begin
readln(f3,c);
writeln(c);
end;
close(f1);
close(f2);
close(f3);
end.

14.56

program p14_56;
var
f1,f2,f3: file of integer;
a,i,n: integer;
begin
assign(f1,'. txt ');
assign(f2,'. txt ');
assign(f3,'. txt ');
rewrite(f1);
write('Количество чисел в первом файле: ');
readln(n);
writeln('Числа в первом файле: ');
randomize;
for i:=1 to n do
begin
a:=random(100);
write(f1,a);
write(a,' ');
end;
close(f1);
reset(f1);
rewrite(f2);
writeln;
writeln('Числа во втором файле: ');
while not eof (f1) do
begin
read(f1,a);
if(a mod 2 = 0)then
begin
write(f2,a);
write(a, ' ');
end;
end;
close(f2);
reset(f1);
rewrite(f3);
writeln;
writeln('Числа в третьем файле: ');
while not eof (f1) do
begin
read(f1,a);
if(a mod 2 <> 0)then
begin
write(f3,a);
write(a, ' ');
end;
end;
close(f3);
reset(f3);
writeln;
writeln('Выполнено, смотреть файл "чётные или нечётные числа"');
end.

15.5. В конец существующего текстового файла записать новую строку с текстом До свидания, люди!.
var

s:string;

f:text;

begin

assign(f,'текстовый.txt');

append(f);

begin

writeln('Введите строку ', s);

readln(s);

writeln(f,s);

end;

close(f);

write('Выполнено см. файл текст');

readln

end.

15.8. Дан текстовый файл. Подсчитать количество строк в нем.
var k:integer;
s:string;
f:text;
begin
assign(f,'txt');
reset(f);
k:=0;
while not eof(f) do begin
readln(f,s);
k:=k+1;
end;
writeln(k);
close(f);
end.



15.10. Дан текстовый файл. Подсчитать количество символов в каждой строке.
var
s:string;
f:text;
begin
assign(f,'.txt');
reset(f);
while not eof(f) do begin
readln(f,s);
writeln(' символов: ',length(s))
end;
close(f);
end.



15.31.

var f, f2: text;

s, p: string;

n: integer;

b: boolean;

begin

assign(f, '.txt');

reset(f);

assign(f2, '.txt');

reset(f2);

n := 1;

b := true;

while not(eof(f)) and not(eof(f2)) and b do

begin

readln(f, s);

readln(f2, p);

if s = p then inc(n) else b := false

end;

if not(eof(f)) or not (eof(f2))

then writeln('Файлы различаются в ', n , 'строке.')

else if b

then writeln('Файлы совпадают.')

else writeln('Файлы различаются в ', n, 'строке.');

close(f);

close(f2);

readln

end.