Uses
graphABC;
const
W = 800; H = 500;
function F(x: real): real;
begin
F := x * x - x;
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real;
i: byte;
s: string;
begin
SetWindowSize(W, H);
xLeft := 50;
yLeft := 50;
xRight := W - 50;
yRight := H - 50;
a := -2; b := 5; dx := 0.5;
fmin := -2; fmax := 5; dy := 0.5;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := trunc(abs(a) * mx) + xLeft;
y0 := yRight - trunc(abs(fmin) * my);
line(xLeft, y0, xRight + 10, y0);
line(x0, yLeft - 10, x0, yRight);
SetFontSize(12);
SetFontColor(clBlue);
TextOut(xRight + 20, y0 - 15, 'X');
TextOut(x0 - 10, yLeft - 30, 'Y');
SetFontSize(7);
SetFontColor(clRed);
n := round((b - a) / dx) + 1;
for i := 1 to n do
begin
num := a + (i - 1) * dx;
x := xLeft + trunc(mx * (num - a));
Line(x, y0 - 3, x, y0 + 3);
str(Num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x - TextWidth(s) div 2, y0 + 10, s)
end;
n := round((fmax - fmin) / dy) + 1;
for i := 1 to n do
begin
num := fMin + (i - 1) * dy;
y := yRight - trunc(my * (num - fmin));
Line(x0 - 3, y, x0 + 3, y);
str(num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x0 + 7, y - TextHeight(s) div 2, s)
end;
TextOut(x0 - 10, y0 + 10, '0');
x1 := a;
while x1 <= b do
begin
y1 := F(x1);
if ((x1 >= 1) and (x1 <= 2.5)) then
begin
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue);
end;
x1 := x1 + 0.001
end
end.
Ответ:
92
Объяснение:
+1; *2; ^2; 2 --> 27
-----------------------------------------------
начало 2
3 2+1 1
4 3+1; 2^2; 2*2 3
5 4+1 3
6 5+1; 3*2 3+1=4
7 6+1 4
8 7+1; 4*2 4+3=7
9 8+1; 3^2 7+1=8
10 9+1; 5*2 8+3=11
11 10+1 11
12 11+1; 6*2 11+4=15
13 12+1 15
14 13+1; 7*2 15+4=19
15 14+1 19
16 15+1; 8*2; 4^2 19+7+3=29
17 16+1 29
18 17+1; 9*2 29+8=37
19 18+1 37
20 19+1; 10*2 37+11=48
21 20+1 48
22 21+1; 11*2 48+11=59
23 22+1 59
24 23+1; 12*2 59+15=74
25 24+1; 5^2 74+3=77
26 25+1; 13*2 77+15=92
27 26+1 92
Var
day, //номер дня
day_dist, //дистанция пройденная в этот день в метрах
sum_dist :integer;//дистанция пройденная за все дни
Begin
day_dist:=3000; //за первый день пробежал 3000 м.
sum_dist:=3000; //общая дистанция тоже 3000 м.
//Найти ответ можно тремя способами
//Вариант 1. цикл for
{
for day:=2 to 15 do begin //считаем со 2 по 15 день
day_dist:= day_dist + 200;//дневная дистанция увеличивается на 200 м.
sum_dist:= sum_dist + day_dist;//общая дистанция увеличивается на
дистанцию пройденную за день
end;
}
//Вариант 2. цикл while
{
day:=1; //первый день посчитан
while day < 15 do begin //пока не настал 15 день считаем
day := day +1; //увеличиваем номер дня
day_dist:= day_dist + 200; //увеличиваем дневную дистанцию
sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию
end;
}
//Вариант 3. цикл repeat until
{
day:=1; //первый день посчитан
repeat //начинаем считать следующие
day := day +1; //увеличиваем номер дня
day_dist:= day_dist + 200; //увеличиваем дневную дистанцию
sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию
until day = 15; //если настал 15 день перестаем считать
}
writeln('В 15 день пройдено ', day_dist,'метров.'); //вывод результатов
writeln('За 15 дней пройдено ', sum_dist,'метров.');
end.