var a,b,k:integer;
begin
b:=random(10)+1;
WriteLn('Какое число я загадал?');
k:=3;
repeat
Write('У тебя ',k,' попытки(-а). Введи число: ');
ReadLn(a);
if a>b then WriteLn('Мое число меньше!')else
if a<b then WriteLn('Мое число больше!')else
if a=b then
begin
WriteLn('Молодец! Угадал!');
k:=0;
end;
k:=k-1
until k<=0;
if k=0 then WriteLn('Проиграл!');
end.
<span>a:=1; b:=1;
1+1<8
Первая итерация цикла:
Начало
a:=a+1=1+1=2;
b:=b+2=1+2=3;
Конец
2+3<8
</span>Первая итерация цикла:
Начало
a:=a+1=2+1=3;
b:=b+2=3+2=5;
Конец
3+5=8
Цикл завершился. Он был повторен 2 раза.
a=3;
b=5;
S:=a+b=3+5=8;
Вот, сделал пример построения графика по шестьдесят одной точке.
Задаётся два значения- края отрезка, на котором нужно построить функцию.
Затем, считаем диапазон значений икс, так чтобы крайние значения равнялись заданным краям отрезка, а средние шли через равные промежутки.
После, по этим значениям икс вычисляем значения игрек (то есть, значение функции в каждой точке).
А в конце добавляем точечную диаграмму (со сглаживанием и маркерами точек), указывая в качестве исходных данных для неё наши значения икс и игрек.
Всё, график на этой диаграмме будет автоматически перестраиваться при изменении границ отрезка.
Также, можно менять число точек (просто копируя или удаляя формулы расчёта значений в трёх столбцах), и после этого меняя диапазон входных данных для диаграммы.
Program katyadamn;
var a:array[1..10] of integer;
i,j:integer;
begin
writeln('Исходный массив:'); writeln;
for i:=1 to 10 do
begin
a[i]:=random(9)+1;
write(a[i],' ');
end;
j:=a[10];
a[10]:=a[1];
a[1]:=j;
writeln('Полученный массив:');
writeln;
for i:=1 to 10 do
write(a[i],' ');
<span>end.</span>