Не могу разобраться как работает программа (Pascal ABC) - Помощь студентам

Amid1990 · 04.07.2011, 01:23

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

Код:

Program z5d5;
Uses crt;
var
   st,x: string;
   i: byte;
begin
   readln(st);
   x:=copy(st,1,pos(' ',st));
   for i:=1 to length(st) do
      if st[i-1]=' ' then x:=x+st[i]+'. ';
   writeln(x);
   readln
end.

DoubleTrouble · 04.07.2011, 01:42

x:=copy(st,1,pos(' ',st)); копирует часть строки до первого пробела

if st[i-1]=' ' then x:=x+st[i]+'. '; если предыдущий символ был пробелом то приписать к x этот символ и точку.
Программа должна ошибку выдавать потому что будут пытаться обратиться к нулевому символу st(а такового нет).

Смысла в программе я не нашёл

04.07.2011, 01:23	#1
Amid1990 Пользователь Регистрация: 15.11.2010 Сообщений: 17	Не могу разобраться как работает программа (Pascal ABC) Никак не могу разобраться как работает программа, точнее не могу понять тему обработка текстовой информации. Напишите пожалуйста подробные комментарии к программе. Код: `Program z5d5; Uses crt; var st,x: string; i: byte; begin readln(st); x:=copy(st,1,pos(' ',st)); for i:=1 to length(st) do if st[i-1]=' ' then x:=x+st[i]+'. '; writeln(x); readln end.`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Никак не могу решить задачу по масивам (Pascal ABC)	Amid1990	Помощь студентам	1	04.07.2011 17:46
Программа на Pascal ABC.	Lols	Помощь студентам	1	04.05.2011 21:53
Программа с циклом.Pascal ABC	Lols	Паскаль, Turbo Pascal, PascalABC.NET	5	04.05.2011 21:07
не могу разобраться в программе, как она работает	SK-Mentos	Общие вопросы C/C++	3	25.11.2010 15:11
Не могу разобраться как работает программа(сложение дробей)	Superlotles	Общие вопросы C/C++	1	15.05.2010 16:05

04.07.2011, 01:42	#2
DoubleTrouble Пользователь Регистрация: 26.05.2010 Сообщений: 32	x:=copy(st,1,pos(' ',st)); копирует часть строки до первого пробела if st[i-1]=' ' then x:=x+st[i]+'. '; если предыдущий символ был пробелом то приписать к x этот символ и точку. Программа должна ошибку выдавать потому что будут пытаться обратиться к нулевому символу st(а такового нет). Смысла в программе я не нашёл