2 задание (Все готовые лабы по паскалю)
Описание файла
Файл "2 задание" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 8 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "2 задание"
Текст из документа "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