Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lazarus правильно ли написана программа?и есть ли еще варианты? https://www.cyberforum.ru/ lazarus/ thread1461252.html
Дан прямоугольный массив A. Получить линейный массив B, в котором будут храниться номера тех строк матрицы A, в которых есть равные элементы. var i,j,k,l,z,n,m:integer; mas:array of array of...
Lazarus Создать Светофор
помогте создать светофор в лазарусе! через день экзамен! заранее спасибо!))
Сделать возможным перемещение прямоугольника за любую точку внутри него Lazarus
Сори за вторую тему. код я написал помогите пожалуйста как сделать эти задания 1)Сделать возможным перемещение прямоугольника за любую точку внутри него 2)добавить возможность изменения размеров...
Lazarus Прога делает того чего нету Выводил раньше n при формкреате, потом удалил, а оно все равно выводиться. смотрел в коде этого нету. Весь модуль посмотрел( нету такого. Перед показом формы выводится, потом загружается сама форма.... https://www.cyberforum.ru/ lazarus/ thread1459938.html
Lazarus Динамически созданная форма без системного меню https://www.cyberforum.ru/ lazarus/ thread1459830.html
форма создана динамически ,нужно чтобы она была выведена без кнопок "свернуть","развернуть" и "закрыть"(крестик красный) BorderStyle:= bsNone не катит т.к. форму нужно будет перемещать по экрану...
Lazarus намертво зависает при выполнении этого кода Lazarus
begin {size-Количество кнопок} i:=Form2.Showmodal; setlength(but,size); c:=0; d:=0; posarray:=0; while HorBut-VertBut<=5 do begin for...
Игра танчики Lazarus
Нужно приложение танчики в программном продукте Lazarus... Задали курсовую на эту тему, а я пропустил весь курс ...
Lazarus Создание формы динамически Сразу извините за глупый вопрос.... У приложения есть форма с настройками. Для того, чтобы она не занимала ресурсы(память), я решил создавать её динамически. И тут начались проблемы.... Первое что... https://www.cyberforum.ru/ lazarus/ thread1459336.html
Lazarus Ошибка с функцией открытия https://www.cyberforum.ru/ lazarus/ thread1459277.html
procedure TForm6.FormCreate(Sender: TObject); var i, j : integer; begin for i:=0 to 20 do for j:= 0 to 20 do map:='.'; BrPic:=TBitmap.Create; BrPic:=LoadFromFile('plc/123.bmp'); ...
Lazarus Ошибка в игре pac-man Помогите пожалуйста)) перекомпилировал с delphi 7 на lazarus игру pac-man ))Вызывает класс исключения 'Exception' Помогите с кодом может я неправильно его перекомпилировал)) https://www.cyberforum.ru/ lazarus/ thread1459222.html
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,126
28.05.2015, 16:51 0

Напечатать все буквы, входящие в текст не менее двух раз; все буквы, входящие в текст по одному разу

28.05.2015, 16:51. Показов 653. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var s:string;
    i:integer;
    c:char;
    m,m1,m2:set of char;
begin
readln(s);//ввод строки по условию
m1:=[];
m2:=[];
for i:=1 to length(s) do
 begin
  if s[i]<>'.' then //если не точка
   begin
    if not(s[i] in m1) then m1:=m1+[s[i]]//если нет в 1 множестве, добавим
    else m2:=m2+[s[i]]; //иначе добавим в 2
   end;
 end;
m:=m1-m2;//удалим из 1 которые 2 и более раз
writeln('Входят не менее 2 раз');
for c:='a' to 'z' do
if c in m2 then write(c);
writeln;
writeln('Входят по 1 разу');
for c:='a' to 'z' do
if c in m then write(c);
end.


Вернуться к обсуждению:
Напечатать все буквы, входящие в текст не менее двух раз; все буквы, входящие в текст по одному разу
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2015, 16:51

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Напечатать все буквы, входящие в текст не менее двух раз.
Добрый день форумчане!!! Можете помочь с задачкой?! Дан текст из строчных латинских букв, за...

Напечатать все буквы, входящие в текст не менее двух раз
Дан текст из малых латинских букв. Напечатать все буквы, входящие в текст не менее двух раз,

Напечатать все буквы, входящие в текст не менее двух раз
Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.