IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Pascal ABC, Ребят, выручайте
Raigo
сообщение 17.5.2012, 15:29
Сообщение #1





Группа: Новички
Регистрация: 17.5.2012
Пользователь №: 55 505



Написать программу, которая каждую встреченную букву "б" заменяет сочетанием "ку"с помощью модулей.
вот короче что получилось

модуль1:

unit op;
interface
type str= string;
implementation
end.
---------------------------------
Модуль2:

unit obrabotk;
interface
uses op;
procedure vvod(var s:str);
function zamena(s:str): string;

implementation

procedure vvod;
begin
WriteLn;
write('Введите текст: ');
readln(s);
end;

function zamena;
var i : integer;
sTemp : string;
begin
sTemp := s;
for i:=length(sTemp) downto 1 do
if sTemp[i]='б' then
begin
delete(sTemp,i,1);
insert('ку',sTemp,i);
end;
zamena := sTemp;
end;

end.
-------------------------------------

Модуль3:

uses op, obrabotk;
var
s : str;
begin
vvod(s);
writeln('Òåêñò ', zamena(s));
readln;
end.

Без понятия че ему надо, пишет "Неизвестный идентификатор s " во втором модуле
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 21.7.2018, 22:43
Блог КАБiNET