Вывести значение функции на промежутке [a..b] c шагом 0.5, вывод результата оформить в виде таблицы, организовать повтор программы, используя цикл с постусловием. функция power((exp(x+1)-sin(/3)
Var a, b, f, x: real; begin read(a, b); x := a; writeln('x:', '':6, 'f(x):'); repeat f := power((exp(x + 1) - sin(x)), 1 / 3); writeln(x:0:1, '':5, f:0:8); x := x + 0.5; until (x > b) end.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
procedure Input(var a:array of integer); begin a:=ReadArrInteger('Вводите через пробел рост в см:',a.Length) end;
procedure MyMax(a:array of integer; var mr:integer); begin mr:=a.Max end;
procedure KMax(a:array of integer; mx:integer; var km:integer); begin km:=a.Where(t->t=mx).Count end;
begin var n:=ReadInteger('Количество учеников:'); var r:=new integer[n]; Input(r); var maxR,kol:integer; MyMax(r,maxR); KMax(r,maxR,kol); Writeln('Максимальный рост ',maxR,' имеют ',kol,' чел.') end.
Пример Количество учеников: 5 Вводите через пробел рост в см: 170 168 171 159 171 Максимальный рост 171 имеют 2 чел.
На самом деле, это задание - прекрасный пример того, как НЕ НУЖНО использовать процедуры. Потому что без процедур эта же задача решается гораздо короче, занимает меньше памяти и быстрее работает. Ниже - текст такой программы в качестве иллюстрации написанного.
begin var a:=ReadArrInteger('Вводите через пробел рост в см:', ReadInteger('Количество учеников:')); var maxR:=a.Max; var kol:=a.Where(t->t=maxR).Count; Writeln('Максимальный рост ',maxR,' имеют ',kol,' чел.') end.
a, b, f, x: real;
begin
read(a, b);
x := a; writeln('x:', '':6, 'f(x):');
repeat
f := power((exp(x + 1) - sin(x)), 1 / 3);
writeln(x:0:1, '':5, f:0:8);
x := x + 0.5;
until (x > b)
end.