программы для делфи

[Ирина Анатольевна]

Добрый день!!!!!!!! помогите пожалуйста ниписать программы для делфи.
1. Выполнить поиск заданного элемента массива по образцу. В текстовом поле Образец задать значение поиска. Если элемент найден, вывести число совпадений, иначе - сообщение об этом.
2. В одном текстовом поле запрашивается ваш рост, в другом - ваш вес. программа определяет оптимальный вес (рост - 100) и выводит в поле метки информацию о том, стоит ли человеку похудеть, поправится или его вес находится в норме.
3. В текстовом поле запрашивается значение денежной суммы в евро. Выполнить преобразование в российские рубли по курсу и вывести результат в поле метки. Курс задать в отдельном текстовом поле.

[denisbrain]

3. задачу по евро берусь делать

procedure TForm1.Button1Click(Sender: TObject);
var e:Extended; //кол-во евро
kursE:Extended; // курс евро
begin
  if not trystrtofloat(edit1.text,e) then Raise Exception.CreateFmt('Недопустимое число : ''%s'' в поле евро ', [edit1.text]) //
  else
  if not trystrtofloat(edit2.text,kursE) then Raise Exception.CreateFmt('Недопустимое число : ''%s'' в поле "Курс Евро"', [edit2.text])
  else begin
     edit3.Text:=Floattostr(kursE*e);
  end;

end;

uses WinInet;
var   
   XMLDoc:string;


// Скачивает файл XML в переменную string
function GetCursFile (const fileURL:string): string;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of char;
  BufferLen: DWORD;
  f: File;
  sAppName: String;
begin
  result:='';
  sAppName := ExtractFileName(Application.ExeName);
  hSession :=InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        result:=result+Buffer;
      until BufferLen = 0;
    finally
      InternetCloseHandle(hURL)
    end
  finally
    InternetCloseHandle(hSession)
  end
end;


Function CopyTextFrom(s:string;s1,s2:string):string;
var i1,i2:integer;
begin
  i1:=pos(s1,s);
  i2:=pos(s2,s);
  result:=copy(s,i1+length(s1),i2-i1-length(s1));
end;


// получение курса валют из  файла ХМЛ 
Function GetKursValutFromCBRF(Valuta:STring;XMLDoc:string):Extended;
var ValutaList:TstringList;
    x:integer;
    s:string;
    ValueE,nominalE:Extended; // Валюта разрядность
begin
   ValutaList:=TstringList.Create;
   ValutaList.text:=XMLDoc;
  for X:=1 to ValutaList.count-1 do
    if pos('<CharCode>'+Valuta+'</CharCode>', ValutaList[x])>0 then begin
       s:=ValutaList[x+1];
       nominalE:=StrTofloat(CopyTextFrom(s,'<Nominal>','</Nominal>'));
       s:=ValutaList[x+3];
       ValueE:=StrTofloat(CopyTextFrom(s,'<Value>','</Value>'));
       result:=ValueE/nominalE

    end;
   ValutaList.free;
end;

// Получить список валют из  XMLDoc
Function GetListValuta(XMLDoc:string):String;
var x:integer;
    ValutaList:TstringList;
begin
   ValutaList:=TstringList.Create;
   ValutaList.Text:=XMLDoc;
   result:='';
   for X:=0 to ValutaList.count-1 do begin
     if pos('<CharCode>',ValutaList[x])>0 then
     result:=result+CopyTextFrom(ValutaList[x],'<CharCode>','</CharCode>')+#13+#10;
   end;
   ValutaList.free;
end;

// получаем ссылку на файл  XML содержащий котировки 
Function GetUrlCBRF(date:Tdate):string;
begin
  result:='http://www.cbr.ru/scripts/XML_daily.asp?date_req='+FormatDateTime('DD/MM/YYYY',date);
end;

пример обновления

XMLDoc:=GetCursFile(GetUrlCBRF(form1.DateTimePicker1.DateTime));
edit2.Text:=floattostr(GetKursValutFromCBRF('EUR',XMLDoc));

[Ирина Анатольевна]

Спасибо огромное!!!!!!!!!!!!