Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«Кузбасский государственный технический университет имени Т.Ф. Горбачева»
Кафедра прикладных информационных технологий
ЛАБОРАТОРНАЯ РАБОТА
по дисциплине «Информатика и программирование»
на тему
«Табулирование функции одной переменной»
Выполнил: студент гр. ПИ-131
Д.К. Братухин
Руководитель: ст. преподаватель
И.Е. Трофимов
Вариант 8:
Код написанной программы:
program Laporatornya_rabota_2;
uses crt,graph;
var
final : integer; H,A,B,n,fx,i : real;
Const
Z = 0.0001;
begin
repeat
clrscr;
repeat
repeat
repeat
repeat
clrscr;
write (Введите начало промежутка в интервале [-100;100] A= ');
{$I-}
read(A);
{$I+}
if IOresult <> 0 then writeln ('Введите число!');
delay(1500);
until A <> 0;
if A > 100+Z then writeln (А должно находится в интервале[-100;100]!');
if A < 100+Z then break;
delay(1500);
clrscr;
until A < 100+Z;
if A < -100+Z then writeln(А должно находится в интервале[-100;100]!');
if A > -100+Z then break;
delay(1500);
clrscr;
until A > -100;
clrscr;
repeat
repeat
repeat
clrscr;
writeln (' Введите начало промежутка в интервале [-100;100] A= ',A:2:4);
write (' Введите конец промежутка в интервале [-100;100] B= ');
{$I-}
read(B);
{$I+}
if IOresult <> 0 then writeln ('Введите число!');
delay(1500);
until B <> 0;
if B > 100+Z then writeln(B должно находится в интервале[-100;100]!');
if B < 100+Z then break;
delay(1500);
clrscr;
until B < 100+Z;
if B < -100-Z then writeln (B должно находится в интервале[-100;100]!');
if B > -100-Z then break;
delay(1500);
clrscr;
until B > -100-Z;
if A > B then write(Конец промежутка, должен быть после его начала! A < B !');
until A < B;
delay(1500);
clrscr;
repeat
repeat
repeat
repeat
clrscr;
writeln(' Введите начало промежутка в интервале [-100;100] А= ',A:2:4);
writeln(' Введите конец промежутка в интервале [-100;100] B= ',B:2:4);
write('Введите количество шагов n= ');
{$I-}
read(n);
{$I+}
if IOresult <> 0 then writeln ('Введите число!');
delay(1500);
until n > 0;
if n < 0-Z then break;
if n < 50+Z then break;
if n > 50+Z then writeln(n должно быть <=50!');
delay(1500);
until n < 50+Z;
if frac(n) <> 0 then writeln ('Введите целое число!');
delay(1500);
clrscr;
until frac(n) = 0;
if n = 0 then write(Количество шагов должно быть >0');
delay(500);
clrscr;
until n > 0;
H:=(B-A)/n;
writeln(' Введите начало промежутка в интервале [-100;100] А= ',A:2:2);
writeln(' Введите начало промежутка в интервале [-100;100] А= ',B:2:2);
writeln(' Введите количество шагов n= ',n:1:0);
writeln( Расстояние между шагами H= ',H:2:4);
{-------Псевдографика-------}
writeln ('ЪДДДДДДДДВДДДДДДДДї');
writeln ('і x і f(x) і');
writeln ('ГДДДДДДДДЕДДДДДДДДґ');
{-------Псевдографика-------}
while A <= B+Z do
begin
if A < 1 then
fx:=exp(ln(abs(1-A))*5)*exp(A*sin(A))
else
if abs(A-1) < Z then fx:=0
else
fx:=-exp(5*ln(abs(1-A)))*exp(A*sin(A));
if fx > 0 then writeln ('і ',A:2:4,' і ',fx:2:3,' і');
if fx = 0 then writeln ('і ',A:2:4,' і ',fx:2:3,' і');
if fx < 0 then writeln ('і ',A:2:4,' і ',fx:2:3,' і');
{-------Псевдографика-------}
writeln ('ГДДДДДДДДЕДДДДДДДДґ');
{-------Псевдографика-------}
A:=A+H;
end;
{-------Псевдографика-------}
writeln('і Спасибо! і');
writeln('АДДДДДДДДДДДДДДДДДЩ');
{-------Псевдографика-------}
repeat
repeat
writeln('Введите 1 для завершения программы, или 2 для перезапуска :');
{$I-}
read(final);
{$I+}
if IOresult <> 0 then writeln('Введите 1 или 2!');
delay(1500);
clrscr;
until final <> 0;
if final = 1 then exit;
if final <> 1 then write('Введите 1 или 2!');
until final = 2;
until final = 1;
end.
Блок схема: