Pascal ABC/Написать функцию принимающую значение True, если буквы строки упорядочены по алфавиту
function Test(word:string): boolean

1
Функцию обязательно?!
так вроде сделал))) правда с велосипедами и без функции)))
обязательно функцию

Ответы и объяснения

2014-02-15T23:50:21+04:00
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.
так, код иногда плохо читаемый-знаю, но уж так я пишу))) велосипедов куча, но уж так я пишу))) смысл работы программы можно извлечь самому и запихнуть в функцию, лично я с ними плохо дружу, а потому не желаю с ней возиться... без обид))) дальше сам))) если что-то надо объяснить то пожалуйста)
все, прочитал, что надо именно функцию, сорри, тут помочь не могу....
можешь нажимать "нарушение"))) но сначала прочти прогу, может поможет)