Пример выполнения работы Задание 1
Условие:
Вычислить значение функции
Программа:
{Лабораторная работа №2. Задание №1}
{Программирование алгоритмов разветвляющейся и} {циклической структуры}
{Выполнена Ф.И.О.}
{Группа }
program lab2_1;
uses crt;
var a,b,t,l,s:real;
begin
clrscr;
write('Введите значение переменной a =');
readln(a);
write('Введите значение переменной b =');
readln(b);
write('Введите значение переменной t =');
readln(t);
l:=a*t;
if a*t<1 then s:=a*t+b;
if a*t=1 then s:=cos(a*t);
if a*t>1 then s:=exp(-a*t)*cos(a*t);
writeln;
writeln('a =',a:8:3,'':2,'b= ',b:8:3);
writeln('t =',t:8:3,'':2,'l =',l:8:3);
writeln('s =',s:8:3);
end.
Результат выполнения программы:
Введите значение переменой a = 1
Введите значение переменной b = 1
Введите значение переменной t = 0.5
a = 1.000 b= 1.000
t = 0.500 l = 0.500
s = 1.500
Задание 2
Программа:
{Лабораторная работа №2. Задание №2}
{Программирование алгоритмов разветвляющейся и} {циклической структуры}
{Выполнена Ф.И.О.}
{Группа }
program lab2_2;
uses crt;
var a,b,t,s,t0,tk,dt,l:real;
begin
clrscr;
write('Введите значение переменной a =');
readln(a);
write('Введите значение переменной b =');
readln(b);
write('Введите начальное значение диапазона t0 =');
readln(t0);
write('Введите конечное значение диапазона tk =');
readln(tk);
write('Введите величину шага dt =');
readln(dt);
writeln;
writeln('ТАБЛИЦА ФУНКЦИИ S(T)');
writeln;
writeln(' T S(T) ');
t:=t0;
repeat
l:=a*t;
if a*t<1 then s:=a*t+b;
if a*t=1 then s:=cos(a*t);
if a*t>1 then s:=exp(-a*t)*cos(a*t);
writeln(t:10:3,'':3,s:10:3);
t:=t+dt;
until t>tk;
end.
Результат выполнения программы:
Введите значение переменой a = 1
Введите значение переменной b = 1
Введите начальное значение диапазона t0 = 0.1
Введите конечное значение диапазона tk = 2.1
Введите величину шага dt = 0.1
ТАБЛИЦА ФУНКЦИИ S(T)
T S(T)
0.100 1.100
0.200 1.200
0.300 1.300
0.400 1.400
0.500 1.500
0.600 1.600
0.700 1.700
0.800 1.800
0.900 1.900
1.000 0.199
1.100 0.151
1.200 0.109
1.300 0.073
1.400 0.042
1.500 0.016
1.600 -0.006
1.700 -0.024
1.800 -0.038
1.900 -0.048
2.000 -0.056
Контрольные вопросы
Перечислить действия, реализуемые при выполнении условного оператора.
Какие действия выполняются оператором перехода?
Что такое вычислительный процесс разветвляющейся структуры? Как организовать разветвление вычислений: а) на две ветви; б) на три ветви?
Составить последовательность операторов для вычисления величины z=0, если x<-2; z=1; если -2≤x≤2; z=-1, если x>2.
Зачем необходимо при отладке программы тестировать все ветви алгоритма?
Указать последовательность действий, выполняемых при организации циклических участков программы с заданных числом повторений.
Указать назначение и правила организации цикла.
Перечислить возможные способы организации цикла с заданным числом повторений в изучаемом языке программирования.
Лабораторная работа №3 «Программирование алгоритмов итерационной циклической структуры»
Цель работы – овладение практическими навыками разработки и программирования алгоритмов итерационной циклической структуры; приобретение дальнейших навыков по отладке и тестированию программ.