Практическое занятие №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]
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 дней.
Обучение персонала Отчет по практике
- Отчёт по практике
- Менеджмент организации
- Выполнил: helptostudent
Отчет по практике по получению проф. умений и навыков
- Отчёт по практике
- Государственное и муниципальное управление
- Выполнил: DubrovinaA
На странице представлен фрагмент
Уникализируй или напиши новое задание с помощью нейросети
Похожие работы
Оценка эффективности промышленных инвестиций
Тема 7. Оценка эффективности промышленных инвестиций 7.1 Значение чистого дисконтированного дохода • Если показатель ЧДД: • отрицательный, то есть ˂0, то данная инвестиция является убыточной. С...
Управляя случайностью. Между беспомощностью и всемогуществом.
Управляя случайностью. Между беспомощностью и всемогуществом. гештальт-терапевт, профессор БФУ им .И Канта «Текучая современность(модерность)». Зигмунт Бауман. n Это метафора. Жидкость не способна...