Написать процедуру и функцию, находящие среднее арифметическое двух чисел.

265

391

Посмотреть ответы 3

Ответы на вопрос:

M0N1C4

Информатика

4,7(75 оценок)

Function avg(a,b: real): real; begin avg: =(a+b)/2 end; procedure avg2(a,b: real; var c: real); begin c: =(a+b)/2 end; var a,b,c: real; begin write('введите два произвольных числа: '); readln(a,b); writeln('среднее значение, найденное функцией: ',avg(a,b)); avg2(a,b,c); writeln('среднее значение, найденное процедурой: ',c) end. тестовое решение: введите два произвольных числа: 11.7 14.519 среднее значение, найденное функцией: 13.1095 среднее значение, найденное процедурой: 13.1095

Niks666

Информатика

4,4(62 оценок)

Function average( x, y: real ); var c: real; begin c : = ( x + y ) / 2; writeln('среднее арифметическое двух чисел с функции: ', c); end; procedure average_p( x, y: real ); var c: real; begin c : = ( x + y ) / 2; writeln('среднее арифметическое двух чисел с процедуры: ', c); end; var a, b: real; begin write('введите число a: '); readln(a); write('введите число b: '); readln(b); average(a,b); average_p(a,b); end.

Tyshkanchik228

Информатика

4,7(91 оценок)

Uses crt; var x,y: real; begin clrscr; write ('x='); readln (x); write ('y='); readln (y); if (x> 0) then begin if (y> =0) then writeln ('1 quater') else writeln ('4 quater'); end else begin if (y> 0) then writeln ('2 quater') else writeln ('3 quater'); end; readln (); end.