 |
Вітаю Вас, Гість · RSS |
 |
Паскаль
| |
ihor_kulikovskyi |
Дата: Пт, 13.12.2013, 01:26 | Повідомлення № 1 |
Новий користувач
Повідомлень: 1
| програма для одного пропуску працює прекрасно а от для декілька між словами ні поможіть!!!!
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, 02:24 | Повідомлення № 2 |
Ветеран спілкування
Повідомлень: 4332
| Є ризик, що на момент першого використання у рядку h:=r-1-m; зміна m буде не визначеною. Це між іншим.
А в цілому: програма погано "читається". Раджу написати коментар, що на якому етапі робиться. Тоді й стане видно, де помилка.
|
|
| |
TYP |
Дата: Пт, 13.12.2013, 11:39 | Повідомлення № 3 |
Прописаний назавжди
Повідомлень: 472
| Довго мучила проблема незручності використання стандартного IDE Free Pascal. Альтернативні рішення не могли його замінити по причині відсутності, чи незручності покрокового відлагодження програм. І ось нарешті вдалося помирити Free Pascal із Geany + Scope Debugger Вдалося прикрутити до Portable версії компілятор FPC 2.6.2 і дебагер GDB 7.3. Geany основні комбінації клавіш налаштовував схожими до FPC. Хоча не все вдалося. Кому цікаво завантажити можна ТУТ
|
|
| |
© Форум інформатиків України, 2007-2023.  |