Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / function / Program3
.pas uses crt;
var s:string;
max:char;
kol: integer;
//функция для поиска символа с максимальным порядковым номером
function maxnom:char;
var dlina,i: byte;
begin
dlina:=length(s);
for i:=1 to dlina-1 do
begin
if s[i]>s[i+1] then max:=s[i]
else max:=s[i+1];
maxnom:=max
end;
kol:=0;
for i:=1 to dlina do
begin
if max=s[i] then kol:=kol+1;
end;
end;
begin
writeln('Введите строку:');
read(s);
writeln('Элемент с максимальным порядковым номером: ',maxnom);
writeln('Количество повторений: ',kol);
end.
var s:string;
max:char;
kol: integer;
//функция для поиска символа с максимальным порядковым номером
function maxnom:char;
var dlina,i: byte;
begin
dlina:=length(s);
for i:=1 to dlina-1 do
begin
if s[i]>s[i+1] then max:=s[i]
else max:=s[i+1];
maxnom:=max
end;
kol:=0;
for i:=1 to dlina do
begin
if max=s[i] then kol:=kol+1;
end;
end;
begin
writeln('Введите строку:');
read(s);
writeln('Элемент с максимальным порядковым номером: ',maxnom);
writeln('Количество повторений: ',kol);
end.
Соседние файлы в папке function