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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2010, 16:18   #1
for_tuna
Пользователь
 
Регистрация: 06.12.2009
Сообщений: 23
По умолчанию Доброго времени суток=)))зачадча с модулем

Дана программа


не могу подключить модуль к программе,пишет что не найдено(((


Программа
_________________________________
Код:
uses ooo;
var s,d,z,f,u,l,a:string;
    k,c:integer;
begin
writeln('‚¢¥¤¨â¥ ⥪áâ: ');
readln(s);
k:=countword(s); writeln;
writeln('BBeDuTe HoMep CJloBa KoTopoe HaDo BIbDeJluTb: ');
readln(c);
d:=wordn(c,s);
deleteall(s,l,a);
writeln('CJloB B TeKcTe: ',k);  writeln('BIbDeJleHHoe cJloBo: ',d);
writeln('TeKcT llocJle YDaJleHuia CJloB u3 4-x 6yKB: ', l,' ',a);
writeln;
writeln('BBeDuTe Ha3BaHue llpoDuKTa u lLeHy: ');
readln(z);
divend(z,f,u);  writeln;
writeln('TecT llocJle pa3DeJleHuia: ',f,u);
readln
end.

Модуль
__________________
Код:
unit ooo;
interface
function countword(s:string):integer;
function wordn(nom:integer; s:string):string;
procedure divend(z:string; var f,u:string);
procedure deleteall(s:string; var l,a:string);
implementation
function countword(s:string):integer;
var k,i:integer;
begin
k:=1;
for i:=1 to length(s)-1 do
if (s[i]=' ') or (s[i]=',') or (s[i]='.') and (s[i+1]<>' ') then k:=k+1;
countword:=k;
end;
function wordn(nom:integer; s:string):string;
var clovo:string; k,a,b,i,j:longint;
begin
clovo:='';
k:=1;
a:=1;
for i:=1 to length(s) do begin
if (s[i]=' ') or (s[i]=',') or (s[i]='.') and (s[i+1]<>' ') then k:=k+1;
if k=nom-1 then a:=i+1;
if k=nom then b:=i;
end;
for j:=a to b do clovo:=clovo+s[j]; wordn:=clovo;
end;
procedure deleteall(s:string; var l,a:string);
var s1,s2,d,f,o:string; i,h,b,j,n,c,m,g:integer;
begin
s1:='';
s2:='';
for i:=1 to length(s) do  begin
if (s[i]=' ') and (s[i+5]=' ') then begin h:=i-1; b:=i+6;
for j:=1 to h do s1:=s1+s[j];
for n:=b to length(s) do s2:=s2+s[n] end end;
d:=s1; f:=s2; l:=d; a:=f;
end;
procedure divend(z:string; var f,u:string);
var toBar,cena,o,y:string; a,b,i,j,l,n:longint;
begin
toBar:=''; cena:='';
for i:=1 to length(z) do
if z[i]='-' then begin a:=i-1; b:=i+1 end;
for l:=1 to a do toBar:=toBar+z[l];
for n:=b to length(z) do cena:=cena+z[n];
o:=toBar; y:=cena; f:=o; u:=y;
end;
end.
for_tuna вне форума Ответить с цитированием
Старый 28.04.2010, 16:46   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

А модуль лежит рядом с программой? Если нет положи его в ту же папку.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.04.2010, 17:44   #3
for_tuna
Пользователь
 
Регистрация: 06.12.2009
Сообщений: 23
По умолчанию

заработать то он заработал=)))только вот у меня несколько вопросов в которых не могу разобраться....
1. в процедуре deleteall удаляется вобще черт пойми как....подскажите что не так,пожалуйста=)( там происходить удаление всех слов равных 4 символам)
2.в процедуре divend должно быть разделение строки на две подстроки по последнему вхождению сочетания символов... не пойми толи это происходит толи нет...


заранее спасибо=)жду помощи=)
for_tuna вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Excel 2007 Как расчитать интервал времени за несколько суток Олег SH Помощь студентам 0 29.11.2009 10:47
запрашивает ввод времени суток и в зависимости от этого выводит на экран "Доброе утро", "Добрый день". Maria, Russia Помощь студентам 5 17.02.2009 21:44
Определение суток перевода времени на летнее/зимнее ViTYAi Помощь студентам 1 20.05.2008 16:41