Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Топ:
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Устройство и оснащение процедурного кабинета: Решающая роль в обеспечении правильного лечения пациентов отводится процедурной медсестре...
Особенности труда и отдыха в условиях низких температур: К работам при низких температурах на открытом воздухе и в не отапливаемых помещениях допускаются лица не моложе 18 лет, прошедшие...
Интересное:
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...
Дисциплины:
2017-09-10 | 574 |
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 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!