01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 8 лабораторка / 2 задание

Type падеж=(им,род,дат,вин,твор,пред);

Слова=(степь,дверь,тетрадь,стол);

Var

W:слова; p:падеж;

Напечатать слова w, в падеже p и в ед. числе.

• Текст программы:

type padech=(im,rod,dat,vin,tvor,pred);

slova=(step,dver,tetrad,stol);

var

w:slova;

p:padech;

v,v1:integer;

begin

writeln('1-step,2-dver,3-tetrad,4-stol');

readln(v);

writeln('1-im,2-rod,3-dat,4-vin,5-tvor,6-pred');

readln(v1);

if v>1 then

w:=succ(w);

if v1>1 then

p:=succ(p);

case w of

step:case p of

im,vin:writeln('step');

rod,pred,dat:writeln('stepi');

tvor:writeln('stepiu')

end;

dver: case p of

im,vin:writeln('dver');

rod,pred,dat:writeln('dveri');

tvor:writeln('dveriu');

end;

tetrad:case p of

im,vin:writeln('tetrad');

rod,pred,dat:writeln('tetradi');

tvor: writeln('tetradiu');

end;

stol:case p of

im,vin:writeln('stol');

rod,pred,dat:writeln('stoli');

tvor:writeln('stolom');

end;

end;

writeln;

readln;

end.

• Исходные данные: viberite slovo:1-step,2-dver,3-tetrad,4-stol;1;

viberite padech:1-im,2rod,3-dat,4-vin,5-tvor,6-pred;3 результат: stepi

Im,vin rod,pred,dat tvor

да

Im,vin rod,pred,dat tvor

нет

да

нет

im,vin rod,pred,dat tvor

im,vin rod,pred,dat tvor