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;

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

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.

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

Созданная нами функция может вызываться так.
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;