Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / DIMA / AN5
.PAS PROGRAM treug;
const
a4=4.07; a3=12.7; a2=8.7; a1=10.8; a0=18.8;
var
b1,b2,t,h,tn,tk: real;
n:integer;
BEGIN
{ ‚ў®¤ Ёб室ле ¤ ле }
write('ўўҐ¤ЁвҐ tn,tk,h');
readln(tn,tk,h);
t:=tn;
n:=0;
WRITELN('ЪДДДДДДДДДДДВДДДДДДДДДДДДВДДДДДДДДДДДДДї');
WRITELN('і T і B1 і B2 і');
WRITELN('ГДДДДДДДДДДДЕДДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
while t<=tk do
begin
b1:=exp(-t)-sqr(t-1);
b2:=a4*sqr(t*t)+a3*sqr(t)*t+a2*sqr(t)+a1*t+a0;
writeln('і',t:11:3,'і ',b1:11:3,'і ',b2:11:3,'і');
t:=t+h;
n:=n+1;
if n mod 19=0 then begin
WRITELN('АДДДДДДДДДДДБДДДДДДДДДДДДБДДДДДДДДДДДДДЩ');
readln;writeln;
WRITELN('ЪДДДДДДДДДДДВДДДДДДДДДДДДВДДДДДДДДДДДДДї');
WRITELN('і T і B1 і B2 і');
WRITELN('ГДДДДДДДДДДДЕДДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
end
end;
WRITELN('АДДДДДДДДДДДБДДДДДДДДДДДДБДДДДДДДДДДДДДЩ');
readln;
END.
const
a4=4.07; a3=12.7; a2=8.7; a1=10.8; a0=18.8;
var
b1,b2,t,h,tn,tk: real;
n:integer;
BEGIN
{ ‚ў®¤ Ёб室ле ¤ ле }
write('ўўҐ¤ЁвҐ tn,tk,h');
readln(tn,tk,h);
t:=tn;
n:=0;
WRITELN('ЪДДДДДДДДДДДВДДДДДДДДДДДДВДДДДДДДДДДДДДї');
WRITELN('і T і B1 і B2 і');
WRITELN('ГДДДДДДДДДДДЕДДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
while t<=tk do
begin
b1:=exp(-t)-sqr(t-1);
b2:=a4*sqr(t*t)+a3*sqr(t)*t+a2*sqr(t)+a1*t+a0;
writeln('і',t:11:3,'і ',b1:11:3,'і ',b2:11:3,'і');
t:=t+h;
n:=n+1;
if n mod 19=0 then begin
WRITELN('АДДДДДДДДДДДБДДДДДДДДДДДДБДДДДДДДДДДДДДЩ');
readln;writeln;
WRITELN('ЪДДДДДДДДДДДВДДДДДДДДДДДДВДДДДДДДДДДДДДї');
WRITELN('і T і B1 і B2 і');
WRITELN('ГДДДДДДДДДДДЕДДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
end
end;
WRITELN('АДДДДДДДДДДДБДДДДДДДДДДДДБДДДДДДДДДДДДДЩ');
readln;
END.