Практическое занятие №5 методические рекомендации

Практическое занятие №5
методические
рекомендации
Пример: максимальное значение и его номер (индекс)
{Так выглядит вычислительная часть}
{Так выглядит раздел VAR} r:=X[1]; k:=1;
for i:=2 to m do
var i,m,k:Integer; if X[i]>r then
X:Mas; begin
r:Real; r:=X[i];
fin,fout:Text; k:=i
end;
WriteLn; WriteLn(fout);
WriteLn(‘R=’,r:7:2,’ K=’,k);
WriteLn(fout,’R=’,r:7:2,’ K=’,k);
Readkey; close(fin); close(fout)
Пример: минимальное значение среди положительных
{Так выглядит вычислительная часть}
k:=0;
r:=1e25; {1025 – очень большое число }
{Так выглядит раздел VAR} for i:=1 to m do
begin
var i,m,k:Integer; if X[i]<=0 then continue;
X:Mas; if X[i]0 then
WriteLn(‘R=’,r:7:2,’ K=’,k)
Else
WriteLn(‘Нет положительных!’);
Пример: произведение до первого 0 и сумма остальных

{Так выглядит вычислительная часть}
{Так выглядит раздел VAR} p:=1; s:=0;
for i:=1 to m do
var i,j,m:Integer; if X[i]=0 then break
X:Mas; else p:=p*X[i];
s,p:Real; {Break – немедленный выход из цикла}
fin,fout:Text; for j:=i+1 to m do
s:=s+X[j];

WriteLn; WriteLn(fout);
WriteLn(‘P=’,p:7:2,’ S=’,s:7:2);
WriteLn(fout,’P=’,p:7:2,’ S=’,s:7:2);
Readkey; close(fin); close(fout)
Пример: элементы с нечетными индексами удвоить,
с четными заменить нулем

{Так выглядит раздел VAR} {Так выглядит вывод
нового массива}
var i,m:Integer;
X:Mas; writeln; writeln(fout);
fin,fout:Text; writeln(‘Новый массив’);
writeln(‘—————‘);
{Так выглядит
writeln(fout,’Новый массив’);
вычислительная часть}
for i:=1 to m do writeln(fout,’—————‘);
if odd(i) then for i:=1 to m do
X[i]:=2*X[i] begin
else X[i]:=0; write(X[i]:7:2);
write(fout,X[i]:7:2);
end;
Readkey; close(fin); close(fout)
Пример: переписать в массив Y сначала положительные,
а затем отрицательные элементы X
{Так выглядит раздел VAR} {Так выглядит вывод
нового массива}
var i,m,k:Integer;
X,Y:Mas; writeln; writeln(fout);
fin,fout:Text; writeln(‘Новый массив’);
{Так выглядит writeln(‘—————‘);
вычислительная часть} writeln(fout,’Новый массив’);
k:=0; writeln(fout,’—————‘);
for i:=1 to m do for i:=1 to k do
if X[i]>0 then begin
begin write(Y[i]:7:2);
k:=k+1; write(fout,Y[i]:7:2);
Y[k]:=X[i] end;
end; Readkey; close(fin); close(fout)
for i:=1 to m do
if X[i]<0 then
begin
k:=k+1;
Y[k]:=X[i] end;

AriL 4.9

Являюсь аспирантом Высшей школы экономики. Специализируюсь на экономических дисциплинах, в особенности государственное управление, менеджмент,экономика. Большой опыт в экономике здравоохранения.

Нанять автора