Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Топ:
Определение места расположения распределительного центра: Фирма реализует продукцию на рынках сбыта и имеет постоянных поставщиков в разных регионах. Увеличение объема продаж...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...
Интересное:
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Дисциплины:
2017-09-10 | 577 |
5.00
из
|
Заказать работу |
|
|
Операторы передачи управления
Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент:
1. Для t [0,3], at2lnt при 1 ,
где a=-0.5,b=2 z= 1 при t<1,
eatcosbt при t>2,
Текст программы
program Lab2;
const a=-0.5; b=2; { Описание констант }
var t,z:real; { Описание переменных }
begin
write('Ввести t ');{ Ввод данных }
readln(t);
if (t>=0) and (t<=3) then begin
if t>2 then z:=exp(a*t)*cos(b*t){ вычисление z }
else if (t<1) and (t<=3) then z:=1
else z:=a*t*t*ln(t);
writeln('z = ',z:10:2); { вывод результатов}
end
else Writeln('При данном t функция не определена');
end.
Результат выполнения программы
Рис. 3. Результат выполнения лабораторной работы №2
Лабораторная работа №3
Программирование циклических алгоритмов
С заданным числом повторений
Вычислить значения двух функций в n равномерно расположенных в диапазоне a<x<b точках. Результаты оформит в виде таблицы.
№ п/п | a | b | n | F1(х) | F2(х) |
2 | sin x cos x | sin x + cos x -1 |
Текст программы
Program Lab3;
Uses CRT;
const a=0; b=2*pi; { Описание констант}
n=10;
var f1, f2: real; { Описание переменных }
x, dx:real;
i:integer;
Begin
clrscr;
dx:=abs((b-a)/(n-1)); {шаг по х
x:=a;
writeln('-----------------------------------');
writeln('| I | X | F1 | F2 |');
writeln('|-------|-------|--------|--------|');
for i:=1 to n do begin
f1:=sin(x)*cos(x);
f2:=sin(x)+cos(x)-1;
writeln('| ',I:3,' |',x:7:3,'|',f1:8:4,'|',f2:8:4,'|');
x:=x+dx;
end;
writeln('-----------------------------------');
readkey;
End.
Результат выполнения программы
Рис. 4. Результат выполнения лабораторной работы №3
Лабораторная работа №4
Программирование циклических алгоритмов с предусловием
Модифицировать (изменить) программу лабораторной работы №3 для вычисления функций F1(x) и F2(x) с применением вместо счетного цикла оператора цикла с предусловием. Выполнить ее и сравнить результаты с полученными в предыдущей работе.
|
Текст программы
program Lab4;
const a=0; b=2*pi;
n=10;
var f1, f2: real;
x, dx:real;
i:integer;
begin
dx:= abs(b-a)/(n-1);
writeln ('_______________________________________');
writeln ('| I | X | F1 | F2 |');
writeln ('|----|---------|-----------|----------|');
x:=a; i:=0;
while x <=b do { цикл с предусловием}
begin
i:=i+1;
f1:=sin(x)*cos(x);
f2:=sin(x)+cos(x)-1;
writeln('|', i:3,' |', x:8:3,' | ', f1:9:4,' | ', f2:9:4,' |');
x:=x+dx;
end;
writeln('|______________________________________|');
end.
Рис. 5. Результат выполнения лабораторной работы №4
Лабораторная работа №5
Программирование циклических алгоритмов с постусловием
Модифицировать программу лабораторной работы №3 для вычисления функций F1(x) и F2 (x) с применением оператора цикла с постусловием. Выполнить ее и сравнить результаты с полученными ранее.
Текст программы
Program Lab5;
uses CRT;
const a=0; b=2*pi;
n=10;
var f1, f2: real;
x, dx:real;
i:integer;
Begin
dx:=abs((b-a)/(n-1));
x:=a;i:=0;
writeln('-----------------------------------');
writeln('| I | X | F1 | F2 |');
writeln('|-------|-------|--------|--------|');
repeat { цикл с постусловием }
i:=i+1;
f1:=sin(x)*cos(x);
f2:=sin(x)+cos(x)-1;
writeln('| ',I:3,' |',x:7:3,'|',f1:8:4,'|',f2:8:4,'|');
x:=x+dx;
until x>b;
writeln('-----------------------------------');
readkey;
end.
Рис. 6. Результат выполнения лабораторной работы №5
Лабораторная работа №6
|
|
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Типы сооружений для обработки осадков: Септиками называются сооружения, в которых одновременно происходят осветление сточной жидкости...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!