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

[aleksvander]

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

Задание:

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

и

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

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

[Bokul]

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

В каком файле? Текстовом или типизированом?

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

Если

ВСЕ символы из строки W должны содержаться в переданной функции строке

то вот решения

var w:string;
function test(word:string):boolean;
var i:byte;
begin
for i:=1 to length(w) do
    if pos(w[i],word)=0 then
       begin
            test:=false;
            exit;
       end;
test:=true;
end;