Программирование на Pascal / Delphi / Лабораторная работа №3. Вариант 13

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФИЛЬНОГО ОБРАЗОВАНИЯ

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ АВИАЦИОННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра экономической информатики

Отчет по лабораторной работе №3

Циклы

Вариант№13

Выполнила:

Проверила:

Уфа 2007

Цель работы:

Целью данной работы является изучение циклических алгоритмов, обучение использованию различных видов циклов, существующих в Паскале, получение навыков программирования алгоритмов, содержащих операторы циклов.

Задание:

Разработать программу табулирования (вычисления таблицы значений) функции для произвольного диапазона изменения независимого параметра или аргумента. Выполнить расчет для заданных значений исходных данных, используя циклы For и While. Результаты расчетов вывести в табличной форме, включая значения аргумента, вспомогательной функции и результата.

z= x+cos(πa), x=sin²(π·t), a [-1.2..1.2], ∆a=0.6, t=0.21

Программы:

Program Lab3_13;

Uses crt:

Var

z, amin,amax,da,t,x,a: real;

i,n:integer;

label 1;

begin

clrscr;

1:writeln(‘Введите amin,amax’);

Readln(amin,amax);

If amin<=amax then begin writeln(‘Не верно amin<amax’); goto 1;

End;

Writeln(‘Введите da’);

Readln(da);

Writeln(‘Введите t’);

Readln(t);

n:=trunk((amax-amin)/da)+1

writeln(‘______________’,’______________’,’______________’);

writeln(‘|Функция X ‘,’Аргумент a ‘,’Функция z |‘);

writeln(‘|_____________’,’______________’,_______________|’);

a:=amin;

for i:=1 to n do begin

x:=sqr(sin(pi-t));

z:=x+cos(pi*a);

writeln(‘ ‘, x:5:4’, ‘,a:2:1,’ ‘,z:8:6);

a:=a+da;

end;

end.

Program Lab3_131;

Uses crt:

Var

z, amin,amax,da,t,x,a: real;

i,n:integer;

label 1;

begin

clrscr;

1:writeln(‘Введите amin,amax’);

Readln(amin,amax);

If amin<=amax then begin writeln(‘Не верно amin<amax’); goto 1;

End;

Writeln(‘Введите da’);

Readln(da);

Writeln(‘Введите t’);

Readln(t);

n:=trunk((amax-amin)/da)+1

writeln(‘______________’,’______________’,’______________’);

writeln(‘|Функция X ‘,’Аргумент a ‘,’Функция z |‘);

writeln(‘|_____________’,’______________’,_______________|’);

a:=amin;

while a<amax+0.1 do begin

x:=sqr(sin(pi-t));

z:=x+cos(pi*a);

writeln(‘ ‘, x:5:4’, ‘,a:2:1,’ ‘,z:8:6);

a:=a+da;

end;

end.

Вывод:

Я изучила циклические алгоритмы, обучилась использованию различных видов циклов, существующих в Паскале, получила навыки программирования алгоритмов, содержащих операторы циклов.