Множество, вывод букв по порядку [Доработать] - Pascal ABC

  1. Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз. Текст считывать из txt файла. Кол-во строк и их длина не известны. Я вот так решил, но у меня он не запускает чего-то не хватает !


textual

Код:

Program zadacha2;
 var
   a, b : set of char;
   i : integer;
   s : string;
   ch : char;
   f:text;
 begin
 assign(f,'F:/test.txt'); //файл текстовый
 reset(f);
 a:= [];
 b:= [];
  While not eof(f) do
   begin
    readln(f,s); //строки читает readln, не read
    For i:=1 to length(s) do
    If s[i] in a Then b:=b+[s[i]] Else a:=a+[s[i]];
   end;
 close(f);
 writeLn('Буквы которые повторяются 2 и более раз: ');
 {Буквы повторяются более 1 раза >=2}
 for ch:='a' to 'я' do
 if ch in b then write(ch,',');
end.


Похожие ответы
  1. Напишите программу, которая выводит на экран круговую диаграмму , отражающую товарооборот (в процентах) книжного магазина. Исходные данные 30% 35% 30% 5%.

  1. Доброго времени суток! Необходима помощь: нужно организовать ввод данных в типизированный файл (.dat ) с возможность вывода их ( данных ) в виде таблицы через оный.Код:

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 program nakoplenie; var s,x,y,p,z: real; k1, k2, k3,k4,k: integer;         function summa(k: integer): real;     begin     summa := abs(sin((sqr(k) / 1.5) - 2)) + 11.73 * cos(1.6 * k - 1)     end;       function proiz(var k: integer): real;     begin     proiz := 13.4 * cos(abs(k)) * sin(sqr(k) - 2.25);     end;       begin    writeln('Введите номер варианта для определения k конечного для суммы и произведения ');    readln(k2);    k1:=1;    s := 0;    for k := k1 to k2+5 do  s := s +summa(k);      p := 1;    for k := k1 to k2+8 do  p := p *proiz(k);        writeln('s=', s:2:2);    writeln('p=', p:2:2);       x := s;     y := p;     z := (5 * x) - (2 * y);     writeln('z=', z:2:2);     end.ОКНО ВЫВОДА: Введите номер варианта для определения k конечного для суммы и произведения 13 s=9.24 p=-299426686126.04 z=598853372298.28 Почему он не хочет хвост меньше делать? Объясните пожалуйста. Подставляла разные числа.

  1. Дано целое число . Нужна программа выводящая на экран последнюю цифру этого числа ,затем возводит в квадрат и выводит на экран.

  1. Дано двухзначное целое число . Напишите программу , которая выводит на экран первую цифру этого числа.

  1. Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k - строк, m - столбцов, б) k - строк, m – половина разности длины двух любых соседних строк.

  1. В студенческой группе 30 человек. 15 из них знают английский, 10 знают немецкий, 7 знают французский. 30 фамилий записаны в текстовом файле. Программа должна сама выбрать 15 фамилий владеющих английским, 10 немецким, 7 французским и вывести фамилии на экран. Выбор происходит рандомом. Проблема: Не понимаю как сделать так, чтобы прога сама выбирала 15, 10 и 7 фамилий соответственно. Помогите, второй день мучаюсь, стыдно даже как то!

  1. Имеется текстовый файл с 30 фамилиями. Как вывести на экран только 20?

  1. Добрый день, уважаемые форумчане. Просьба помочь с вопросом: как можно вывести 1 раз сообщение при условии что не будут найдены слова в строке, в которых буквы упорядочены по алфавиту. Поиск есть, но для данного алгоритма не могу придумать корректный вывод если слов в строке не окажется после выполнения поиска.

  1. Вот само задание: 16) Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Паскаль