Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки

Автор: nSk 6.01.2006 20:56

Помогите написать процедуру котрая дудит удолять символы в строках. ( с использованием стаднартных финкций и процедур обработки строк )
например :
Спрашивается число ( например 3 )
Спрашивается слово ( наприсер Valmera )
И программа выдает Valera
(тоесть она оставляет только 3 первые и 3 последнии символы )
еще пример :
stroka : 'raz dva tri chitire'
chislo : 4
otvet : raz tire

Заранние благодарю...

Автор: klem4 6.01.2006 20:59

http://forum.pascal.net.ru/index.php?showtopic=2361

функция delete(s,start,len);

Автор: volvo 6.01.2006 21:01

var
  s: string;
  n: integer;
begin
  write('s = '); readln(s);
  write('n = '); readln(n);

  s := copy(s, 1, n) + copy(s, length(s) - n + 1, n);
  writeln(s);
end.

Автор: nSk 6.01.2006 21:06

Я пытался брать делете delete() но в этой функции у меня почему то не работают переменные тока сразу готовые значения ( delete(s,2,3) - работает , а delete(m,d,e) - некак... )

Спасибо volvo ! работаеет smile.gif

Автор: klem4 6.01.2006 21:07

Ну раз уж я про delete сказал, то с ним вот так :

uses crt;
var
  s : string;
  n : byte;
begin

   clrscr;

   write('s = '); readln(s);
   write('n = '); readln(n);

   delete(s,n + 1,length(s)-2*n);

   writeln(s);

   readln;

end.

Автор: nSk 6.01.2006 21:14

спасиб klem4, понял smile.gif