исключения

[yurik1982]

кто-нибудь может мне помочь?
1   Создать программу, обрабатывающую исключения использованием оператора try… except. Проект – консольное приложение.
2   Создать программу, обрабатывающую исключение использованием оператора try… finally. Проект – консольное приложение.
В заданиях надо рассчитывать функции f1(x) и f2(x) при x = i*h. i -индекс цикла (целые числа интервале -10...10). Шаг изменения h.
f1(x) = 1+1/x, h1 = π/10, тип данных для f1(x) extended.
f2(x) =(300-x)*50, h2 = 20, тип данных для f2(x) word

[RXL]

yurik1982, показывай, что написал и что не получается. Сразу предупреждаю: халявы тут не будет. Т.е. писать будешь сам, а мы только помогать.

[yurik1982]

Необходимо отслеживать два исключения
 Деление на 0 (исключение EZeroDivide).
Выход за пределы диапазона (исключение RangeError).

получилось, но чтото не так:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
 h1=pi/10;
 h2=20;
 var
 f:boolean=false;
 i,imax,imin,i_error:integer;
 y:array[-10..10] of extended;
 b:array[-10..10] of word;
 begin
writeln('Введите Imin и Imax в пределах -10...10');
write(' Imin=');
readln(imin);
write(' Imax=');
readln(imax);
try
   for i:=imin to imax do
   begin
   i_error:=i;
   y[i]:=1+1/(i*h1)
   end;
   for i:=imin to imax do
   begin
   i_error:=i;
   b[i]:=(300-i*h2)*50;
   end;
   except
   on EZeroDivide do
   begin
   writeln('Деление на 0');
   writeln(' при i=');
   i_error:=i;
   f:=true;
   end;
end;
if not f then writeln('OK');
readln;
end.

ошибку диапазона показывает ОК

[x77]

отлвавливайте все исключения (on E: Exception do begin...), и уже внутри блока except анализируйте, что вы отловили (if E is EZeroDivide then...).

[yurik1982]

А со списками не поможете:

Код:

Задание Создать проект работы со списками. В проекте предусмотреть: 
1	Заполнение комбинированного списка из поля ввода. 
2	Редактирование комбинированного списка (ввести строку, переместить строку). 
3	Копирование строк из списка ComboBox список ListBox, 

Форма содержит следующие компоненты: 
	ƒ ListBox1 -простой список. 
	Label1 – метка для заголовка компонента ListBox1. 
	ComboBox1 -комбинированный список. 
	Label2 – метка для заголовка компонента ComboBox1. 
	Edit1-однострочный редактор для ввода текста. В него вводится текст строки для списка. 
	Label3 – метка для заголовка редактора Edit1. 
	Button1– кнопка "Инициализация". Позволяет очистить поле Edit1 и установить там курсор. 
	Button2 – кнопка "Принять ComboBox" для заполнения компонента ComboBox1. 
	Button3 – кнопка "Редактировать ComboBox". Позволяет вводить, удалять, взаимозаменять и перемещать строки списке. 
	Button4 – кнопка "Копировать ListBox". Позволяет скопировать ListBox строки, выбираемые ComboBox. 



unit Prg_12_1_;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit1.SetFocus;
end;

 procedure TForm1.Button2Click(Sender: TObject);   ---   выбивает ошибку
begin
ComboBox1.Items.Add(Edit1.Text);
Edit1.Text:='';
Edit1.SetFocus;
end;

 procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox1.Items.Insert(ComboBox1.ItemIndex,Edit1.Text);
Edit1.Text:='';
Edit1.SetFocus;

 procedure TForm1.Button4Click(Sender: TObject);
begin
ListBox.Items.Add(ComboBox1.Items[ComboBox1.ItemIndex];

end;

end.

[x77]

Button3 – кнопка "Редактировать ComboBox". Позволяет вводить, удалять, взаимозаменять и перемещать строки списке.

разнесите все эти операции на отдельные кнопки и никаких проблем не будет. для перемещения и удаления смотрите методы TComboBox.Items (TStrings) - Delete, Move, и т.д.

[x77]

з.ы. Insert вам особо ни к чему, а для замены строки надо тупо присвоить соответствующий элемент списка: Items [ItemIndex] := Edit1.Text;