Помогите пожалуйста!Очень срочно!

+ 0 -

Hjkon

21 мая 2014 г., 6:47:58 (9 лет назад)

Эта программа запрашивает значение X, можно ввести любую строку,

А затем ищет первый ноль, и вставляет перед ним девятки, пока строка не станет иметь длину 255 символов. на этом моменте нолик из строки вытесняется.

выдаёт в ответ она уже измененную строку:

это ответ (c) - см. своё задание под буквой с.

Осторожно: вы не определили термин "измененная строка", и поэтому преподаватель может упереться, что это лишь измененная копия строки, а не сама измененная строка, 

т.е. сперва мы делаем копию со строки (когда передаем её как параметр значение) а уже потом копию изменяем и выводим на экран.

формально измененная строка - это если бы мы не делали копию, но, если учесть, что задание дано на русском, то ответ именно (c)

Ответ на второй вопрос:

Глобальные переменные:

x,y они обе строки; 

комментарий: это то что перечисляется в блоке var самой программы

Локальные переменные:

a целое

комментарий: это то что перечисляется в блоке var у процедур

Формальный параметр переменная:

c - строка

комментарий: это такой параметр, перед которым стоит var;

фактический параметр, который соответсвует ему может быть только переменной, и никак не выражением. У нас этому параметру соответсвует y  - строка которая будет вычислена. Процедура имеет доступ к y и может его изменять.

Формальный параметр значения:

s строка,

комментарий: это такой параметр, от которого в процедуру передаётся только значение. Если мы передадим туда X (строку которую ввёл пользователь) то процедура никак не сможет изменить X.

Фактические параметры:

x и y:

Комментарий: это то, что было передано в процедуру, вызов процедуры здесь:  P(x,y), т.е "x" первый фактический параметр, а "y" второй, они соответсвуют формальным параметрам: s и c;

Вот на всякий случай код твоей программы:

program Nr1;
var x,y:string;
procedure P (s:string; var c:string);
var a:integer;
begin
while pos('0',s)<>0 do begin
a:=pos('0', s);
Insert('9',s,a);
end;
c:=s;
end;
Begin
Write('x=');Readln(x);
P(x,y);

Writeln(y);
End.