Информатика. Тема: Составление блок-схем алгоритмов.

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

Вот, например, на C (Си):

 #include  

long double a, b; 

int main () 

{ 

    printf ("Введите с клавиатуры 2 числа. После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой. \n"); 

    printf ("Введите 1-ое число: "); 

    scanf ("%Lf", &a); 

    printf ("\nВведите 2-ое число: "); 

    scanf ("%Lf", &b); 

    if (a+b>0) {printf ("\nРезультат: %LF", a*a);} 

    else {if (a+b

Какой язык программирования?
Если Pascal, то вот:

 program SquareAlgorithm; 

 

var 

  num1, num2, sum, result: Real; 

 

begin 

  // Ввод двух действительных чисел 

  Write('Введите первое число: '); 

  ReadLn(num1); 

  Write('Введите второе число: '); 

  ReadLn(num2); 

 

  // Вычисление суммы 

  sum := num1 + num2; 

 

  // Проверка условия и вывод квадрата числа 

  if sum > 0 then 

  begin 

    result := num1 * num1; 

    WriteLn('Квадрат первого числа: ', result); 

  end 

  else if sum < 0 then 

  begin 

    result := num2 * num2; 

    WriteLn('Квадрат второго числа: ', result); 

  end 

  else 

  begin 

    WriteLn('Сумма чисел равна нулю.'); 

  end; 

end. 

Блок-схема:

 Program P1; 

uses crt; 

var a, b: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 2 числа. После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите 1-ое число: '); 

readln (a); 

write ('Введите 1-ое число: '); 

readln (b); 

if a+b>0 then writeln ('Результат: ', sqr (a) :0:2) else 

if a+b