Что отобразит фрагмент этой программы, Pascal Опции

[Vino-grad]

S := 'ABCDEF';
T := 'rinda';
Insert(T, S, 3);
T := Copy(T, 3,1);
Write (S, ' ', T);

и еще один фрагментик другой программы:

Var a,b,d:string; c: integer;
Begin
a:= 'pascal';
b:='stunda';
c:=pos(b,a);
d:=copy(b,3,2);
insert(d,a,1);
delete(b,1,4)
write(a,b,c,d);
end.

[Unconnected]

Возьми блокнот, сделай необходимые операции, и узнаешь

[volvo]

Возьми блокнот

Ну, возьми, попробуй сделать... Ты сам-то знаешь? Не блокнот надо брать, а учебник Паскаля.

[Vino-grad]

Ну, возьми, попробуй сделать... Ты сам-то знаешь? Не блокнот надо брать, а учебник Паскаля.

это как долг за прошлый курс у меня тяжется.. я хотябы должна написать тест, чтобы 4(проходной балл) по 10 бальной системе было.. там такой вопросик, дома вот разбираю... помогите плииз

[volvo]

Поможем... Только помочь - это не написать ответ, правда? Что делает процедура Insert и функция Copy - разобралась?

[Vino-grad]

Поможем... Только помочь - это не написать ответ, правда? Что делает процедура Insert и функция Copy - разобралась?

в первой программе, как я вычислила, получится ABCrindaDEF d ?

[volvo]

Ошиблась... Символы в строках нумеруются с единицы, а не с 0, поэтому перед последним Write-ом в строке T будет не буква d... Посмотри внимательнее...

По той же причине и чуть выше - тоже ошибка...

Сообщение отредактировано: volvo - 16.12.2008 23:21