Все готовые лабы по паскалю (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


Случайные файлы

Файл
23327-1.rtf
163366.rtf
20153-1.rtf
referat.doc
30864.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.