Текст программы для задания 1.6
program
zadanie1_v6_var13;
uses
crt;
type
spisok_input=array[1..10]
of string;
var
list:spisok_input;
i,j,k,c:integer;
file_one:text;
buffer:string[48];
procedure
readf(var list1:spisok_input;i:integer);
begin
if
not eof(file_one) then
begin
readln(file_one,list1[i]);
readf(list1,i+1);
end;
end;
procedure
show(var list1:spisok_input);
begin
for
i:=1 to 10 do
writeln(list1[i]);
writeln('');
writeln;
end;
procedure
Sravn(var list1:spisok_input);
begin
assign(file_one,'lab1-6/file2.txt');
rewrite(file_one);
for
i:=1 to 10 do
if(list1[i]<>'*')
then
begin
c:=1;
for
k:=i+1 to 10 do
begin
while(list1[k]=list1[i])
do
begin
c:=c+1;
list1[k]:='*';
end;
end;
write(file_one,list1[i]);
writeln(file_one,'
',c);
writeln(list1[i],'
',c);
end;
close(file_one);
end;
begin
clrscr;
assign(file_one,'lab1-6/file1.txt');
reset(file_one);
readf(list,1);
close(file_one);
show(list);
Sravn(list);
readkey;
end.
РЕЗУЛЬТАТЫ
ВЫПОЛНЕНИЯ ПРОГРАММЫ
Сюда
нужно вставить содержимое выходного
файла.
СПИСОК
ЛИТЕРАТУРЫ
1.
2..
