Надо до завтра программку написать, Помогите пожалуйста!! Опции

[Львёнок]

Она начального уровня я просто ничего уже не помню...............
1)Ваша бабушка спрашивает,какую оценку вы получили,и в зависимости от оценки выдаёт комментрий.Зациклить выполнение программы по запросу пользователя.
я просто тэги не помню..........

[klem4]

Ты уверена что написал в нужный раздел ? Здесь решают задачи только за деньги, твоя задача врядли подходит под эту категорию, если хочешь перенесу в раздел задачи.

+ Правида форума :

4. Название вашей темы должно быть информативно!

При создании темы учтите, что название должно кратко отражать ее суть. Плодить топики с названиями "ПАМАГИТЕ!!!" или "ПОЧЕМУ?!?!" крайне не рекомендуется, и жестко карается модераторами.

[Львёнок]

ок,перенеси ,если не трудно,за название прости.......

[klem4]

Попробуй написать программу сама, здесь все просто ;)

Открой книгу, и почитай как использовать в Паскале условный оператор if(конструкцию if ... then ... else ... ) и оператор case

Этих знаний тебе хватит для выполнения работы.

[Львёнок]

Какой оператор нужен,что бы вводить оценку???

[klem4]

Разберешься ?

uses crt;

const

  msg : array['2'..'5'] of string = (
   'Не удовлетворительно',
   'Удовлетворительно',
   'Хорошо',
   'Отлично'
  );

var

  ch: char;

begin

  clrscr;

  repeat

    clrscr;

    writeln('Введите оценку, либо нажмите <ESC> для выхода');

    ch := readkey;

    if ch in ['2'..'5'] then begin
      writeln(ch, ' - ', msg[ch]);
      writeln('Нажмите <ENTER> для продолжения');
      readln;
    end;


  until ch = #27;

end.

[Львёнок]

Спасибо большое!!!