Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Топ:
Комплексной системы оценки состояния охраны труда на производственном объекте (КСОТ-П): Цели и задачи Комплексной системы оценки состояния охраны труда и определению факторов рисков по охране труда...
История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...
Интересное:
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...
Дисциплины:
2022-10-05 | 38 |
5.00
из
|
Заказать работу |
|
|
X: =m/n |
Начало |
Ввод m, n |
P: =3.14 |
Y: =n/m |
M: =m*2 |
N: =n*2 |
Вывод m, n |
Конец |
|x-p|<|y-p| |
Program Z5;
Var m, n, x, y, p: real;
Begin
P:=3.14;
writeLn('введитеm, n ');
readLn(m, n);
x:=m/n;
writeLn(‘m/n= ', x);
y:=n/m;
writeLn('n/m= ', y);
ifabs(x-p)<abs(y-p) then
begin
writeLn('первая дробьближе к п’);
m:=m*2;
end
else
begin
writeLn(‘вторая дробь ближе к п');
n:=n*2;
end;
writeLn('числа после изменения m=',m,’n=’,n);
end.
Сложные разветвляющиеся вычислительные процессы.
Начало |
Ввод h |
H<11000 |
T: =288.16-0.0065*h |
H<25000 |
T: =216.16 |
T: =216.16+0.00276098(h-25000) |
Вывод T |
Конец |
program ex;
varH, T:real;
Begin
writeLn ('введитевысотуот 0 до 46000 метров');
readLn(h);
ifh<11000 thenT:=288.16-0.0065*h
Else
ifh<25000 thenT:=216.16
elseT:=216.16+0.00276098*(h -25000);
writeLn ('абсолютная температура равна ', t);
End.
Циклические вычислительные процессы (математические ряды).
Используя три различных цикла определить значение.
Начало |
Ввод x |
S: =0; |
n: =1; |
Начало |
Начало |
Ввод x |
S: =0; |
N: =1, 6 |
S: = |
Вывод S |
Конец |
N<=k |
S: = |
n: =n+1; |
Вывод S |
Конец |
Ввод x |
S: =0; |
n: =1; |
n: =n+1; |
n>k |
Вывод S |
Конец |
S: = |
(в а р и а н т с ц и к л о м for)
program Z7_1_For;
var n:integer;
x,S:real;
Begin
cls;
writeLn('Введитеx');
readLn(x);
for n:=1 to 6 do
S:=S+(sqr(x*n-1))*(x*n-1);
writeLn (' полученная сумма S = ', S:8:3);
End.
(в а р и а н т с ц и к л о м repeat)
program Z7_2_Repeat;
var n:integer;
x,S:real;
Begin
cls;
writeLn('Введите x');
readLn(x);
S:=0;
n:=1;
Repeat
S:=S+(sqr(x*n-1))*(x*n-1);
n:=n+1;
until n>6;
writeLn(' полученнаясумма S= ',S:8:3);
End.
(в а р и а н т с ц и к л о м while)
program Z7_3_While;
var n:integer;
x,S:real;
Begin
cls;
writeLn('Введите x');
readLn(x);
S:=0;
n:=1;
while n <= 6 do
Begin
S:=S+(sqr(x*n-1))*(x*n-1);
n:=n+1;
end;
writeLn(' полученнаясумма S= ',S:8:3);
|
End.
Циклические вычислительные процессы (значения функции)
Используя три различных цикла, трижды протабулировать функцию.
Начало |
Ввод a |
X0: =-3 |
N:=trunc((6-x0)/1) |
N: =1, 6 |
x:=x0+1*k |
F1<>0 |
f1:=(x*x*x)-(7*x)-6 |
f1:=(x*x*x)-(7*x)-6 |
Вывод f |
Не вычисляется при данном х |
Конец |
Начало |
Ввод a |
X0: =-3 |
F1<>0 |
f1:=(x*x*x)-(7*x)-6 |
f1:=(x*x*x)-(7*x)-6 |
Вывод f |
Не вычисляется при данном х |
x:=x0+1 |
x>6 |
Конец |
Начало |
Ввод a |
X0: =-3 |
X<=6 |
F1<>0 |
f1:=(x*x*x)-(7*x)-6 |
Вывод f |
Не вычисляется при данном х |
x:=x0+1 |
Конец |
(в а р и а н т с ц и к л о м for)
programcicleForTabul;
var x0,f,f1,x,a:real;
N,k:integer;
Begin
cls;
writeln(' введитеа ');
readln(a);
x0:=-3;
N:=trunc((6-x0)/1);
for k:=0 to N do
Begin
x:=x0+1*k;
f1:=(x*x*x)-(7*x)-6;
if f1<>0 then
Begin
f:=(exp(-a*x)+exp(a*x))/f1;
writeln('f(',x:8:2,') =',f:8:2);
End
elsewriteln (не вычисляется при x =', x:8:2);
end;
End.
(в а р и а н т с ц и к л о м repeat)
program Z8_2_Repeat;
var x0,f,f1,x,a:real;
N,k:integer;
Begin
cls;
writeln(' введитеа ');
readLn(a);
x:=-3;
Repeat
f1:=(x*x*x)-(7*x)-6;
if f1<>0 then
Begin
f:=(exp(-a*x)+exp(a*x))/f1;
writeln('f(',x:8:2,') =',f:8:2);
End
elsewriteln (не вычисляется при x =', x:8:2);
x:=x+1;
untilx>6;
End.
(в а р и а н т с ц и к л о м w h i l e)
program Z8_3_While;
var x0,f,f1,x,a:real;
N,k:integer;
Begin
cls;
writeln(' введитеа ');
readLn(a);
x:=-3;
while x <= 6 do
begin
f1:=(x*x*x)-(7*x)-6;
if f1<>0 then
Begin
f:=(exp(-a*x)+exp(a*x))/f1;
writeln('f(',x:8:2,') =',f:8:2);
End
elsewriteln (не вычисляется при x =', x:8:2);
x:=x+1;
end;
End.
|
|
Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
Архитектура электронного правительства: Единая архитектура – это методологический подход при создании системы управления государства, который строится...
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!