Задачка с ф-цией Countstrd, и задачка на Литеры Опции

[aleksvander]

Помогите с заданиями плисс

Задание:

Напишите функцию CountStrD(f), которая находит количество строк в файле, заканчивающихся буквой "d".

и

Написать функцию function Test(word:string): boolean принимающую значение True, если В строку входят литеры, содержащиеся в глобальной переменной W типа string.

Сообщение отредактировано: aleksvander - 29.05.2006 21:17

[Clon]

aleksvander Ну вот, вообщем, что за пять минут накатал

program func(input,output);
var
w:boolean;
s:string;
f:file of string;
c:char;
n:integer;
procedure enterfile;
begin
w:=false;
writeln('enter text:');
rewrite(f);
while w<>true do
      begin
      writeln('enter string:');
      readln(s);
      write(f,s);
      writeln('next string?y/n');
      readln©;
      if c='n' then w:=true;
      end;
close(f);
end;
function CountStrD:integer;
begin
     reset(f);
     while not eof(f) do
           begin
           read(f,s);
           if s[length(s)]='d' then inc(n);
           end;
     close(f);
write('kol-vo takih strok:');
write(n);
end;
begin
assign(f,'textfile');
enterfile;
countStrD;
end.