Файлы в Паскале

[Sazary]

можно ли сделать так чтобы когда вводишь строку и если в ней нету определенного символа то происходит конец програмы?

Ищите нужный символ с помощью pos. Например:

s := '123456789';
if pos('.',s)=0 then exit;

- выходит, если не найдет точку

[NEMO1991]

что то никак не получается вывести строку после точки

[__STDC__]

что именно не получается? оО exit уберите... делайте по-другому как-нибудь
например

if pos(...) <> 0 then ...
else exit;

[NEMO1991]

не знаю как сделать так что бы когда проверяешь одну строку как только встетится точка то вывести все после нее в новую строку.(вывести все до точки могу а после нее не получается)

[Sazary]

Сообщение от NEMO1991

как только встетится точка то вывести все после нее в новую строку

str := '12345.678';
k := pos('.',str);
writeln(copy(str,1,k-1)); // выводим до точки
writeln(copy(str,k+1,length(str))); // выводим после точки

[NEMO1991]

не.я имею ввиду так чтобы в строку например s2 были символы те что после точки в строку s. вот сделал чтобы в s1 были символы до точки а после точки не могу..

t:='.';
read(s);
if pos('.',s)=0 then exit;
i:=1;
while s[i]<>t do
begin
insert(s[i],s1,i);
i:=i+1;
end;

[NEMO1991]

все сам сделал))

[NEMO1991]

вот сделал вроде..вот что то не то с ограничением на длину имени файла(36,37 строка)

uses crt;
var mn: set of char;
s,s1,s2,t:string;
n,m,i:integer;
f:text;
begin
mn := ['0'..'9','a'..'z','A'..'Z','$','&','#','`','~','(',')','-','%','!','_','^'];
t:='.';
read(s);

if pos('.',s)=0 then writeln('False');
if pos('.',s)=0 then exit;
i:=1;
while s[i]<>t do
begin
insert(s[i],s1,i);
i:=i+1;
end;
for i:=length(s1)+2 to length(s) do
begin
insert(s[i],s2,i);
end;
writeln(s);
writeln(s1);
writeln(s2);
for i:=1 to length(s1) do
if s1[i] in mn then else writeln('False');
for i:=1 to length(s1) do
if s1[i] in mn then else exit;
for i:=1 to length(s2) do
if s2[i] in mn then else writeln('False');
for i:=1 to length(s2) do
if s2[i] in mn then else exit;
n:=length(s1);
m:=length(s2);
if n>=1 and n<=8 and m>=0 and m<=3 then writeln('true') else writeln('false');
if n<=1 and n>=8 and m<=0 and m>=3 then exit;
 assign(F,s);
 rewrite(F);close(F)
end.

[NEMO1991]

подскажите что не так с ограничением??

[Sazary]

Каждое выражение в условии нужно заключать в скобки.