Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Строки / Задача 6 (количество букв в строке)
.txt 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.
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.
Соседние файлы в папке Строки