паскаль

[Twisti]

Дано предложение. В зависимости от знака препинания, которым оно оканчивается, определить тип этого предложения


буду очень признателен...

предложение должно открываться из текстового файла...

[Ponkole]

Как я понял дано одно предложение. Если так вот держи код в паскале:

Uses CRT;
var R:Char;
begin
ClrScr;
r:='0';
while (r<>'?') and (r<>'.') and (r<>'!') do
read(r);
writeln;
if r= '.' then writeln('Простое');
if r= '!' then writeln('Восклицательное');
if r= '?' then writeln('Вопросительное');
readkey;
end.

[Twisti]

почти правильно, но только предложение должно открываться из текстового файла...

например как здесь...

var 
t1:text;
max:integer;
c,t:String;
k,n,i:integer;
begin
assign(t1,'D:\Goroda.txt');
reset(t1);
max:=0;
k:=0;
while not EOF(t1) do
begin 
  readln(t1,c);
 writeln(c);
  If Length(C) > Max then
  Begin
     Max:=Length(C);
     T:=C
  End;
  k:=k+1;
end;
writeln('s=',t);
readln;
close(t1);
end.

[GetMax]

while not EOF(t1) do
begin 
  readln(t1,c);
 writeln(c);
End;
If C[Length(C)] = '.' then Writeln('Повествовательное')
Else
If C[Length(C)] = '?' then Writeln('Вопросительное')
Else
If C[Length(C)] = '!' then Writeln('Восклицательное')
Readln

[Twisti]

все равно что то не получается, можете написать код с начала и до конца?

[GetMax]

var
t1:text;
c:String;
begin
assign(t1,'Ishod.txt');
reset(t1);
while not EOF(t1) do
begin
  readln(t1,c);
  writeln(c);
end;
If C[Length(C)] = '.' then Writeln('Pvestvovatelnoe')
Else
If C[Length(C)] = '?' then Writeln('Voprositelnoe')
Else
If C[Length(C)] = '!' then Writeln('Vosklicatelnoe');
readln;
end.