[челювек]

Помогите с задачей, очень нужно, пожалуйста.


Написать и протестировать процедуру, которая одной действительной переменной присваивает значение, равное сумме квадратов двух действительных значений, а другой переменной — значение, равное удвоенному произведению тех же двух действительных значений.

[Konrad]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); var a,b:real;   <b>procedure ab; begin a:=a*a+b*b; b:=2*b*sqrt(a-b*b); end;</b>   begin Memo1.Lines.Clear; a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text); ab; Memo1.Lines.Add('a = '+floattostr(a)); Memo1.Lines.Add('b = '+floattostr(b)); end;

челювек, почему у тебя с репутацией так все плохо?
Особо уже отличился на форуме?

Или очередной восмиклассник захотел "пятерку" по информатике?

[челювек]

Сам не знаю почему у меня -3 с репой, странно, спасибо за помощь с задачей, я замучался с ней

[челювек]

спасибо еще раз за задачу и я пробовал искать в книге своей, Delphi6-7, но так ничего похожего хотя бы на немного на мою задачу не смог(

[челювек]

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

[lmikle]

Лучше для этого использовать входные и выходные параметры:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

program Test;   procedure Calc(a, b : real; var c, d : real); begin   c := a*a + b*b;   d := 2*a*b; end;   var   a, b, c, d : real; begin   Write('Введите значение a:'); ReadLn(a);   Write('Введите значение b:'); ReadLn(b);   Calc(a,b,c,d);   WriteLn('Сума квадратов = ',c);   WriteLn('Удвоенное произведение = ',d);   ReadLn; end.

[Konrad]

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

Если написать так:
ab(a, b : real);
то машине понадобиться вызывать параметры, а это лишные операции, в большой проге согласен, та и в даном примере я так понял нужно было минимизировать затраты памяти.