Turbo Pascal

ЛЮстРа

Sonykillstation
От нацарапал я се прогу и не могу модуль подлючить ибо я хз как правильно сделать его в ****.tpuпо идееж нада просто скомпилировать и он сам появится но такого дейсвия я не наблюдаю( . Чё сделать нада подскажите пожалуста!!
 
Останнє редагування:

GrAndSE

Тёмный
Модератор
От нацарапал я се прогу и не могу модуль подлючить ибо я хз как правильно сделать его в ****.tpuпо идееж нада просто скомпилировать и он сам появится но такого дейсвия я не наблюдаю( . Чё сделать нада подскажите пожалуста!!
а откуда сей модуль должен явиться?
 

ЛЮстРа

Sonykillstation
а откуда сей модуль должен явиться?
от куд от куда сам написал во текст
unit m1;
interface

function readf(n:integer):char;
procedure writef(s:char);
procedure rewr;
function fsize:integer;

implementation
var
f1,f2:file of char;
function readf(n:integer):char;
var
s:char;
begin
assign(f1,'input.in');
reset(f1);
seek(f1,n);
read(f1,s);
readf:=s;
close(f1);
end;
function fsize:integer;
begin
assign(f1,'input.in');
reset(f1);
fsize:=filesize(f1);
close(f1);
end;
procedure rewr;
begin
assign(f2,'output.in');
rewrite(f2);
close(f2);
end;
procedure writef(s:char);
begin
assign(f2,'output.in');
reset(f2);
seek(f2,filesize(f2));
write(f2,s);
close(f2);
end;
end.
не делает файлик после компиляции типа .tpu (хотя всё правильно вроде)) тошо без него к основной проге низя подключить. Єт у меня первій раз такое, а ваше я в паскале не гоцал ещё с первого курса такшо хз шо делать подскажите или віложите файлик у кого получится.
 
Останнє редагування:

Hamster

Well-Known Member
Нажимаем Ф9, получается все нормуль.
Пишем основную прогу для проверки

uses wincrt,m1;

var g:char;
begin
g:='j';
rewr;
writef (g);
end.

Всьо чотка.
 

Вкладення

  • 920 байт Перегляди: 160

ЛЮстРа

Sonykillstation
пасиба но у меня походу паскаль кривой не хочет он делать модуль ак шо пасиба за тот шо ти сделал )
 

ЛЮстРа

Sonykillstation
Э) Есть ешё проблемка помогите. Прога должна читать с файла текст и там где встечаетса буква а дописать после нее букву к и результат вписать в другой файл.
program p1;
var stroka:string;
i:integer;
f1,f2:text;
begin
assign(f1,'c:\input.txt');
reset (f1);
read (f1,stroka);
close(f1);
for i:=1 to length(stroka) do
if stroka='a' then
begin
insert ('k',stroka,i+1);
end;
begin
assign (f2,'c:\output.txt');
rewrite (f2);
write (f2,stroka);
close (f2);
end;
end.
файлы не находит пробывал и просто в папку кидать и путь не указивать хз шо с ними делать падскажите плз!!
 
Останнє редагування:

Hamster

Well-Known Member
Какой паскаль? Проблема явно не в программе. У меня работает отлично.
Ищи проблему в софте.
 

alexcorp

New Member
Запиши в текстовом файле букву "а" в английской раскладке, и все будет работать. Так как букву "а" в русской раскладке программа не видит.
 

ЛЮстРа

Sonykillstation
Оно и так англиским написано у меня файлы не находились просто паскаль кривой был шас вроде переставил работает нормально только вот не могу разабратся почему не может найти без прописи путей к текстовику пишет file not found хотя они валяются в папке с прогой да и ешё 1 проблема в ***.ехе чёта не перегоняется и файл модуля не создается всёравно дайте пожалуста ссылочку на нормальній паскль если не затруднит. Ато с Эмуля уже 3 выкачал безталку.
 
Зверху