Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
6th
Июл
Исходник программы выводящий количество слов в которых повторяются символы
Posted by Chas under Delphi, Исходники
причем не только когда например «програММа» 2 буквы М,а и для «КроКодил»
zvoronz
Вот мой вариант решения
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Memo1: TMemo;
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Array255Bolean = array [1..255] of Boolean;
var
Form1: TForm1;
a,b , c:string[255];
i,n, s:Integer;
k : Array255Bolean;
implementation
{$R *.dfm}
procedure Clean(var ar : Array255Bolean);
var
i : Integer;
begin
for i := 1 to 255 do
ar := False;
end;
function Check (c : Char; var ar : Array255Bolean) : Boolean;
var
i : Integer;
begin
Check := ar[ord(c)];
ar[ord(c)] := True;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
a:=Edit1.Text ;
b:=Edit2.Text ;
c:=Edit3.Text ;
begin
Clean(k);
for i:=1 to Length (a) do
if Check(a, k) then
begin
memo1. Lines .Add('????? ? ????????????? ??????? = '+a);
Break;
end;
Clean(k);
for i:=1 to Length (b) do
if Check(b, k) then
begin
memo1. Lines .Add('????? ? ????????????? ??????? = '+b) ;
Break;
end;
Clean(k);
for i:=1 to Length (c) do
if Check(c, k) then
begin
memo1. Lines .Add('????? ? ????????????? ??????? = '+c) ;
Break;
end;
end;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
var m,j:integer;
f1,f2,f3:boolean;
begin
a:=Edit1.Text ;
b:=Edit2.Text ;
c:=Edit3.Text ;
f1:=True;
for m:=1 to length(a) do begin
f2:=false;
f3:=False;
for j:=1 to Length(b) do
if b[j]=a[m] then f2:=true;
for j:=1 to Length(c) do
if c[j]=a[m] then f3:=true;
if (b[j]<>a[m])and (c[j]<>a[m]) then f1:=false;
end;
if f1 then memo1 .Lines.Add('????? '+a+' ????????? ?????.')
else memo1 .Lines.Add('????? '+a+' ????????? ??????.');
end;
end.
и вот проект в Delphi7, можете потестить ответить так я понял или нет.
DuplicateChars.zip
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)