Задача 6 (количество букв в строке)

Посмотреть архив целиком
6) используя процедуру, посчитать сколько букв в строке произвольной длины

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

procedure CHISLO (var s:string;n:integer;var k:integer);
var i,p,j:integer;
slovo,buf:string;
begin
writeln('vvedite stroku');
readln(s);

{удаление пробелов}
p:=pos(' ',s);
while p>0 do begin
delete(s,p,1);
p:=pos(' ',s);
end;
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete (s,length(s),1);

s:=s+' ';
slovo:='';
k:=0;
for i:=1 to length(s) do if s[i]<>' ' then k:=k+1;
end;

var n,i,kol,j:integer;
st:string;
begin
writeln('Vvedite kolichestvo strok');
readln(n);
for i:=1 to n do begin
CHISLO(st,n,kol);
writeln('Kolicestvo bukv v ',i,' stroke ravno ',kol);
end;
readln;
end.


___________

6) используя процедуру, посчитать сколько букв в строке произвольной длины (если учитывать, что заданы разные символы)

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mn=set of char;

function Kol(var s:string;n:integer):integer;
var i,p,k:integer;
M:mn;
begin
writeln('Vvedite stroku');
readln(s);

{поиск букв}
M:=['A'..'Z'];
k:=0;
for i:=1 to length(s) do if upcase(s[i]) in M then k:=k+1;
Kol:=k;

end;

var n,i,kolich:integer;
st:string;
begin
writeln('Vvedite kol-vo strok');
readln(n);
for i:=1 to n do begin
kolich:=kol(st,n);
writeln('Kolichestvo bukv v stroke ravno ',kolich);
end;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.