Паскаль - Форум інформатиків

Паскаль

Дата: Пт, 13.12.2013, 02:26 | Повідомлення № 1

Новий користувач

Повідомлень: 1

Нагороди: 0

Рейтинг: 0

програма для одного пропуску працює прекрасно а от для декілька між словами ні поможіть!!!!

Program string3;
var a,word:string; n,i,m,r,h,k:integer;
begin
writeln('Vvedit slova');
readln(a);
r:=length(a);
for i:=1 to r do
if a=' ' then m:=i;
h:=r-1-m;
word:=copy(a,m+1,h);
n:=length(word);
for i:=1 to length(a)-n-1 do
if copy(a,i,n)=word then delete(a,i,n);
k:=1;
for i:=1 to length(a) do
begin
if a=' ' then
begin
delete(a,1,1);
delete(a,i,1);
end;
end;
writeln('Tci slova',a);
readln;
readln;
readln;
end.

Пилипчук_О_П

Дата: Пт, 13.12.2013, 03:24 | Повідомлення № 2

Ветеран спілкування

Повідомлень: 3767

Нагороди: 28

Рейтинг: 309

Є ризик, що на момент першого використання у рядку h:=r-1-m; зміна m буде не визначеною. Це між іншим.

А в цілому: програма погано "читається". Раджу написати коментар, що на якому етапі робиться. Тоді й стане видно, де помилка.

TYP

Дата: Пт, 13.12.2013, 12:39 | Повідомлення № 3

Прописаний назавжди

Повідомлень: 355

Нагороди: 4

Рейтинг: 28

Довго мучила проблема незручності використання стандартного IDE Free Pascal. Альтернативні рішення не могли його замінити по причині відсутності, чи незручності покрокового відлагодження програм. І ось нарешті вдалося помирити Free Pascal із Geany + Scope Debugger
Вдалося прикрутити до Portable версії компілятор FPC 2.6.2 і дебагер GDB 7.3. Geany основні комбінації клавіш налаштовував схожими до FPC. Хоча не все вдалося. Кому цікаво завантажити можна ТУТ