Работа

[Gooserok]

Добрый вечер. Прошу Вас, помогите пожалуйста разобраться с этим, срочно нужно сдать, а ничего не понимаю.

[Человек_Борща]

Вам в раздел фриланса.

[саша40]

Задание№1 решение:

//delphi
var
Res: real;
x: real;
begin
x:=18; //присваеваем х
res:=Sqrt((x + 2) / (2*x + 12)); //выполняем
ShowMessage('Ответ: ' + floattostr(res)); //показываем пользователю  
end;

Задание№ 2 решение:
На форме 3 edit и button:

var
a, b, c: integer;
begin
//будет кучает условий
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
if (a<b) and ( a<c) then 
begin
ShowMessage('Большее: ' + inttostr(a));
exit;
end;
if (b<c) and (b<a) then 
begin
ShowMessage('Большее: ' + inttostr(b));
exit;
end;
if (c<a) and ( c<b) then 
begin
ShowMessage('Большее: ' + inttostr(b));
exit;
end;
//ну и так далее, используя ещё 6 комбинаций
end;

[саша40]

Задание№3 решение(автор просто новичок):

//какая-то процедура
var
i: integer;
begin
i:= strtoint(edit1.Text);
if i<=0 then exit;
if i>7 then exit;
Case i of
1: ShowMessage('Понедельник, робочий);
2: ShowMessage('Вторник, робочий');
3: ShowMessage('Среда, робочий');
4: ShowMessage('Четверг, робочий');
5: ShowMessage('Пятница, робочий');
6: ShowMessage('Суббота, у кого робочий, а у кого и нет');
7: ShowMessage('Воскресенье, неробрчий, выходной);
end;

[саша40]

Автор ты головой думай. Иди гуляй.

[Gooserok]

Сообщение от саша40

Задание№3 решение(автор просто новичок):

//какая-то процедура
var
i: integer;
begin
i:= strtoint(edit1.Text);
if i<=0 then exit;
if i>7 then exit;
Case i of
1: ShowMessage('Понедельник, робочий);
2: ShowMessage('Вторник, робочий');
3: ShowMessage('Среда, робочий');
4: ShowMessage('Четверг, робочий');
5: ShowMessage('Пятница, робочий');
6: ShowMessage('Суббота, у кого робочий, а у кого и нет');
7: ShowMessage('Воскресенье, неробрчий, выходной);
end;

цифры не признает.. ошибка

[Gooserok]

Сообщение от саша40

Автор ты головой думай. Иди гуляй.

первые два тоже получились вроде..запускаются, работают..

var i,j,y,min,max:integer ;
begin
i:=strtoint(Edit2.Text);
j:=strtoint(Edit3.Text);
y:=strtoint(Edit4.Text);
min:=i;
max:=i;
if j>max then
max:=j;
if y>max then
max:=y;
if j<min then
min:=j;
if y<min then
min:=y;
Edit1.Text:=inttostr(max);
Edit5.Text:=inttostr(min);
end;

end.



var
x,y: real;
begin
// Если после Edit1 пустое, то при выполнении функции
// StrToInt возникает ошибка.
// Проверим, ввел ли пользователь в поле Edit1

if Length(Form1.Edit1.Text) = 0 then
begin
ShowMessage('Надо ввести значение');
exit; // Завершить обработку события
end
else
x:= StrToFloat(Form1.Edit1.Text); // Ввести исходные данные
y:= Sqrt((x+2)/(2*x+12)); // Пересчитать
// Вывести результат
Form1.Label2.Caption:=
'При X = ' + FloatToStr(x) + ' Y = ' + FloatToStr(y);
end;

end.

[саша40]

Сообщение от Gooserok

цифры не признает.. ошибка

Тогда измени тип у переменой на string и исправь это:

i:= strtoint(edit1.Text);

на это:

i:= edit1.Text;

И в условие пропиши цыфры так:

'цыфра' :

[Gooserok]

Сообщение от саша40

Тогда измени тип у переменой на string и исправь это:

i:= strtoint(edit1.Text);

на это:

i:= edit1.Text;

И в условие пропиши цыфры так:

'цыфра' :

if i<=0 then exit;

здесь ему не нравится..

[саша40]

Сообщение от Gooserok

if i<=0 then exit;

здесь ему не нравится..

что ему там не нравится? Этот участок кода говорит о том, что если пользователь 0 или отрацательное число, то ответа ему не будет.