Как поменять все это:



на цикл с условием while

вот такое условие: Найти наименьшее значение функции: y=sin(x)/1+x и значение аргумента, при котором оно получено, если X изменяется от 0 до 10 с шагом 0,1 

А это к чему? Я в алгебре ничего не понимаю, я просто изменил написанный тобой цикл с FOR на цикл с WHILE.  

Спасибо, жаль недостаточно прокачен для того чтобы + поставить

DeeCee, ты не можешь, я поставлю

Привет всем!Тут сессия на носу и надо написать программу на Delphi.....Помогите пожалуйста.Есть текст программы,осталось только вписать его куда надо чтоб он заработал...а я не знаю как это делается...HELP!!!!!!!!!! 

dinok21, создай тут отдельную тему, и выложи код.

Вот текст программы...но я не знаю как сделать чтоб она работала.!!!Помогите пожалуйста
В разделе interface модуля формы содержится описание класса формы.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

Задаем класс формы и типы объектов.
type
  TForm1 = class(TForm)
    inDialog: TOpenDialog;
    OpenFile: TButton;
    Parol1: TEdit;
    SaveFile: TButton;
    outDialog: TSaveDialog;
    Shifr: TRadioButton;
    Rashifr: TRadioButton;
    Quit: TBitBtn;
    Memo1: TMemo;
    Label1: TLabel;
    procedure OpenFileClick(Sender: TObject);
    procedure saveFileClick(Sender: TObject);
    procedure ShifrClick(Sender: TObject);
    procedure RashifrClick(Sender: TObject);
    procedure QuitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fileIn : textFile;
  fileOut : textFile;
  str:string;
  parol:string;
  parolPos:integer;

В разделе implementation содержится подключение к модулю директивной $R визуального описания формы.

implementation

{$R *.dfm}

Кнопке «Открыть файл» соответствует код:
procedure TForm1.OpenFileClick(Sender: TObject);
begin
if inDialog.Execute then          
  begin
   assignFile(fileIn,inDialog.FileName);    
   reset(fileIn);
  end;
end;
Кнопке «Вперед!» соответствует код:
procedure Shifrovanie();
var
i:integer;
begin
while not(eof(fileIn)) do
 begin
  parolPos:=1;                      
  readln(fileIn,str);               
  for i:=1 to length(str) do
   begin
    str[i]:= chr((ord(str[i])+ord(parol[parolPos])) mod 256); 
    inc(parolPos);                                      
    if parolPos>length(parol) then parolPos:=1; 
   end;
   writeln(fileOut,str);     
 end;
end;

procedure Rashifrovanie();
var
i:integer;
begin
while not(eof(fileIn)) do 
 begin
  parolPos:=1;                  
  readln(fileIn,str);           
  for i:=1 to length(str) do
   begin
    str[i]:= chr((ord(str[i])-ord(parol[parolPos])+256) mod 256); 
    inc(parolPos);                 
    if parolPos>length(parol) then parolPos:=1; 
   end;
   writeln(fileOut,str);           
 end;
end;

Для сохранения нового файла код:
procedure TForm1.saveFileClick(Sender: TObject);
begin
if outDialog.Execute then               
  begin
   assignFile(fileOut,outDialog.FileName);        
   rewrite(fileOut);
   Parol:=Parol1.text;                             
   if Shifr.checked then Shifrovanie();            
   if Rashifr.checked then Rashifrovanie();         
   closeFile(fileOut);                                
closeFile(fileIn);                                 
end;
end;

procedure TForm1.ShifrClick(Sender: TObject);
begin
 Shifr.checked:=true;         
Rashifr.checked:=false;

end;

Для кнопки «Выход» следующий код:
procedure TForm1.QuitClick(Sender: TObject);
begin
form1.close;                  
end;

end.

Это лабораторная по защите информации...

dinok21, изучите пожалуйста правила и создайте свою тему.