1) D:\ Литература \ 20 Век \Том 1. Поднялись на 1 уровень вверх = D:\ Литература\ 20 век Создали подкатолог Шолохов = D:\ Литература \ 20 век \ Шолохов Перемесили файл том1 в подкаталог Шолохов = D:\ Литература \ 20 век \ Шолохов\ Том1.
2) Начали в каталоге \Отчет поднялись на один уровень вверх = \..\ Отчет Спустились на 2 уровня вниз и оказались в C:\Школа\Дежурство\График значит с последних каталогов поднимемся на 2 уровня вверх и получаем C:\Школа Значит изначально путь был C:\Школа\Отчет
3) По аналогии с задачей под №1 : D:\Фото\2012\Общая D:\Фото\2012 D:\Фото\2012\9 Класс D:\Фото\2012\9 Класс\Общая
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.