Программа с объектами!

@Sly-lynx · Регистрация: 20.03.2010

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

Написать программу с использованием объекта,который включает в себя переменные строкового типа и множество!А также метод,по которому считается сколько есть символов,больших и малых латинского алфавита,и они выводятся на экран!
При этом символы мы задаем с клавиатуры

@Puporev · 20.03.2010, 12:55

Pascal

uses crt;
type
mnoz=set of char;
Stroka = object
         st:string;
         mn:mnoz;
         function Kol(s:string;m:mnoz):byte;
         end;
function Stroka.Kol;
var i,k:byte;
begin
k:=0;
for i:=1 to length(s) do
if s[i] in m then k:=k+1;
Kol:=k;
end;
var x:stroka;
    s:string;
    a:mnoz;
    c:char;
begin
clrscr;
writeln('Введите строку для поиска:');
readln(s);
writeln('Создайте множество из больших и малых латинских букв, последний символ Z:');
a:=[];
repeat
readln(c);
if c in ['A'..'Z','a'..'z'] then a:=a+[c];
until c='Z';
write('В строке латинских букв, принадлежащих множеству=',x.Kol(s,a));
readln
end.

@Sly-lynx 0 / 0 / 0 Регистрация: 20.03.2010 Сообщений: 3
		1
	Программа с объектами! 20.03.2010, 10:15. Показов 1066. Ответов 1 Метки нет (Все метки) Написать программу с использованием объекта,который включает в себя переменные строкового типа и множество!А также метод,по которому считается сколько есть символов,больших и малых латинского алфавита,и они выводятся на экран! При этом символы мы задаем с клавиатуры 0

	20.03.2010, 12:55

Программа с объектами!

Решение