Pascal ABC/Написать функцию принимающую значение True, если буквы строки упорядочены по алфавиту function Test(word:string): boolean
Answers & Comments
karimPhoenix
Program D1KPxx8; uses crt; var s,b:string; c:boolean; i,k,n:integer; begin c:=false; s:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя'; read(b); k:=0; repeat inc(k); begin if s[k]=b[1] then begin break; end; end; until k>length(s); n:=length(b); for i:=1 to n do begin if s[k]=b[i] then begin c:=true; end else c:=false; inc(k); end; write(c); if c=true then halt else if c=false then halt; writeln('false'); end.
1 votes Thanks 0
karimPhoenix
так, код иногда плохо читаемый-знаю, но уж так я пишу))) велосипедов куча, но уж так я пишу))) смысл работы программы можно извлечь самому и запихнуть в функцию, лично я с ними плохо дружу, а потому не желаю с ней возиться... без обид))) дальше сам))) если что-то надо объяснить то пожалуйста)
karimPhoenix
все, прочитал, что надо именно функцию, сорри, тут помочь не могу....
karimPhoenix
можешь нажимать "нарушение"))) но сначала прочти прогу, может поможет)
Answers & Comments
uses crt;
var
s,b:string;
c:boolean;
i,k,n:integer;
begin
c:=false;
s:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
read(b);
k:=0;
repeat
inc(k);
begin
if s[k]=b[1] then
begin
break;
end;
end;
until k>length(s);
n:=length(b);
for i:=1 to n do
begin
if s[k]=b[i] then
begin
c:=true;
end
else c:=false;
inc(k);
end;
write(c);
if c=true then
halt
else
if c=false then
halt;
writeln('false');
end.