Я уже просила помощи, но так никто и не откликнулся.
Оказалось, что программа не так трудна как кажется.
Задание:
Напишите функцию, превращающую сокращенную запись вида a-z в строке s1 в эквивалентный полный список abcd..xyz в s2.
Допускаются буквы на двух регистрах и цифры.
Учесть варианты a-b-c,a-z0-9;
Начальные или конечные символы "-" воспринимаются буквально.
Программа:
program az;
var s, s1, s2:String;
i:Integer;
ch:Char;
begin
writeln ('Введите строку:');
readln (s1);
s2:=s[1];
for i:=2 to length(s)-1 do
begin
if s[i]='' then
begin
for ch:=#0 to #255 do
begin
if s2=s1+s[i] then
s1:=s2+s[i];
writeln (s2 );
end;
end;end;
end.
Я так понимаю, что я неправильно задаю функцию.
А как изменить не знаю.
Помогите пожалуйста.
Особенно надеюсь на
Владимира :
