1)Я не могу понять, char тип в массиве занимает 3 элемента чтоли ???(из задачки)
если n=30 то программа дает ввести 10 элементов, если 21 то 7 !
2)Незнаю как проверить элемент стоящий перед ' . ' на то что он из анг. алф или нет.{из задачки}
3)И еще : как можно проверить букву на анг алф кроме in ['a'..'z'] ?и еще как проверить на заглавные буквы
у меня не получалось in ['a'..'z'] or in['A'..'Z'] .
Прошу о помощи. Спасибо тем кто откликнется! =)

Код

const n=30; Type c=array [1..n] of char; var x:c;     i,v:byte; begin Writeln('Введите последовательность букв : '); v:=0; for i:=1 to n do     begin      read(x[i]);      if x[i] in ['a'..'z'] then inc(v);      if x[i]='.' then break;     end; if v=1 then if x[n-1] in ['a'..'z'] then Write('Вы ввели 1 анг букву и она последняя');{знаю что тут неправельно, но...} if (v=0)or(v>1) then Write ('Анг букв больше 1 или вообще нет'); End.

Последовательность заканчивается точкой. Но если пользователь введет точку не последним элементом
а например 5 , тогда как проверить предбуква анг или нет ? Ваще морока (((

Это сообщение отредактировал(а) UpL1nK - 26.12.2005, 17:36

Цитата(UpL1nK @ 26.12.2005, 17:32)

1)Я не могу понять, char тип в массиве занимает 3 элемента чтоли ???(из задачки)

1 байт... вероятно у Вас в последовательности 10 символ '.'

Цитата(UpL1nK @ 26.12.2005, 17:32)

2)Незнаю как проверить элемент стоящий перед ' . ' на то что он из анг. алф или нет.{из задачки}

введи дополнительную переменную счетчик, к примеру:

Код

for i:=1 to n do         begin          read(x[i]);          if x[i] in ['a'..'z'] then inc(v);          if x[i]='.' then break;      inc(col);         end;

потом следовательно:

Код

... if x[col] in ['a'..'z'] then Write('Вы ввели 1 анг букву и она последняя');

Цитата(UpL1nK @ 26.12.2005, 17:32)

3)И еще : как можно проверить букву на анг алф кроме in ['a'..'z'] ?и еще как проверить на заглавные буквы у меня не получалось in ['a'..'z'] or in['A'..'Z'] .

Код

... in ['a'..'z','A'..'Z']...

можно по коду, приблизительно так:

Код

...(ord(x[i])>64) and (ord(x[i])<91)...

но в этом случае в некоторых случаях можете получить неверный ответ...

Это сообщение отредактировал(а) Albinos_x - 26.12.2005, 18:38

Спасибо за понятный ответ ))
очень помогло =)
СПС!!!
ЗЫ:тока вот первое все таки не так, цикл автоматически обрывается , если у Вас есть компилятор попробуйте сами. Я специально проверял, не вводил точку =((

Цитата(UpL1nK @ 26.12.2005, 19:29)

ЗЫ:тока вот первое все таки не так, цикл автоматически обрывается , если у Вас есть компилятор попробуйте сами. Я специально проверял, не вводил точку =((

странно... не должно быть... попробуй массив явно определить

Код

Type c=array [1..30] of char;

и цикл тоже

Код

for i:=1 to 30 do

можно ещё попробовать вместо массива использовать строку
x:string[30]
далее так же с симводами работать
x[i]

Цитата(UpL1nK @ 26.12.2005, 18:32)

1)Я не могу понять, char тип в массиве занимает 3 элемента чтоли ???(из задачки) если n=30 то программа дает ввести 10 элементов, если 21 то 7 !

Всё очень просто...
После каждого ввода с помощью оператора read если массив именно типа char то в массив ещё вводятся символы #13 и #10, перенос коретки и конца строки...
Хочешь устранить проблему, то просто добавь в цикл:

Код

for i:=1 to n do     begin      read(x[i]);      if x[i] in ['a'..'z'] then inc(v);      if x[i]='.' then break;     end;

перед концом оператор:

Код

readln;  {такая штука нужна, во всех циклах, где перед этим используется оператор read}

Т.е. код будет такой:

Код

for i:=1 to n do     begin      read(x[i]);      if x[i] in ['a'..'z'] then inc(v);      if x[i]='.' then break;      readln;     end;