Определить и вывести в результирующий файл английскую букву, встречающуюся в строке реже всего

@Анастасия_В · Регистрация: 22.09.2013

Author24 — интернет-сервис помощи студентам

1. В программе:
- должны использоваться процедуры и функции с параметрами, при этом файлы необходимо передавать по ссылке;
- имя исходного и результирующего файла вводятся с клавиатуры. При вводе производится проверка на существование исходного файла.
2. Исходный файл с данными создается в простейшем текстовом редакторе.
3. Количество строк в исходном и результирующем файле должны совпадать! Если в исходном файле имеются пустые строки, то они также должны присутствовать и в результирующем файле на тех же местах.

В исходном текстовом файле записаны строки, содержащие текст на английском языке. Требуется написать программу на языке Паскаль или Бейсик, которая для каждой строки исходного файла будет определять и выводить в результирующий файл английскую букву, встречающуюся в этой строке реже всего (но не нулевое количество), и количество там таких букв. Строчные и прописные буквы при этом считаются не различимыми. Если искомых букв несколько, то программа должна выводить на экран первую из них по алфавиту.
Например, пусть в одной из строк исходного файла содержатся следующие символы:
It is a task for you. Yes!
В этом случае в результирующем файле должно быть:
F 1

Выдает ошибки, а как по другому переделать я не соображу...

Pascal

Program stroki;
uses crt;
 
Procedure Alg(s: string; var c:char; k:integer);
var  mas_alf:array ['a'..'z'] of integer;
     mas_kol:array [1..28] of integer;
     j, min:integer;
     i:integer;
begin
k:=0;
j:=0;
 
for i:='a' to 'z' do
   j:=j+1;
 if mas_alf[i]= s then  begin
   k:=k+1;
   mas_kol[j]:=k;
  end;
//поиск минимума во втором массиве
min:=mas_kol[1];
  for j:=1 to 28 do
    if  (mas_kol[j]< min)and (mas_kol[j]<>0) then 
      min:=  mas_kol[j];
writeln  (mas_alf [j]);
writeln  (k);
end;
 
Procedure FiletoFile(var f1,f2:text);
var s, sres:string;
    c:char;
    k:integer;
begin
reset(f1);
rewrite(f2);
while( not eof(f1))do begin
readln(f1,s);
Alg(s,c,k);
writeln(f2,c,k);
end;
close(f1);
close(f2);
end;
 
 
var f1,f2:text;
    fname1,fname2: string;
 
BEGIN
writeln('Введите имя исходного файла: ');
readln(fname1);
  if FileExists(fname1)=false then 
    writeln('Файл не найден')
  else 
  begin 
    writeln('Введите имя результирующего файла:');
    readln(fname2);
    assign (f1,fname1);
    assign (f2,fname2);
    FiletoFile(f1,f2);
    end;
 
END.

@efimvlad · 05.11.2014, 13:20

Помогите пожалуйста

@efimvlad 0 / 0 / 0 Регистрация: 15.10.2014 Сообщений: 6
	05.11.2014, 13:20	2
	Помогите пожалуйста 0

Опции темы