5 задач

[А. Долматов]

ответ на 3 задачу
procedure TForm1.Button1Click(Sender: TObject);
var max,i:integer; f:array[1..3]of integer;
begin
f[1]:=strtoint(Edit1.Text);
f[2]:=strtoint(Edit2.Text);
f[3]:=strtoint(Edit3.Text);
max:=f[1];
for i:=2 to 3 do
if max<f[i] then max:=f[i];
Edit4.Text:=inttostr(max);
end;
вот так по-моему правильно и наиболее просто для понимания. вместо max подставим d как по условию. И наверное все, если я правильно понял, что требуется.

[Shuraken]

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

это будет 2 условных оператора или я чего-то путаю

Именно. Можно написать хоть десять if ... then ... else, но если они в одном блоке, то это один условный оператор. Ну, пример из учебника.
case I of
1,5,7: d := 0;
2,4,8: d := 1;
3,6,9: d := 2;
else d := 3;
end;
Это один условный оператор. Но это же выражение можно записать и так:
if (i = 1) or (i = 5) or (i = 7) then
d := 0 else
if (i = 2) or (i = 4) or (i = 8) then
d := 1 else
if (i = 3) or (i = 6) or (i = 9) then
d := 2 else
d := 3;

И это тоже будет ОДИН составной условный оператор.

[mihaild]

Тут, по сути, два раза используется условный оператор:1)для организации цикла;2)в цикле.

[А. Долматов]

mihaild, какие два условных оператора? Не совсем понятно. Цикл есть цикл - это не условный оператор.

З.Ы. прошу прощения если что-то не так написал

[mihaild]

Цикл по своей сути - этоi:=1;15:if (i>N) then goto 10;тело циклаi:=i+1;goto 15;10:тра-та-таОдним условным оператором можно выбрать одну из двух ветвей. Все проверки условия выполняются только условными операторами.Всё остальное - это другие формы записи, суть от этого не меняется.

[А. Долматов]

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

Цикл - в программировании - оператор языка программирования, позволяющий многократно повторять одну и ту же последовательность команд (тело цикла). Различают:
- операторы циклов с заранее известным числом повторений;
- циклы с предусловиями;
- циклы с постусловиями.
(взял с яндекс.словари)

где в этом определении намек на то, что это оператор условия? (не беру в счет цикл пред- и постусловиями). Если цикл можно выразить через метки и условия, то это совсем не означает, что это условный оператор. Тем более цикл с параметром.

[Wander]

А 4 и 5 ни кто не поможет, не успеваю.

[pu4koff]

4. что-то в этом роде, если я прально понял задание

const
  a = 10;
  b = 5;
  c = 2;
  h = 0.1;
...
function f(x: real): real;
begin
  Result := ABS(a)*exp(b*x)+c*x*x;
end;

function MaxFunc: real;
var
   x: real;
begin
  x := 0;
  Result := f(x);
  while (x <= 4) do
  begin
     Result := max(Result,f(x));
     x := x + h;
  end;
end;