Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...
Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...
Топ:
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного...
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Интересное:
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Дисциплины:
2022-10-05 | 39 |
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.
|
|
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!