Имеются две кучки фишек. За один шаг исполнитель НОД из кучки, содержащей больше фишек, убирает столько фишек, сколько одержится в меньшей кучке. Определите число шагов, которое потребуется сделать исполнителю, чтобы уравнять количество фишек в кучках при следующих исходных данных: 1-я кучка = 66
2-я кучка = 24
1) В котором действия выполняются последовательно одна за одной
2) Цикл может выполнятся несколько раз
3) Розгалудження - условия при которых выполняется определенный фрагмент кола. То есть if else
4) 1. if(если). if(a==10) writeLine (a) если условие верно - действие выполняется иначе данный код игнорируется. такое называется "Неповне розгалудження"
2. if(если) else(иначе). if(a==10) writeLine (a) else writeLine (b) - если условие верно код выполняется иначе выполняется другой код.
Такое называется "Повнеповне розгалудження"
5) Характерне наявнистю умовы та послидовнистю команд в залежности вид умовы.
6) Линейный выполняется последовательно, а розгалудження дает возможность выбрать какой код будет выполнятся, а какой нет.
7) Розгалудження дает возможность выбрать какой код будет выполнятся, а какой нет. А цикл выполняет код определенное количество раз
Объяснение:
1-е Задание:
Program PRG;
var
a, b, c, e, x, y, num, den: real;
function calc( a, b, c, e, x: real ): real;
begin
num := ((( abs(sin(x ** 3))) + a) * (e ** a));
den := (exp(ln((b ** 2) + (c ** 2)) / 3));
y := num / den;
Result := y;
write('Answer is: ', y);
writeln();
end;
function entNums (): real;
begin
write ('Enter a: '); readln (a);
write ('Enter b: '); readln (b);
write ('Enter c: '); readln (c);
write ('Enter e: '); readln (e);
write ('Enter x: '); readln (x);
writeln();
end;
begin
entNums();
calc( a, b, c, e, x );
end.
2-е Задание:
Program
var wallWid, wallHeight, winHeight, winWid, doorWid, doorHeight, fourWalls, door, win, total: real;
function getFourWalls( wallWid, wallHeight: real ): real;
begin
fourWalls := (wallHeight * wallWid) * 4;
Result := fourWalls;
end;
function getDoorSize( doorHeight, doorWid: real ): real;
begin
door := doorHeight * doorWid;
Result := door;
end;
function getWinSize( winHeight, winWid: real ): real;
begin
win := winHeight * winWid;
Result := win;
end;
function getWalls(): real;
begin
total := (fourWalls - ( door + win )) / 10000;
Result := total;
write(' You need ', total, ' m² of wallpaper!');
writeln();
end;
function enterSizes(): real;
begin
writeln();
write (' Enter width of the wall (in cm): '); readln (wallWid);
write (' Enter height of the wall (in cm): '); readln (wallHeight);
write (' Enter width of the window (in cm): '); readln (winWid);
write (' Enter hight of the window (in cm): '); readln (winHeight);
write (' Enter width of the door (in cm): '); readln (doorWid);
write (' Enter height of the doot (in cm): '); readln (doorHeight);
writeln();
end;
begin
enterSizes();
getFourWalls( wallWid, wallHeight );
getDoorSize( doorHeight, doorWid );
getWinSize( winHeight, winWid );
getWalls();
end.
Блок-схемы легко можешь составить глядя на коды программ)
Удачи)