Практическое занятие №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

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

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

Готовые работы на продажу

Так же вы можете купить уже выполненные похожие работы. Для удобства покупки работы размещены на независимой бирже. Нажимая "Купить" вы будете перенаправлены на страницу карточки работы.

Гарантия на работу 10 дней.

Обучение персонала Отчет по практике

350₽

• Отчёт по практике
• Менеджмент организации
• Выполнил: helptostudent

Купить

Отчет по практике по получению проф. умений и навыков

70₽

• Отчёт по практике
• Государственное и муниципальное управление
• Выполнил: DubrovinaA

Купить