+ 1
Помогите с Делфи...
Заданы два предложения, содержащие буквы латинского и русского алфавитов. Для ввода каждого предложения используется отдельный компонент Edit. Написать программу, которая определяет, в каком предложении латинских букв больше. Функция для нахождения латинских букв должна иметь результат строкового типа. Как бы нужно это задание оформить в виде функции const D = ['А'..'Я','а'..'я']; var S: String; i,Len : Integer; begin S:= Edit1.Text; Len:= Length(S); while i<=Len do begin if s[i] in D then delete(s,i,1)else i:=i+1; Edit2.Text:= S; end; end; end.
1 Antwort
0
please, post your questions in english to help others understand what you want and give you the best answer