1. Какие виды алгоритмов вы знаете? 2. Какие блоки используются в линейном, разветвляю- щемся и циклическом алгоритмах? 3. Как используются команды цикла в Scratсh? 4. Как используются команды разветвляющегося алго- ритма? 5. Какие блоки используются для применения команды? 6. Какие блок-схемы используются в циклическом алго- ритме? 7. Из каких блоков состоят разветвляющиеся алгоритмы в Scratсh?

const  A = 1.5; X1 = -2*A; dX = A/5; var x,y :real; beginx := X1;repeatif x<0 then y := Power(3,1/3)*A*(1-sqrt(-power(x,3))) else y := sqrt( sqrt( 16*power(A,4) + 4*sqr(a)*sqr(x) ) - sqr(x) - sqr(A) ); writeln('x:',x:6:2,'y:',y:6:2); x := x + dX;until real.IsNaN(y);end.

Объяснение:

sqr(x) -- квадрат x.

sqrt(x) -- квадратный корень x.

power(x, y) -- x в степени y.

real.IsNaN(x) -- x не является числом (условие).

В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).

Алгоритм можно написать по выше данному коду.

Пример работы:

"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."

// Первая программа

program One;

var a, b: Integer;

begin

write('Введите числитель: ');

read(a); {ввод числителя}

write('Введите знаменатель: ');

read(b); {ввод знаменателя}

{Правильной называется дробь, у которой модуль числителя меньше модуля знаменателя,

поэтому проверяем это условие}

if abs(a)<abs(b) then

 {Если условие выполняется, то пишем, что дробь правильная}

 writeln('Дробь правильная.')

else

 {В противном случае пишем, что дробь неправильная}

 writeln('Дробь неправильная.')

end.

// Вторая программа

program Two;

var a, b: Integer;

begin

write('Введите первое число: ');

read(a); {ввод первого числа}

write('Введите второе число: ');

read(b); {ввод второго числа}

{Проверить число на делимость можно с операции взятия остатка.

Есть остаток — число нацело не делится; остаток равен 0 -- число делится нацело}

if (a mod b) = 0 then

 {Если остатка нет, то пишем, что первое число делится нацело на второе}

 writeln('Первое число делится на второе.')

else

 {В противном случае пишем, что первое число не делится нацело на второе}

 writeln('Первое число не делится на второе.')

end.

// Третья программа

program Three;

var a, b: Integer;

begin

write('Введите первое число: ');

read(a); {ввод первого числа}

write('Введите второе число: ');

read(b); {ввод второго числа}

{Если второе число меньше первого -- то будем выводить его,

так как в ином случае первое и второе числа равны (и тогда мы можем вывести

любое из них, они ж одинаковые), либо меньшее число -- первое, и мы выведем его}

write('Наименьшее число: ');

if (a > b) then

 {Если второе число меньше первого, его и выводим}

 writeln(b)

else

 {В противном случае выводим первое число}

 writeln(a)

end.  

Объяснение:

Пояснения находятся в фигурных скобках.