Информатика
Информатика, 30.11.2019 12:34, Verozan2103

Найти ошибку в результирующем файле должно выводится буква встречающаяся чаще всего и количество но он выходит алфавит. вот код:
uses crt;

const
lat = ['a'..'z'];
type
mas = array['a'..'z'] of integer;
procedure strtomas(s: string; var a: mas);
var
c: char;
i: integer;
begin
for c : = 'a' to 'z' do
a[c] : = 0;
for i : = 1 to length(s) do
if s[i] in lat then
a[upcase( : = a[upcase( + 1;
end;

procedure max(var a: mas; s, s1: string);
var
c: char;
i, k,j: integer;
begin
k : = 0;
readln(s);

for c : = 'a' to 'z' do
k: =0;
for i: =1 to length(s) do

if s[i]=c then k: =k+1
end;

procedure mastostr(var a: mas; var sres: string; s, s1: string);
var
c, k: char;
maxcnt: integer;

begin
sres : = '';

for c : = 'a' to 'z' do

begin
if a[c] > 0 then
max(a, s,s1);

sres : = sres + c + ' ' + k + ' ';
if length(sres) > 2 then
delete(sres, length(sres) - 1, 2);
end;
end;

procedure filetofile(var f1,f2: text);
var sres, s,s1: string; a: mas;
begin
reset(f1); rewrite(f2);
while not eof(f1) do begin
readln(f1,s);
if s < > '' then begin
strtomas(s, a);
max(a, s,s1);
mastostr(a, sres, s,s1);
end
else sres: = '';
writeln(f2, sres);
end;
close(f1); close(f2);
end;

var
f1, f2: text;
fname1, fname2: string;

begin
clrscr;
task;
write('введите имя исходного файла ');
readln(fname1);
assign(f1, fname1);

if fileexists(fname1) then begin

write('введите имя результата ');
readln(fname2);
assign(f2, fname2);
filetofile(f1, f2);
end
else writeln('файл с таким именем не существует');
end.

Ответ
Всего ответов: 1

Похожие вопросы

Предмет
Информатика, 14.03.2019 16:20, КривенкоЖеня
Сообщение, записанное при 128 символьного алфавита, содержит 100 символов, а сообщение, записанное с 64-х символьного алфавита - 120 символов.сравните объёмы информации, содержащейся в этих сообщениях.
Ответов: 1
Предмет
Информатика, 14.03.2019 21:20, aygerimmarkash
Влыжной гонке участвуют 240 спортсменов. специальное устройство регистрирует прохождение каждым участником промежуточного финиша, записывая его номер цепочкой из "0" и "1" минимальной длины, одинаковой для каждого спортсмена. какой информационный объем сообщения, записанного устройством после того, как промежуточный финал половина участников.
Ответов: 2
Предмет
Информатика, 20.03.2019 12:50, Arthas1212523
3. шахматная доска состоит из 64 полей: 8 столбцов на 8 строк. какое минимальное количество бит потребуется для кодирования координат одного шахматного поля?
Ответов: 1
Предмет
Информатика, 25.03.2019 11:00, dgfhdhdj95
Составьте программу,которая заполняет массив а: [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его,возводя в квадрат все элементы с четными индексами
Ответов: 2
Предмет
Информатика, 30.03.2019 13:20, volodchenko161
Логическое выражение: 1) (а или в или с) и (а или не в или с) 2) ((х и не у и z) или (х и не(у и z)) или (х и у и z) или (х и не у)
Ответов: 2
Предмет
Информатика, 30.03.2019 19:40, alladzyurich
Вовочка написал на доске равенство 101=11011. учитель информатики сказал, что это равенство будет верным, если понимать его как запись одного и того же числа, но в разных системах счисления. найдите основания этих систем.
Ответов: 1
Предмет
Информатика, 31.03.2019 06:10, JungKookiiiii
Можно ли выражать понятие существительным во множественном числе
Ответов: 2
Предмет
Информатика, 31.03.2019 11:27, dniill
С++ написать программу для создания массива записей (структур) со сведениями о студентах: фио, возраст, курс, успеваемость. успеваемость – это оценки студента по 3 предметам. ввод-вывод информации и другие необходимые алгоритмы (согласно ) реализовать в виде функций. по заданному массиву определить: определить количество неуспевающих студентов по m предмету на n курсе.
Ответов: 3
Вопросов на сайте: 10003229