следующая буква.

[XeruH]

так вы и var и end еще не проходили??? ух какой препод то жестокий!!!! Люди имейте совесть то!

[zetr0]

Сообщение от ROMA2PVT

там от Var и до end ток ввод символа.А вот запрет на ввод я сам подуай как сделать

какого символа?
и что это значит: я сам подуай как сделать??

[XeruH]

Сообщение от ROMA2PVT

writeln(chr(ord(c)+1));

А если букву 'ё' или 'е' введу? =)

Сообщение от zetr0

какого символа?
и что это значит: я сам подуай как сделать??

Задание то читал вообще? там же написано кроме 'я'.

[XeruH]

Сообщение от zetr0

какого символа?
и что это значит: я сам подуай как сделать??

Задание то читал вообще? там же написано кроме 'я'.

[zetr0]

Сообщение от XeruH

так вы и var и end еще не проходили??? ух какой препод то жестокий!!!! Люди имейте совесть то!

мы проходили, но! что бы задачи какие либо по аналогии делать - нет! делали разные примеры связанные с тригонометрией, результаты с плавающей, и форматированной точками.
больше ничего!

[zetr0]

Сообщение от XeruH

Задание то читал вообще? там же написано кроме 'я'.

вот как написано задание, так и написал!

[XeruH]

Сообщение от zetr0

мы проходили, но! что бы задачи какие либо по аналогии делать - нет! делали разные примеры связанные с тригонометрией, результаты с плавающей, и форматированной точками.
больше ничего!

И что ни в одной из этих задач не было примера где-бы что-то вводилось с клавиатуры?
Тебе нужно объявить одну переменную в секции var.
После begin получить от пользователя символ. Проверить подходит ли он твоему условию и используя то что написал тебе ROMA2PVT вывести следующий символ! Вот и вся программа!

[zetr0]

Сообщение от XeruH

И что ни в одной из этих задач не было примера где-бы что-то вводилось с клавиатуры?
Тебе нужно объявить одну переменную в секции var.
После begin получить от пользователя символ. Проверить подходит ли он твоему условию и используя то что написал тебе ROMA2PVT вывести следующий символ! Вот и вся программа!

напиши пожалуйста всю программы. я просто не могу понять что надо сделать... а задача срочно нужна. завтра с утра надо её написать в конспект. ПОМОГАЙТЕ......................

[XeruH]

Попробуй так, только проверь. У меня проверить негде.

program NadoUchitsya;

var
  // объявляем переменную
  c: Char;

begin
  // запускаем бесконечный цикл
  while true do
  begin
    // выводим сообщение
    write('Введите букву: ');
    // получаем символ
    readln(c);
    // проверяем входит ли он во множество символов кириллицы (кроме я)
    if c in ['а'..'ю','А'..'Ю','ё','Ё'] then 
      // если входит то прерываем бесконечный цикл
      Break
    else
      // иначе выводим сообщение (после этого цикл начинается заного)
      writeln('Буква должна быть русского алфавита, кроме я');
  end;
  // обрабатываем 'ё'
  if c='e' then c:=chr(183);
  if c='Е' then c:=chr(167);
  if c='ё' then c:='е';
  if c='Ё' then c:='Е';

  // получаем следующий символ и выводим его на экран
  writeln(chr(ord(c)+1));
  // ждем нажатия клавиши и выходим из программы
  readln;
end.

А вообще лучше почитай учебники. Мало кто согласится писать тебе всю программу просто так, при том что ты сам ничего не пытался сделать!

[zetr0]

Сообщение от XeruH

Попробуй так, только проверь. У меня проверить негде.

program NadoUchitsya;

var
  // объявляем переменную
  c: Char;

begin
  // запускаем бесконечный цикл
  while true do
  begin
    // выводим сообщение
    write('Введите букву: ');
    // получаем символ
    readln(c);
    // проверяем входит ли он во множество символов кириллицы (кроме я)
    if c in ['а'..'ю','А'..'Ю','ё','Ё'] then 
      // если входит то прерываем бесконечный цикл
      Break
    else
      // иначе выводим сообщение (после этого цикл начинается заного)
      writeln('Буква должна быть русского алфавита, кроме я');
  end;
  // обрабатываем 'ё'
  if c='e' then c:=chr(183);
  if c='Е' then c:=chr(167);
  if c='ё' then c:='е';
  if c='Ё' then c:='Е';

  // получаем следующий символ и выводим его на экран
  writeln(chr(ord(c)+1));
  // ждем нажатия клавиши и выходим из программы
  readln;
end.

А вообще лучше почитай учебники. Мало кто согласится писать тебе всю программу просто так, при том что ты сам ничего не пытался сделать!

Спасибо! надеюсь, что прокатит.....
просто вот таких записей:
while true do и if c in ['а'..'ю','А'..'Ю','ё','Ё'] then

Break
else

end;

if c='e' then c:=chr(183);
if c='Е' then c:=chr(167);
if c='ё' then c:='е';
if c='Ё' then c:='Е';

writeln(chr(ord(c)+1));

у нас в учебнике даже похожих не было по тому материалу, которой нам дали для изучения.