Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Замена в каждой строке заданного количества первых символов
Помогите,пожалуйста, написать программу на Паскале: Замена в каждой строке заданного количества первых символов заданным текстом. Заранее спасибо.
1 | Автор: Lionel2394 | 2014-12-20, 10:06   |  Репутация: [ + 0 ]
var i,n,kol : integer;
    str : string;
    masiv : array of string;
begin

readln(n); // зчитуєм кількість строк

SetLength( masiv , n); // задаємо розмір динамічного масива ( нумерація починається з нуля )

for i := 0 to n-1 do readln( masiv );  // зчитуєм строки

readln(str); // текст на який будем замінять
readln(kol); // кількість елементів для заміни

for i := 0 to n-1 do 
begin
 //masiv := str  +  copy( masiv, length(str) + 1 , length( masiv ) -  length( str ) );  // замінюємо перші символи на задані
 masiv := str  +  copy( masiv, kol + 1 , length( masiv ) -  kol );  // замінюємо задану кількість перших символів на задані
 writeln( masiv
);
end; 

end.


Verhovny Menko
2 | Автор: Verhovny_Menko | 2014-12-23, 20:08   |  Репутация: [ + 7 ]
  • Страница 1 из 1
  • 1
Поиск: