Глава 20. Ошибка в основной программе

Книга адресована школьникам средних и старших классов, желающим испытать себя в «олимпийских схватках». Может быть полезна студентам-первокурсникам и преподавателям информатики.

Модераторы: Oleg_D, Модераторы

Глава 20. Ошибка в основной программе

Сообщение Герман » 27.10.2016 11:17:31

В программе:
{ P_20_1 – вариант программы с локальной переменной }
var S: string; k: integer; { глобальная переменная }

procedure Scan(arg : string);
var k: integer; { локальная переменная }
begin
for k:=1 to Length(arg) do
if arg[k]=’A’ then arg[k]:=’B’;
end;
begin { главная программа }
for k:=1 to 3 do begin
Write(’Введите строку: ’); Readln(S);
Scan(S);
Writeln(S);
end;
end.

" arg " надо заменить на " S " и программа будет работать.

! Поторопился я. В следующей главе рассказано, что нужно сделать.
Последний раз редактировалось Герман 27.10.2016 18:03:45, всего редактировалось 1 раз.
Герман
новенький
 
Сообщения: 26
Зарегистрирован: 27.10.2016 11:11:41

Re: Глава 20. Ошибка в основной программе

Сообщение bormant » 27.10.2016 14:06:30

Нет. Просто в декларации перед arg пропущено var.
Аватара пользователя
bormant
постоялец
 
Сообщения: 407
Зарегистрирован: 21.03.2012 11:26:01

Re: Глава 20. Ошибка в основной программе

Сообщение Oleg_D » 27.10.2016 20:18:25

Герман писал(а):Поторопился я. В следующей главе рассказано, что нужно сделать.

То, что вы заметили ошибку и предложили способ исправления, делает вам честь. Но в данном случае, как вы уже поняли, я сознательно воспроизвёл типичную ошибку новичков.
А использовать внутри процедур глобальные переменные (здесь это S) -- не вполне годная идея, но об этом будет сказано позже.
Oleg_D
постоялец
 
Сообщения: 391
Зарегистрирован: 09.05.2011 11:28:36

Re: Глава 20. Ошибка в основной программе

Сообщение Герман » 28.10.2016 22:13:59

Спасибо Вам за книгу. Изучаю дальше.
Герман
новенький
 
Сообщения: 26
Зарегистрирован: 27.10.2016 11:11:41


Вернуться в Книга "Песни о Паскале"

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

Рейтинг@Mail.ru