freepascal.ru

Напишите функцию для определения позиции буквы в заданной строке.Функция должна вернуть позицию первой такой буквы или ноль,если буквы в строке нет.Напишите программу для проверки функции.

Функция должна вернуть позицию первой такой буквы или ноль,если буквы в строке нет

Код: Выделить всё

function poisk(str:string;ch:char):integer;
var i,n:integer;
begin
    for i:=1 to length(str) do
      if str[i]=ch then
        begin
          n:=i;
          break;
        end
      else n:=0;
    poisk:=n;
end;
var s:string;
begin
    writeln('введите строку');
    readln(s);
    writeln(poisk(s,'a'));
    readln
end.

Код: Выделить всё

function poisk(str:string;ch:char):integer;
var i : integer;
begin
    poisk:=0;
    for i:=1 to length(str) do
      if str[i]=ch then
        begin
          poisk:=i;
          break;
        end
end;

Paster Fob писал(а):Что-то я не подумал, поторопился...но так ведь то же считается?

Код: Выделить всё

function Max(arg1, arg2 : integer) : integer;
begin
  if arg1 > arg2
    then Max:= arg1
    else Max:= arg2
end;

var A,B:integer;
begin
A:= Max( 20, 10 );    { A = 20 }
Writeln( Max( A, B ) );   { печатается большее из A и B }
readln
end.

Valeriy писал(а):В этом примере функция вызывается дважды, не понимаю с какой целью?

Максим писал:

В данном случае вы не понимаете абсолютно правильно.
Это опечатка в примере.

Где именно опечатка?
Подскажите пожайлуста.

Valeriy писал(а):Где именно опечатка?Подскажите пожайлуста.

Код: Выделить всё

Созданная нами функция может вызываться так.
A:= Max( 20, 10 ); { A = 20 }
Writeln( Max( A, B ) ); { печатается большее из A и B }
Вызов функции можно использовать как фактический параметр в её
собственном вызове, то есть организовать вложенные вызовы, например.
A:= Max ( Max( 20, 10 ), 40 ); { A = 40 }
A:= Max ( Max( 20, 10 ), Max( 200, 100 ) ); { A = 200 }


Код: Выделить всё

function Max(arg1, arg2 : integer) : integer;
begin
if arg1 > arg2
then Max:= arg1
else Max:= arg2
end;

var A:integer;
begin
A:= Max( 20, 10 );
Writeln(A);
readln
end.

Код: Выделить всё

function Max(arg1, arg2 : integer) : integer;
begin
if arg1 > arg2
then Max:= arg1
else Max:= arg2
end;

var A,B:integer;
begin
A:=20;
B:=10;
Writeln( Max( A, B ) );
readln
end.

Код: Выделить всё

2
4
6
8

Код: Выделить всё

var N,S: integer;
      F: text;
begin
   write('Введите номер - ');
   readln(N);
   Assign(F,'C:\File.txt');
   Reset(F);
    while not Eof(F) and (S<>N) do begin
     readln(F,S);
    end;
     if S=N
      then writeln('Есть такой номер')
      else writeln('Нет такого номера');
   close(F);
  readln
end.

Код: Выделить всё

S:=0;