Лабораторная работа №8
Вариант – 3
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Program TabFunc;
{**********************}
{ Имя программы в банке программ: Lab9v3p1.pas }
{ Программа: TabFunct, Лаб.раб.№9, Вар.3 }
{ Цель: Вычисление значения функции на отрезке и представление }
{ результатов в виде таблицы. }
{ Описание параметров и переменных: }
{ t,p,s - константы, необходимые для построения таблицы; }
{ a,ak,an - значения параметра А; }
{ x,b - другие переменные; }
{ ha - шаг для А; }
{ z - функция; }
{ k - число повторний цикла; }
{ n - параметр цикла. }
{ Требуемые подпрограммы: нет. }
{ Метод: использование операторов ввода и вывода и их функций. }
{ Программист: Борискин Д.В., гр. 243 }
{ Проверил: Новичков В.С., каф ВПМ }
{ Дата написания: 18 ноября 2002 года. }
{***************************}
uses crt;
const
t=' ';
p=' ';
s='_________________________________________________';
Var
k,n:integer;
a,ak,an,b,ha,x,z:real;
Begin {TabFunct}
clrscr;
write('Начальное значние А равно: ');
read(an);
write('Конечное значние А равно: ');
read(ak);
write('Шаг для А равен: ');
read(ha);
writeln(' An=',an);
writeln(' Ak=',ak);
writeln(' Ha=',ha);
writeln;
writeln(t,'ТАБЛИЦА РЕЗУЛЬТАТОВ');
Writeln(t,s);
writeln(t,'l_____A_____l_____B_____l_____X_____l_____Z_____l');
k:=trunc((ak-an)/ha);
for n:=1 to k do
begin
a:=n*ha;
x:=a+0.3;
if a>2
then b:=2*a
else b:=a/2;
z:=a*sin(x)+b*cos(x);
writeln(t,'l',p,a:5:3,p,'l',p,b:5:3,p,'l',p,x:5:3,p,'l',p,z:5:3,p,'l');
end;
writeln(t,s);
end.{TabFunct}
|
Главная
Каталог файлов
