Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
McSaurons
1

модули в паскале

09.06.2012, 15:14. Просмотров 438. Ответов 0
Метки нет (Все метки)


помогите пожалуйста, нужно сделать модуль из ниже представленной программы, точнее программу с модулем (эта программа будет воткнута в другую*).


Код
program a3;
uses crt;
var
s:array [1..100] of string;
ss:string;
i,j,n,kol:integer;
col:array[1..100] of integer;
kol1:real;
f:text;
begin
clrscr;
write('Wwedite stroku: ');
readln(ss);
assign(f,'text.txt');
reset(f);
n:=1;
repeat
readln(f,s[n]);
inc(n);
until eof(f);
close(f);
kol := 0;
for i:=1 to n do
begin
for j:=1 to length(s[i]) - length(ss) + 1 do
if copy(s[i],j,length(ss)) = ss then inc(kol);
end;

writeln('Kol-vo vhozhdenij - ', kol);


for i:=1 to n do
begin
col[i]:=0;
for j:=1 to length(s[i]) do
begin
if copy(s[i],j,1) = ' ' then inc(col[i]);
if (copy(s[i],j,1) <> ' ') and (j = length(s[i])) then inc(col[i]);
end;
end;

kol := 0;
for i:=1 to n do
kol := kol + col[i];

kol1 := kol / n;

writeln('Srednee kol-vo slov v stroke = ', kol1:8:4);
readln;


assign(f,'text.txt');
append(f);
writeln(f);
write(f,kol1);
close(f);

assign(f,'text.txt');
reset(f);
repeat
readln(f,ss);
writeln(ss);
until eof(f);
close(f);


end.
я пытался сделать в модуль

Код
assign(f,'text.txt');
append(f);
writeln(f);
write(f,kol1);
close(f);

assign(f,'text.txt');
reset(f);
repeat
readln(f,ss);
writeln(ss);
until eof(f);
close(f);
эти 2 фрагмента, но на мои переменные ругался тп.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2012, 15:14
Ответы с готовыми решениями:

модули в паскале
вот такая вот объемная программка,может кто сделает.Буду очень благодарен! Реализовать в виде...

Программа на паскале. на модули и структуры
Всем доброго времени суток! Пишу задание для практики на Паскале, по такому заданию Программа...

Как работает join и split в Паскале? И есть ли такие аналоги Питону в Паскале?
a=input() #из ' Hello world ' делаю 'Hello, world' a.strip(' ') a=', '.join(a.split(' ')) В...

Модули
Добрый день, такой вопрос , есть какая то литература или может кто подсказать где искать в...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2012, 15:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Модули
подскажите пожалуйста, какой модуль в режиме форума надо от ключить, чтобы не было частых лагов......

модули
Задание: http://pic.ipicture.ru/uploads/090516/VZPmBlJDLZ.jpg

Модули
Помогите пожайлуста: • оформить в виде модуля подпрограммы, получающие в качестве ...

Модули
помогите плиз завтро надо сдавать ваще хз как сделать... создать функции MyVal – преобразовать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.