Cлово ‘w’ в падеже ‘p’ и единственном числе

[Guest]

Не могу понять как решать эту задачу, я пробвал через "case n of" не чего не получилось, подскажите пожалуйста через что надо её решить?


Имеются следующие описания:
type падеж(им, род, дат, вин, твор, предл);
слово(степь, боль, тетрадь, дверь );
var w:slovo; padezh;
Напечатать слово ‘w’ в падеже ‘p’ и единственном числе.


Заранее Благодарен!

/MODERATOR/ Может пора научиться нормально оформлять темы

 

[Black horse]

ну так нужен вложений case

case w of
'степь' : padezh('степь');
'боль' : padezh('боль');
....





function padezh(string)
begin
case p of
'им' : writeln(string)

если так не получается то вместо функции отдельный case.