Наброски и зарисовки растений, плодов, цветов: Освоить конструктивное построение структуры дерева через зарисовки отдельных деревьев, группы деревьев...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
Топ:
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Оснащения врачебно-сестринской бригады.
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Интересное:
Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Распространение рака на другие отдаленные от желудка органы: Характерных симптомов рака желудка не существует. Выраженные симптомы появляются, когда опухоль...
Дисциплины:
2022-10-05 | 29 |
5.00
из
|
Заказать работу |
Определить n первых членов рекуррентной последовательности.
Начало |
Ввод n |
Ak-1:=1; ak-2:=0; ak-3:=1; |
N>3 |
Вывод ak-1; ak-2; ak-3; |
S:=0; i:=1; |
K:=4, n |
a:=(a1*sqrt(abs(a3)))+(k*Sin(a2)) |
Вывод Ak |
trunc(a) mod 2=0 |
S:=s+a; i:=i+1; |
Ak-1:=ak; ak-2:=ak-1; ak-3:=ak-2; |
Вывод S |
S:=s+a; i:=i+1; |
Конец |
program Z9;
vark,n,i:integer;
a1,a2,a3,a,s:real;
begin
repeat
write('Введите число членов последовательности >3 n=');
read(n);
until n>3;
a1:=1;
a2:=0;
a3:=1;
write(a1:0:2,' ',a2:0:2,' ',a3:0:2,' ');
s:=0; //сумма четных
i:=1; //количество четных
for k:=4 to n do
begin
a:=(a1*sqrt(abs(a3)))+(k*Sin(a2));
write(a:0:2,' ');
if trunc(a) mod 2=0 then
begin
s:=s+a;
i:=i+1;
end;
a3:=a2;
a2:=a1;
a1:=a;
end;
writeln;
s:=s/i;
writeln('Ср.ариф. членов с четной целой частью=',s:0:2);
end.
Расчеты в одномерных массивах
Начало |
Ввод A[i] |
S:=0; |
I > A[i] |
i:=1, 11 |
i:=1, 11 |
S:=S+A[i]; |
Вывод S |
Конец |
program Z10;
var A:array[1..11] of integer;
i,k, S:integer;
begin
writeLn('ВводимэлементымассиваA:');
for i:=1 to 11 do
begin
write('A[',i,']=');
readLn(A[i]);
end;
S:=0;
for i:=1 to 11 do if i> A[i] then S:=S+A[i];
writeLn('сумма = ',S);
end.
Модификация одномерных массивов
Начало |
Ввод A[i] |
i:=1, N |
Ввод N |
Вывод A[i] |
i:=1, N |
I mod 2 =0 |
i:=1, 11 |
A[i]:=A[i] div 5 |
Вывод A[i] |
i:=1, N |
Конец |
program Z11;
constNmass=100;
var A:array[1..Nmass] of integer;
i,N: byte;
begin
writeLn('Введите число элементов в массиве A');
readLn(N);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
writeLn('Исходныймассив A:');
for i:=1 to N do
write(A[i]:5);
writeLn;
// модификациямассива
for i:=1 to N do
ifi mod 2 = 0 then
A[i]:=A[i] div 5;
writeLn;
writeLn('массив A после изменения:');
for i:=1 to N do
write(A[i]:5);
end.
Расчеты в двумерных массивах
Начало |
i:=1, 4 |
Вывод P |
sqr(A[i,j])<16 and A[i,j]>0 |
P:=1 |
Конец |
j:=1, 3 |
Ввод A[I,j] |
i:=1, 4 |
j:=1, 3 |
P:=p*A[I,j] |
program Z12;
var A:array[1..4,1..3] of integer;
i,j: byte;
P:real;
begin
cls;
writeLn(‘вводимэлементымассиваA:');
for i:=1 to 4 do
for j:=1 to 3 do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
P:=1;
for i:=1 to 4 do
for j:=1 to 3 do
if (sqr(A[i,j])<16) and (A[i,j]>0) then
begin
p:=p*A[i,j];
end;
writeLn('произведение элементов квадрат которых < 16 ', p);
end.
Модификация двумерных массивов
Начало |
i:=1, N |
j:=1, M |
Ввод A[I,j] |
i:=1, N |
i:=1, M |
Вывод A[I,j] |
Перевод строки |
j mod 2 = 0 |
A[i,j]:=A[i,j] mod 10 |
i:=1, N |
j:=1, M |
i:=1, N |
i:=1, M |
Вывод A[I,j] |
Перевод строки |
Конец |
program Z13;
constNmass=10;
var A:array[1..Nmass,1..Nmass] of integer;
N,M,i,j: byte;
begin
cls;
writeLn('Введите число элементов в массиве A');
readLn(N,M);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
writeLn('Исходный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to N do
for j:=1 to M do
if j mod 2 = 0 then A[i,j]:=A[i,j] mod 10;
writeLn;
writeLn('массив A после изменения:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
end.
Расчетывфайлах
Начало |
i:=1, 15 |
Not EOF(F) |
assign(f,'f.dat') |
rewrite(f) |
F←b |
Ввод b |
reset(f) |
P:=1 |
b←F |
abs(b) > 7 or abs(b) < 2 |
p:=p*b |
K > 0 |
Вывод P |
В файле нет подходящих элементов |
K:=k+1 |
K:=0 |
close(f) |
Конец |
program Z14;
varb,p,k,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 9 компонентфайлаf:');
for i:=1 to 15 do
begin
writeLn('введите ',i,'-уюкомпонентуфайлаf');
readLn(b);
write(f,b);
end;
reset(f);
p:=1;
k:=0;
while not EOF(f) do
begin
read(f,b);
if (abs(b) > 7) or (abs(b) < 2) then
begin
p:=p*b;
K:=k+1;
end;
end;
if k>0 then writeLn('произведение =',p) else
writeLn('в файле нет подходящих элементов');
close(f);
end.
Модификация файлов
Начало |
assign(f,'f.dat') |
rewrite(f) |
b←F |
reset(f) |
i:=1 |
K:=0 |
Ввод b |
b≠777 |
F←b |
i:=i+1 |
Ввод b |
Not EOF(F) |
Вывод b |
Not EOF(F) |
b←F |
(b<5) and (b>-3) |
k:=k+1 |
K mod 2 = 0 |
1 |
2 |
3 |
4 |
5 |
1 |
2 |
3 |
4 |
5 |
seek(f,filepos(f)-1) |
b:=1 |
F←b |
Конец |
b←F |
reset(f) |
Not EOF(F) |
Вывод b |
program Z15;
varb,i,k:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f или признак конца ввода:"777")');
rewrite(f);
readLn(b);
i:=1;
k:=0;
while b<>777 do
begin
write(f,b);
i:=i+1;
writeLn('введите ',i,'-юкомпонентуфайлаf');
readLn(b);
end;
reset(f);
writeLn('файлfдоизменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
reset(f);
while not EOF(f) do
begin
read(f,b);
if (b<5) and (b>-3) then
begin k:=k+1;
if k mod 2 = 0 then
begin
seek(f,filepos(f)-1);
b:=1;
write(f,b);
end;
end;
end;
reset(f);
writeLn('файлfпослеизменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
close(f);
end.
Своеобразие русской архитектуры: Основной материал – дерево – быстрота постройки, но недолговечность и необходимость деления...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!