Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2013, 15:38   #1
zxzxz
Пользователь
 
Регистрация: 15.03.2013
Сообщений: 21
По умолчанию строки

Код:
program ex;
var st1,st2,bykva:string;
    i,l:integer;
begin
write('Введите слово: ');
readln(st1);
write('Введите букву: ');
readln(bykva);
l:=length(st1);
 for i:=1 to l do
  begin
   if st1[i]=bykva then
    begin
     st2:=st2+'к';
    end
   else
    begin
     st2:=st2+st1[i]
    end;
  end;
writeln('В итоге: ', st2);
readln
end.
помогите пожалуйста эту же задачу,но через процедуры и функции сделать
zxzxz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на строки. Даны две строки. Определить можно ли из символов первой строки получить вторую строку.( написать подпрограммой и ANTON1994 Паскаль, Turbo Pascal, PascalABC.NET 5 09.02.2013 14:07
Программа на языке "Ассемблер" - ввод строки, анализ длины строки, добавление точки в конец строки Алексей_2012 Помощь студентам 1 05.04.2012 11:26
Сделать в гриде строки выше, чтобы не растягивать строки до бесконечности kris__tina БД в Delphi 1 09.06.2011 15:31
Создание пустой строки и копирование в неё содержимое предыдущей строки Gvaridos Microsoft Office Excel 2 29.10.2010 13:33
Перенести символа с начала строки в место перед запятой этой же строки. Zhiltsov Microsoft Office Excel 4 05.06.2009 13:10