Turbo Pascal

[ЛЮстРа]

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

 

[GrAndSE]

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

а откуда сей модуль должен явиться?

 

[ЛЮстРа]

а откуда сей модуль должен явиться?

от куд от куда сам написал во текст
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]

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

uses wincrt,m1;

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

Всьо чотка.

 

[ЛЮстРа]

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

 

[ЛЮстРа]

Э) Есть ешё проблемка помогите. Прога должна читать с файла текст и там где встечаетса буква а дописать после нее букву к и результат вписать в другой файл.
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]

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

 

[alexcorp]

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

 

[ЛЮстРа]

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

 

[ЛЮстРа]

А всё не нада в делфи консолью переписал.